[ARHIIV] mängumeistrid
Pole sisse logitud. [Logi sisse ]
Mine lehekülje algusesse
Prinditav versioon | Telli teema e-mailile | Lisa lemmikutesse  
Free Pascal / näide käsud
gmmeiter
GlorY


Liitunud: 28.10.2005
Postitusi: 2032
[EEMAL]




postitati 7.6.2008 12:58 Tsiteeri
Free Pascal / näide käsud



Selle koodi kirjutasin ma päris kaua aega tagasi valmis.. Muidu.. teatud erinevus on koodil ja programmil olemas.
http://www.dmgamez.pri.ee/foorum/images/smilies2/info.gif Kui ei tööta, siis öelge, kuna hetkel FPC'd arvutis pole.. Valmis asi töötab, ja peaks olema see sama.


Kood:

uses crt;
var mark:char;
i:integer;

procedure katseprotseduur;
begin
writeln('Vajuta [ENTER]');
writeln('Ega see rohkem ei teegi');
readln;
end;

function ruut(arv:integer):integer;
begin
ruut:=arv*arv;
end;


begin{peaprogrammi algus}
repeat
{menüü}
clrscr;
writeln('1. Suvalise protseduuri v„ljakutse');
writeln('2. Teade');
writeln('3. 3 ruudus');
writeln('4. Sama, mis esimene');
writeln('5. V„lju');
GotoXY(70,1);
textcolor(green);
writeln('F1 - ABI');
textcolor(lightgray);
gotoxy(1,6);
{men�� lõpp}
mark:=readkey;

{valikukontroll}
case mark of
{variandid}
'1':katseprotseduur;
'2':begin
writeln('vajutati 2');
readln;
end;
'3':begin
writeln(ruut(3));{kasutame funktsiooni nimega ruut}
readln;
end;
'4':katseprotseduur;

end;
{Valikukontrolli lõpp}
until mark='5';

end.{peaprogrammi lõpp}


[Muudetud: 7-6-2008 gmmeiter]

Lisatud fail: liides1.exe (142.16kb)
151 korda tõmmatud


Vaata kasutaja profiili Külasta kasutaja kodulehte Otsi kasutaja postitusi Saada privaatsõnum Vaata kasutaja MSN-i

Hetkel loevad seda teemat:
Mitte ühtegi - 1 külaline

Mine lehekülje lõppu





Foorumi algbaas põhineb XMB mootoril, modifitseeritud Valter Pundi poolt
Kodulehekülg on tehtud Valter Pundi poolt vpundi ät gmail punkt komm