Czesc. Chcialbym was poprosic o pomoc w ulozeniu schematu blokowego na podstawie takiego programu:
Uses Crt, Graph;
Var
Karta, Tryb: Integer;
X, Y, Wielkosc, Font, Kierunek: Integer;
BEGIN
Karta := Detect;
InitGraph(Karta, Tryb, 'C:\Progra~1\TP\BGI');
Y:=0; X:=0;
For Wielkosc := 3 To 9 Do {Wielkość od 3 do 9}
For Font := 0 To 4 Do {Patrz tabelka}
For Kierunek := 0 To 1 Do {Kierunek - patrz tabelka}
Begin
SetTextStyle(Font, Kierunek, Wielkosc);
OutTextXY(X, Y, 'As '); {Zaczynamy od X=0 i Y=0}
If (Y < GetMaxY - 200)
Then Inc(Y, TextHeight('As '))
Else
Begin
Y:=0;
Inc(X, 50); { to X := X + 50; }
End;
End;
ReadLn;
CloseGraph;
END.
Jezeli byloby to mozliwe prosilbym o to aby ten schemat byl stworzony najprostszymi komendami takimi jak if, for. Z gory dziekuje wszystkim za jakakolwiek pomoc.