Программа вычисления значений функции Y = X^2 — 5*X + 3 — Pascal(Паскаль)

Program pr43 (Input, Output); 
Label 1; 
Var 
X, Y: Integer; 
A, B: Integer;
h : Integer;
 
Begin
 
WriteLn ('PASCAL: Вычисление значений функции Y = X^2-5*X+3');
Write ('Введите начальное значение: A = ');
ReadLn (A);
Write ('Введите конечное значение: B = '); 
ReadLn (B); 
Write ('Введите шаг: h = ');
ReadLn (h); 
 
WriteLn ('Первый способ вычислений:'); 
X := A;
While (X <= B) Do 
Begin
Y := X * X - 5 * X + 3; 
WriteLn ('При X = ', X, ' значение Y = ', Y); 
X := X + h; 
End;
 
 
WriteLn ('Второй способ вычислений:');
X := A;
 
1: Y := X * X - 5 * X + 3; 
WriteLn ('При X = ', X, ' значение Y = ', Y); 
X := X + h; 
 
If X <= B Then
Goto 1;
 
ReadLn;
End. 

Leave a Comment

40 − = 31