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

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

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

Program Nua; //Название программы можно указать вместо NUAvar //Описание переменных  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
Лучший ответ по мнению автора

Глеб Черняк

Сейчас на сайте
Глеб Черняк
Глеб Черняк
Эксперт месяца
Читать ответы

Alexander

Сейчас на сайте
Читать ответы

Julia

Читать ответы
Посмотреть всех экспертов из раздела Технологии