Примеры решения задач на 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. |