Question

Подскажите как сделать программу с циклами?

Дано целое положительное число N. С использованием цикла FOR составить программу, которая выводит на экран таблицу значений функции при целых значениях агрумента от 1 до N.

Задание 2

С использованием цикла WНILЕсоставить программу, выполняющую табулирование функции y = f(x)на отрезке [x1, xn] с шагомh. Результат вывести с четырьмя знаками после запятой.

Answer 1

// задание 1

// Программа работает в PascalABC.Net

program fff;

var y : real;

x, n, v : integer;

st1 : string;

begin

writeln('--------------------------------------------');

repeat

write(' Введите вариант задания (1 или 5 или 9):');readln(v);

if not (v in [1,5,9]) then writeln('Номер введен неверно. Задание данного номера этой программой не решается');

until (v in [1,5,9]);

writeln('--------------------------------------------');

case v of

1 : st1 := 'y = x^3';

5 : st1 := 'y = 1/x';

9 : st1 := 'y = x^4';

end;

repeat

write('Введите конечное значение табуляции функции N (от 1 до 32000) = '); readln(n);

if (n < 0) or (n > 32000) then writeln('Конечное значение N не соответствует требованию. Повторите ввод');

until not ((n < 0) or (n > 32000));

writeln('----------------------------------------------------------');

writeln(' Табуляция функции ',st1,' от 1 до ',n,' с шагом = 1');

writeln('----------------------------------------------------------');

writeln(' X | ',st1,' |');

writeln('----------------------------------------------------------');

for x := 1 to n do

begin

case v of

1 : y := x*x*x;

5 : y := 1/x;

9 : y := x*x*x*x;

end;

writeln(' ',x:6,' | ',y:18:10,' |');

end;

writeln('----------------------------------------------------------');

end.

// задание 2

// Программа работает в PascalABC.Net

program ddd;

var y, x1, xn, a, b, h, x : real;

begin

writeln('--------------------------------------------------');

write('Введите X1 = '); readln(x1);

write('Введите Xn = '); readln(xn);

write('Введите a = '); readln(a);

write('Введите b = '); readln(b);

write('Введите h = '); readln(h);

writeln('----------------------------------------------------------');

writeln(' Табуляция функции y=(sqrt(a*x)/(b+a*x*sqrt(x))) от ', x1,' до ',xn,' с шагом = ',h:6:4);

writeln('----------------------------------------------------------');

writeln(' X | y=(sqrt(a*x)/(b+a*x*sqrt(x) |');

writeln('----------------------------------------------------------');

x := x1;

while (x <= xn) do

begin

y := (sqrt(a*x)/(b+(a*x*sqrt(x))));

writeln(' ',x:8:4,' | ',y:18:10,' |');

x := x + h;

end;

writeln('----------------------------------------------------------');

end.