Нужна помощь по составлению блок-схем

Sacred09 · 25.01.2011, 10:24

Добрый день, программисты!ПОМОГИТЕ составить схему из приведенного ниже кода
1)

PHP код:


			
uses crt;

const sp:array[1..10] of string=('Moskva','Orel','Glazov','Kolomna','Vanino','Kaluga','Serov','Rostov','Orsha','Klin');

var i,j:integer;

x:string;

begin

clrscr;

writeln ('Ishodnyj spisok:');

for i:=1 to 10 do

writeln(sp[i]);

writeln;

writeln('Izmenennyj spisok:');

for i:=1 to 10 do

begin

for j:=1 to 10 do

if (sp[i] [length(sp[i])]='a')and(sp[j][length(sp[j])]='a')and(i<>j) then

begin

x:=sp[i];

sp[i]:=sp[j];

sp[j]:=x;

break;

end;

break;

end;

for i:=1 to 10 do

writeln(sp[i]);

readln;

end.

2)

PHP код:


			
Uses Graph, CRT;

VAR

 i,j:INTEGER;

 S:String;

 x,y:Real;



BEGIN

 InitGraph (i,j,'');

 Line(40,420,640,420);

 Line(40,420,40,20);

 SetTextStyle(DefaultFont,HorizDir,1);

 SetTextJustify(CenterText,TopText);

 OutTextXY(40,430,'0');

 FOR i:=1 TO 5 DO

  begin

   Line(40+i*100,420,40+i*100,410);

   Str(i/2:3:1,S);

   OutTextXY(40+i*100,430,S+'*Pi');

  end;



 SetTextJustify(RightText,CenterText);

 FOR i:=0 TO 10 DO

  begin

   Line(40,420-i*40,50,420-i*40);

   Str(0.1*i:3:1,S);

   OutTextXY(35,420-i*40,S);

  end;



 SetLineStyle(SolidLn,0,ThickWidth);

 MoveTo(40,420);

 x:=0;

 For i:=1 to 600 do

  begin

   x:=x+Pi/200;

   y:=SQR(Sin(x));

   LineTo(40+Round(x*200/Pi),Round(420-y*400));

  end;

 ReadKey;

 CloseGraph;

END.

25.01.2011, 10:24	#1 (permalink)
Sacred09 Member Регистрация: 22.03.2010 Сообщений: 185 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 54	Нужна помощь по составлению блок-схем Добрый день, программисты!ПОМОГИТЕ составить схему из приведенного ниже кода 1) PHP код: uses crt; const sp:array[1..10] of string=('Moskva','Orel','Glazov','Kolomna','Vanino','Kaluga','Serov','Rostov','Orsha','Klin'); var i,j:integer; x:string; begin clrscr; writeln ('Ishodnyj spisok:'); for i:=1 to 10 do writeln(sp[i]); writeln; writeln('Izmenennyj spisok:'); for i:=1 to 10 do begin for j:=1 to 10 do if (sp[i] [length(sp[i])]='a')and(sp[j][length(sp[j])]='a')and(i<>j) then begin x:=sp[i]; sp[i]:=sp[j]; sp[j]:=x; break; end; break; end; for i:=1 to 10 do writeln(sp[i]); readln; end. 2) PHP код: Uses Graph, CRT; VAR i,j:INTEGER; S:String; x,y:Real; BEGIN InitGraph (i,j,''); Line(40,420,640,420); Line(40,420,40,20); SetTextStyle(DefaultFont,HorizDir,1); SetTextJustify(CenterText,TopText); OutTextXY(40,430,'0'); FOR i:=1 TO 5 DO begin Line(40+i100,420,40+i100,410); Str(i/2:3:1,S); OutTextXY(40+i100,430,S+'Pi'); end; SetTextJustify(RightText,CenterText); FOR i:=0 TO 10 DO begin Line(40,420-i40,50,420-i40); Str(0.1i:3:1,S); OutTextXY(35,420-i40,S); end; SetLineStyle(SolidLn,0,ThickWidth); MoveTo(40,420); x:=0; For i:=1 to 600 do begin x:=x+Pi/200; y:=SQR(Sin(x)); LineTo(40+Round(x200/Pi),Round(420-y400)); end; ReadKey; CloseGraph; END.

25.01.2011, 10:24
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Может быть такое, что вопрос уже решен в похожих топиках Как согнуть лист? Временные диаграммы для схем - нужна помощь Нужна помощь по блок-схеме и в отладке программы Нужна помощь с БП Нужна помощь в VBA Нужна помощь

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070