Реферат: Основы языка Паскаль

VAR

x, y : real;

BEGIN

x: = -1;

WHILE x<= 1 DO

нет

BEGIN

Y: = sin(x)*sin(x)+ 2,5*x;

writeln (‘при x =’,x, ‘y= ‘,y);

да

x: = x + 0,25;

END;

END.

Алгоритм вычисления суммы

Пример 1:

Вычислить .

PROGRAM SUM;

VAR

X, S : real;

n : integer;

sl : real;

BEGIN

Write (‘введите значение x’);

Read (x);

S : = 0;

FOR N : = 1 TO 20 DO

BEGIN

SL : = (2*x)/N;

S : = S + SL;

END;

writeln (‘суммаряда =’, S);

END.

Пример 2. Найти количество чисел, сумма которых превысит 100.