Вывести на экран значения функции по заданному условию - Pascal

Формулировка задачи:

составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке [k.w] с шагом z
readln(a);
if a>k then
writeln('а должен быть больше k');
until a>k;
begin
writeln('Введите шаг z');
readln(z);
c:=k;
writeln('Результаты:');
repeat
begin
t:=ln(14.5q /152.9)+Sin 5.3q;
if t<>3.2 then writeln('при с=',c,'t=',t:10:2);
c:=c+z;
end;
until t<=a;
end;
end.
не работает что не так то а:!?!?


textual

Код к задаче: «Вывести на экран значения функции по заданному условию - Pascal»

var k,w,z,q,t:real;
begin
repeat
write('Введите начало интервала k>0 k=');
readln(k);
until k>0;
repeat
write('Введите конец интервала w>',k:0:1,' w=');
readln(w);
until w>k;
repeat
write('Введите шаг z<',w-k:0:1,' z=');
readln(z);
until z<w-k;
q:=k;
writeln('Результаты:');
repeat
t:=ln(14.5*q/152.9)+sin(5.3*q);
if t<>3.2 then writeln('При q=',q:0:2,' t=',t:6:2);
q:=q+z;
until q>w;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.125 из 5

Источник
Похожие ответы