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

Даны стороны прямоугольника. Найти его площадь и периметр.
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
Лучший ответ по мнению автора
Рекомендуем личную консультацию

Мария

Сейчас на сайте
WEB-маркетинг, контекстная реклама, анализ и usability сайта, способы продвижения для конкретного бизнеса, источники получения заказов. Не сисадмин и не компьютерный мастер! По вопросам с " Железом" обращайтесь к соответствующему специалист Узнать подробнее
Посмотреть всех экспертов из раздела Технологии