программа периметр

Ответ от Владислав Осипов[активный]
задали бы мне такую задачу)) , а то двуфмерные массивы с циклами (((

Ответ от Їеловек Наук[гуру]
Сделай входные переменные a, b, c - стороны треугольника. Дальше просто считаешь периметр и формулу Герона вписываешь
Я что-то зачитался. Если прямоугольник, то все гораздо проще. (a+b)*2 - периметр, a*b - площадь. Считываешь не периметр, а именно a и b. Периметр и площадь уже выводишь. И тип integer лучше взять. А если обязательно real то выводить примерно в формате: s:5:3

Ответ от Дима Дрожжов[гуру]
"Там прямоугольник. Совсем другое дело"
Ну а прямоугольник это 2 треугольника, нэ?

Ответ от Владимир[эксперт]
Program Perimetr_prjamougolnika;
Uses CRT;
Var P,Dlina,shirina,S:real;
Begin
Write ('Введите длину прямоугольника (см) : ');
Read (Dlina);
Write ('Введите ширину прямоугольника (см) : ');
Read (shirina);
P:=(Dlina+shirina)*2;
S:=Dlina*shirina;
Writeln;
Writeln;
Writeln ('Ответ: ');
Writeln;
Write ('Периметр прямоугольника равен: ', P); Write ('(см) ');
Writeln;
Write ('Площадь прямоугольника равна: ', S); Write ('(см^2)');
End.

Ответ от Ёали-Мали[гуру]
"Сынок", это записать можно так:
uses Crt;
var a, b, p, s: real;
Begin
ClrScr;
writeln('Введите стороны прямоугольника');
readln(a, b); {После ввода каждого числа жми Enter}
s:=0; p:=0;
s:=a*b;
p:=(a+b)*2;
writeln('Площадь прямоугольника s=', s:5:2, 'Периметр прямоугольника р=', р: 5:2);
readkey
End.
Все остальное сделай сам, чему-то, наверное, вас в школе учат (хотя бы самостоятельно работать с книгой-учебником) . 🙂

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]