Составьте таблицу значений Pascal

код программы на pascal

 program table; 

var x, y: real; 

begin 

  writeln('x':10, 'y':10); 

  x := -9; 

  while x

примени эту прогу к своей функции
program tabulaciya; // y:=x+1/x
uses crt;
var
a,b,h,x,y:real;
BEGIN
clrscr;
writeln('tabulaciya funkcii y:=x+1/x , obl.opredeleniya x<>0');
writeln('-----------------------------------------------------');
writeln;
write('vvesti levuy granicu promegutka A -->');
readln(a);
write('vvesti pravuy granicu promegutka B -->');
readln(b);
write('vvesti shag tabulacii dx -->');
readln(h);
writeln;
writeln(' x y');
writeln('----------------');
x:=a;
repeat
if abs(x)<0.00001 then begin
writeln(x:6:2,' net resheniya') end
else
begin y:=x + 1/x;
writeln(x:6:2,y:9:2); end;
x:=x+h;
until x >b;
writeln('----------------');
writeln;
writeln('konec zadachi');
readln;
END.

Для составления таблицы значений функции y = 4x - 10 на отрезке [-9;9] с шагом b = 3, нужно вычислить значения функции y для каждого значения x, начиная с -9 и заканчивая 9, увеличивая x на b = 3 на каждом шаге. Вот таблица значений:

| x | y |
|-----|-----|
| -9 | -46 |
| -6 | -34 |
| -3 | -22 |
| 0 | -10 |
| 3 | 2 |
| 6 | 14 |
| 9 | 26 |

Чтобы найти сумму первых десяти чисел, кратных пяти, нужно просуммировать числа, начиная с первого, заканчивая десятым, и шагом в пять. Начинаем со 5, заканчиваем на 50, шаг 5. Вот вычисления:

5 + 10 + 15 + 20 + 25 + 30 + 35 + 40 + 45 + 50 = 275

Сумма первых десяти чисел, кратных пяти, равна 275.