Mivel
ez az elsõ programom így nem nagyon tudtam mit csinálni :hmmm: :doubt:
Használat:
- - Megnyitod a programot
- - Megkérdezi,hogy \"Igen vagy nem? (1-2)
- - Neked számot kell írni! (1-t vagy 2-t)
- - és kiírja,hogy mi lett
Letöltés:
![\"download_grafik-ii.jpg\"](\"http://www.invoiceexpert.com/images/download_grafik-ii.jpg\")
Forráskód:
Program SampForum_Fuggoseg;
Uses crt;
var szam : Integer;
var szoveg : String;
BEGIN
ClrScr;
TextColor(Lightred);
GoToXY(20,10);
WriteLn(\'SAMPFÓRUM FÜGGÕSÉG TESZT - PROGRAMMED BY YAKUZA\');
WriteLn(\' \');
TextColor(white);
GoToXY(31,11);
Write(\'Igen vagy nem? (1-2): \');
ReadLn(szam);
GoToXY(31,12);
case (szam) of
1 : write(\'Te nem vagy SampFórum függõ!\');
2 : write(\'Te SampFórum függõ vagy!\')
else writeLn(\'HIBA! Csak 1 tõl 2-ig adhatsz meg számokat!\');
WriteLn(\' \');
TextColor(Lightgreen);
GoToXY(31,13);
Write(\'A programot készítette Yakuza.\');
end;
ReadKey;
END.
