Построить Блок- Схему к программе

@olgaKis · Регистрация: 01.03.2015

Author24 — интернет-сервис помощи студентам

Pascal

program 5variant2Z;
 var
   i:integer;
   z,y,dz : real;
 begin
        z:=-2;dz:=0.5;
    for i:=0  to  24 do begin
      z:=-2+i*dz;
      if (z>0)
      then   y:=sqr(z)+0.5
      else if (z<0.5) 
             then   y:=sqrt(z)+sqrt(0.5)
             else if (z=0.5)
                    then   y:=exp(2)+ln(0.5);
     writeln  (z:4:1,     y:10:5)
end;
  end.

@ZX Spectrum-128 · 02.03.2015, 10:21

http://soft.oszone.net/program/10450/FCEditor_NET/

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	02.03.2015, 10:21	2
	http://soft.oszone.net/program/10450/FCEditor_NET/ 0