Используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y - Turbo Pascal

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

используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y если X=0,0.25,0.5,...19,75.


textual

Код к задаче: «Используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y - Turbo Pascal»

uses crt;
var i,k:integer;
    x,x1,y:real;
begin
clrscr;
k:=0;
for i:=1 to 80 do
 begin
  x:=(i-1)*0.25;
  if (i+1) mod 17=0 then k:=k+1;
  x1:=x-4*k;
  if(x1>=0)and(x1<=2) then y:=sqrt(4-sqr(x1-2))
  else y:=2*x1-6;
  writeln('x=',x:5:2,' x1=',x1:5:2,' y=',y:5:2);
  if i mod 20=0 then readln;
 end;
readln
end.
Эта работа вам не подошла?

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


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

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

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