Даны стороны прямоугольника. Вычислить его периметр и площадь
5-9 класс
|
Program asd;
USES crt;
var p,s,c,a,b:real;
BEGIN
clrscr;
Writeln('Введите сторону À: ');
Readln(A);
Writeln('Введите сторону B: ');
Readln(B);
Writeln('Введите сторону C: ');
Readln(C);
P:=(a+b+c)/2;
S:=SQRT(p*(p*a)*(p*b)*(p*c));
Writeln('S:= ',s:2:2);
Writeln('P:= ',p);
END.
Другие вопросы из категории
2) Перечислите наиболее популярные поисковые системы в России, США и Китае- отдельно для каждой страны по три поисковика
заполнить массив из 10 элементов случайными числами из интервала от -10 до 10 вывести на экран а затем увеличить каждый элемент массива на 1 и повторно вывести на экран
один месяц, вирус В заполняет 1 Гбайт за два месяца, вирус С заполняет 1 Гбайт
за три месяца, вирус Dзаполняет 1 Гбайт за шесть месяцев. На
компьютере одновременно обнаружены сразу все четыре вируса. Сколько гигабайт они заполнят за
один месяц?
Читайте также
1. Имеются два числа.
a) Вычислите сумму и разность этих чисел,
используя два оператора readln.
b) Перепишите программу так, чтобы
использовался один оператор readln.
c) Добавьте комментарии к программе.
2. Имеются три числа. Вычислите их
произведение.
3. По заданным сторонам прямоугольника a и
b вычислите его периметр и площадь.
4. Человеку сегодня исполнилось R лет.
Сколько ему дней? Часов? Минут? Секунд? (Високосные годы не учитывать)
значения выражений?
2) Выполнить алгоритм при x=345:
Начало
ввод x
a=x div 100
b=x div 10 mod 10
c=(a+b)/2
вывод a
вывод b
вывод c
конец
3) Что появится на экране после выполнения фрагмента программы:
a:=7;
b:=5;
a:=a-b;
Writeln(b-a*2);
Writeln('a=',a,'b=',b);
4) Дана сторона квадрата, найти его периметр.
5) Дано трёхзначное число. В нём зачеркнули последнюю справа цифру и приписали её в начале. Найти полученное число.
*Задачи 4 и 5 решить на языке программирования, используя математические функции.
1 Даны стороны прямоугольника a , b. Найдите его площадь и периметр.
2 Дана длина ребра куба a. Найти объем и площадь его поверхности.
НУЖНО НА ЗАВТРА ПОМОГИТЕ!