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

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

Глеб Черняк

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

Дмитрий

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

Андрей Калёных

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