Предмет: Информатика,
автор: awiseman00
30 БПЛЛОВ!!!!!!!!! 6!!!!!!
Выведите на экран значения функции у=х^2 в интервале [а, b], с шагом h, где a, b-целые числа, h-вещественное
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1359 от 11.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer;
var h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var x:=real(a);
while x<=b do begin
Writeln(x,' ',x*x);
x:=x+h
end;
end.
Пример
Введите a,b,h: 10 20 0.5
10 100
10.5 110.25
11 121
11.5 132.25
12 144
12.5 156.25
13 169
13.5 182.25
14 196
14.5 210.25
15 225
15.5 240.25
16 256
16.5 272.25
17 289
17.5 306.25
18 324
18.5 342.25
19 361
19.5 380.25
20 400
// Внимание! Если программа не работает, обновите версию!
begin
var a,b:integer;
var h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var x:=real(a);
while x<=b do begin
Writeln(x,' ',x*x);
x:=x+h
end;
end.
Пример
Введите a,b,h: 10 20 0.5
10 100
10.5 110.25
11 121
11.5 132.25
12 144
12.5 156.25
13 169
13.5 182.25
14 196
14.5 210.25
15 225
15.5 240.25
16 256
16.5 272.25
17 289
17.5 306.25
18 324
18.5 342.25
19 361
19.5 380.25
20 400
Автор ответа:
0
А что это за надпись в начале, о том что программа не работает?
Автор ответа:
0
По-моему, там все ясно. Там написано ЕСЛИ НЕ РАБОТАЕТ ...
Похожие вопросы
Предмет: Химия,
автор: dccomics430
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: хрюн