Суббота, 18.11.2017, 20:41
Приветствую Вас Гость | RSS
Меню сайта

Информация

Поиск

Статистика
Форма входа
Примеры решения задач на Pascal

На этой страничке размещаются примеры решения задач по программированию на языке Pascal с подробными комментариями.

Задача 1.

Найти значение выражения 1*1+2*2+...+n*n.

Решение:

var n,s,i : integer; {значение переменных n, s и i - только целые числа}
begin {начало программы}
   write('n = '); {вывести сообщение "n = "}
   readln(n); {пользователь вводит число n}
   s:=0; {присвоение переменной s значения 0 (то есть сумма равна нулю)}
   for i:=1 to n do{начать цикл}
     s:=s+i*i; {прибавление к "сумме" квадрата числа i}
   writeln('s = ',s);{вывести сообщение "s = " и полученную сумму}
   readln; {подождать пока пользователь нажмет на кнопку(сделано чтобы пользователь мог успеть прочитать выведенный результат)}
end. {конец программы}

Задача 2.

Найти максимальное число из трёх.

Решение:

var a,b,c,max : integer;
begin
  clrscr;{очистить экран}
  write('a=');readln(a);{Ввести число a}
  write('b=');readln(b);{Ввести число b}
  write('c=');readln(c);{Ввести число c}
  if (a>b) and (a>c) then max:=a;{Если число a больше остальных, то максимальное число = a}
  if (b>a) and (b>c) then max:=b;{Если число b больше остальных, то максимальное число = b}
  if (c>a) and (c>b) then max:=c;{Если число c больше остальных, то максимальное число = c}
   write('max=',max);{Вывести максимальное значение}
   readln;
end.