Помогите составить задание на языке Паскаль: Даны стороны прямоугольника: a и b. Найти: P-периметр, S-площадь, с-диагональ.
5-9 класс
|
Program Zn;
var a,b,S,P:integer;
c:real;
Begin
Writeln('Введите стороны а и b');
Readln(a);
Readln(b);
P:=2*a+2*b;
S:=a*b;
c:=sqrt(a*a+b*b);
writeln('P=',P);
Writeln('S=',S);
Writeln('c=',c);
end.
(Проверено и откомпилировано на Pascal.NET)
Другие вопросы из категории
1. Задать случайным образом 13 элементов числового массива – числа от 10 до 50. Удалить из него:
а) 10-ый элемент;
б) минимальный элемент.
2. Из символьного массива, 7 элементов которого заданы с клавиатуры, удалить максимальный элемент.
Читайте также
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
в противном случае. Операцией возведения в степень пользоваться нельзя!
Вычислите площадь круга и длину окружности по исходным данным.