Предмет: Информатика,
автор: leragromova20
напишите программу вычисляющую площадь и периметр прямоугольника. Стороны прямоугольника вводятся с клавиатуры.
Ответы
Автор ответа:
2
Сделал программу на PascalABC, в файле.
Приложения:
shoshin142:
Вот код (с файлом как-то не очень хорошо выкладывается):
спасибо большое!
Program Rectangle;
var
a, b, s, p: integer;
Begin
//Ввод сторон
write('Длина прямоугольника -> ');
readln(a);
write('Ширина прямоугольника -> ');
readln(b);
//Площадь
s := a * b;
writeln('Площадь прямоугольника: ', s);
//Периметр
p := 2 * a + 2 * b;
writeln('Периметр прямоугольника: ', p);
End.
var
a, b, s, p: integer;
Begin
//Ввод сторон
write('Длина прямоугольника -> ');
readln(a);
write('Ширина прямоугольника -> ');
readln(b);
//Площадь
s := a * b;
writeln('Площадь прямоугольника: ', s);
//Периметр
p := 2 * a + 2 * b;
writeln('Периметр прямоугольника: ', p);
End.
Файл как, скачивается?
да
спасибо, еще раз!
Всегда пожалуйста! Рад помочь!
Автор ответа:
1
var
a, b, n, p: integer; // Переменные целочисленного типа.
begin
write('Длина: '); readln(a); // Задаём длину нашему треугольнику.
write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику.
n:=a*b // Формула что-бы узнать площадь прямоугольника.
write('Площадь: ',b); // Выводим площадь на экран.
p:=2*a+2*b; // Формула что-бы узнать периметр треугольника.
write('Периметр: ',p); // Выводим периметр на экран.
end.
a, b, n, p: integer; // Переменные целочисленного типа.
begin
write('Длина: '); readln(a); // Задаём длину нашему треугольнику.
write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику.
n:=a*b // Формула что-бы узнать площадь прямоугольника.
write('Площадь: ',b); // Выводим площадь на экран.
p:=2*a+2*b; // Формула что-бы узнать периметр треугольника.
write('Периметр: ',p); // Выводим периметр на экран.
end.
n:=a*b; **
Похожие вопросы
Предмет: Математика,
автор: ulyanasumova3
Предмет: Математика,
автор: Ychenikvov
Предмет: Геометрия,
автор: Аноним
Предмет: География,
автор: 3466544grgjcdghg