Процедуры и функции. Тексты программ: различия между версиями

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
мНет описания правки
Нет описания правки
Строка 1: Строка 1:
__NOTOC__
=== Вычисление площади и периметра прямоугольника ===
=== Вычисление площади и периметра прямоугольника ===
<source lang="Delphi">procedure RectSP(a,b: real; var S,P:real);
begin
  S := a * b;
  P := a + b;
end;
var
  x,y: real; // Стороны прямоугольника
  S: real;  // Площадь прямоугольника
  P: real;  // Периметр прямоугольника
begin
  write('Введите стороны прямоугольника: ');
  readln(x,y);
  RectSP(x,y,S,P);
  writeln('Площадь равна ',S);
  writeln('Периметр равен ',P);
end.</source>
=== Табулирование функции ===
=== Табулирование функции ===
=== Функция вычисления a<sup>n</sup>===
=== Функция вычисления a<sup>n</sup>===

Версия от 10:28, 21 ноября 2009

Вычисление площади и периметра прямоугольника

procedure RectSP(a,b: real; var S,P:real);
begin
  S := a * b;
  P := a + b;
end;

var 
  x,y: real; // Стороны прямоугольника
  S: real;   // Площадь прямоугольника
  P: real;   // Периметр прямоугольника 

begin
  write('Введите стороны прямоугольника: ');
  readln(x,y);
  RectSP(x,y,S,P);
  writeln('Площадь равна ',S);
  writeln('Периметр равен ',P);
end.

Табулирование функции

Функция вычисления an

Функция вычисления n!

Вывод четверти по координатам точки

Вывод слова, обозначающего данную цифру

Функция проверки числа на четность

Функция определения простоты числа

Функция вычисления n-того числа Фибоначчи

Функция определения НОД числа

Процедура вывода таблицы умножения

Ссылки

Алгоритмы для начинающих

Источник — https://pascalabc.net/wiki/index.php?title=Процедуры_и_функции._Тексты_программ&oldid=1034