ИНФОРМАТИКА. делать в Паскале.

Даны стороны прямоугольника. Найти его площадь и периметр.
05.04.16
1 ответ

Лучший ответ по мнению автора

Program Nua; //Название программы можно указать вместо NUA
var //Описание переменных
  x,y: real; // Стороны прямоугольника
  S: real;   // Площадь прямоугольника
  P: real;   // Периметр прямоугольника 
 
procedure RectSP(a,b: real; var S,P:real); //Процедура
begin
  S := a * b; //Нахождение площади
  P := a + b; //Нахождение суммы
end;
 
begin //Начало основной части программы
  writeln('Введите стороны прямоугольника: '); //Диалоговое окно
  readln(x,y); //Считывание сторон
  RectSP(x,y,S,P); //Вызов процедуры  
  writeln('Площадь равна ',S); //Вывод площади
  writeln('Периметр равен ',P); //Вывод периметра
end. //Конец программы
06.04.16
Лучший ответ по мнению автора
Рекомендуем личную консультацию

Глеб Черняк

Сейчас на сайте
Глеб Черняк
Глеб Черняк
Эксперт месяца
☑ Профессиональная помощь в настройке, установке любых программ, драйверов и операционных систем семейства Windows, Mac OS. ☑☑☑ Избавлю от вирусов, баннеров и прочей гадости. ☑ Помогу разобраться с железом. ☑ Видеомонтаж, Фото и видео услуги. ●●● Узнать подробнее
Посмотреть всех экспертов из раздела Технологии