Автор Никита Баканов задал вопрос в разделе Другие языки и технологии
Помогите с Turbo Pascal и получил лучший ответ
Ответ от Ў В[гуру]
А в чем проблема?
Ты не знаешь, как вычислить периметр и площадь?
Или проблема с паскалем?
Что дано?
И вообще : текст в студию!
Только быстрее, а то я спать пойду.
------------------------------
Обижаться на судьбу непродуктивно.
Что ты делал весь день - показывай.
Формулы знаешь площади и периметра?
Пиши.
-------------------------------
Там прямоугольник. Совсем другое дело
Ответ от Владислав Осипов[активный]
задали бы мне такую задачу)) , а то двуфмерные массивы с циклами (((
задали бы мне такую задачу)) , а то двуфмерные массивы с циклами (((
Ответ от Їеловек Наук[гуру]
Сделай входные переменные a, b, c - стороны треугольника. Дальше просто считаешь периметр и формулу Герона вписываешь
Я что-то зачитался. Если прямоугольник, то все гораздо проще. (a+b)*2 - периметр, a*b - площадь. Считываешь не периметр, а именно a и b. Периметр и площадь уже выводишь. И тип integer лучше взять. А если обязательно real то выводить примерно в формате: s:5:3
Сделай входные переменные a, b, c - стороны треугольника. Дальше просто считаешь периметр и формулу Герона вписываешь
Я что-то зачитался. Если прямоугольник, то все гораздо проще. (a+b)*2 - периметр, a*b - площадь. Считываешь не периметр, а именно a и b. Периметр и площадь уже выводишь. И тип integer лучше взять. А если обязательно real то выводить примерно в формате: s:5:3
Ответ от Дима Дрожжов[гуру]
"Там прямоугольник. Совсем другое дело"
Ну а прямоугольник это 2 треугольника, нэ?
"Там прямоугольник. Совсем другое дело"
Ну а прямоугольник это 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.
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.
Все остальное сделай сам, чему-то, наверное, вас в школе учат (хотя бы самостоятельно работать с книгой-учебником) . 🙂
"Сынок", это записать можно так:
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.
Все остальное сделай сам, чему-то, наверное, вас в школе учат (хотя бы самостоятельно работать с книгой-учебником) . 🙂
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите с Turbo Pascal