elválik :P

• A Pascal program szerkezete
• Programozási tételek
• A tömb adatszerkezet
• Ciklusok a Pascalban
• CIKLUSOK
• Az IF feltétel és ELSE ága, elágazó utasítás
• Az IF ... THEN parancs, feltételes utasítás-végrehajtás
• Az IF feltételvizsgálat
• Karakterláncok kezelése (string típusú változók)
• Valós típusok
• Az egész típusokról általában
• Konstansok
• Változók beolvasása billentyűzetről - ReadLn
• Változók használata, integer és string alapismeretei
• Változók deklarálása, a típus fogalma, értékadás
• Kiírás a képernyőre - Write, WriteLn eljárás
• Index1
• A Pascal program építőeleme
• Bevezető
• index14
• index13
• index12
• index11
• Index10
• Index9
• Index8
• Index7
• Index6
• Index5
• Index4
• Mostani DOGA
• Keir kezdölap

 NEHEZEBB PROGRAMOK <<menübe>>

EZ  egy igazi szörnynek tünik a program ,de valójában nem az! Idö igényes a megirása , de nem lehetetlen ! Ez a program egy Angol kiegészitös feladathoz készült. Nekem Exé be van meg , de mivel én irtam ,ezért mindenhogy ,de exét csináltam belölle mert ugyy szebb! :P. Mint látjátok textcolor ,és a textbackground van benne ujitás ,és azthiszem némileg az IF hivatkozás.

ESERsoft...by:S.Róbert

program angoldoga;
Uses crt;
var a,b,c,d,e,f,g,h,i,j,k,l:string;

begin
textbackground (green);
textcolor (blue);

clrscr;
write('I think the town where I live is ..... small.');
readln(a);
IF ( a='too' ) then
BEGIN
writeln('Helyes');
End
Else
BEGIN
writeln('Helytelen');
end;

write('There isn t ..... to do here ,so it s more boring-');
readln(b);
IF (b='much') then
BEGIN
writeln('Helyes');
End
Else
BEGIN
writeln('Helytelen');
end;

write('.... a big city.');
readln(c);
IF (c='than') then
BEGIN
writeln('Helyes');
End
Else
BEGIN
writeln('Helytelen');
end;

write('There are a ..... shops, but there-');
readln(d);
IF (d='few') then
BEGIN
writeln('Helyes');
End
Else
BEGIN
writeln('Helytelen');
end;

write('isn t ..... sport centre or cinema.');
readln(e);
IF (e='a') then
BEGIN
writeln('Helyes');
End
ELse
BEGIN
writeln('Helytelen');
end;

write('On the other hand, the people here ..... very friendly,-');
readln(f);
IF (f='are') then
BEGIN
writeln('Helyes');
End
Else
BEGIN
writeln('Helytelen');
end;

write('and life is ..... than life in big cities.');
readln(g);
IF (g='more relaxing') then
BEGIN
writeln('Helyes');
end
Else
BEGIN
writeln('Helytelen');
end;

write('..... school here is very good ,-');
readln(h);
IF (h='The') then
BEGIN
writeln('Helyes');
End
ELSE
BEGIN
writeln('helytelen');
end;

write('and there s ..... beautiful lake nearby.');
readln(i);
IF (i='a') then
BEGIN
writeln('Helyes');
end
Else
Begin
writeln('Helytelen');
end;
write('So my town isn t perfect, but it isn t as bad ..... a lot of other places!');
readln(j);
IF (j='as') then
BEGIN
writeln('Helyes');
end
Else
BEgin
writeln('Helytelen');
end;
readln;
end.

Ez a program Exe- vel megtalálható a LETÖLTÉSEK menüpontban!