Pascal Vize Sorusu ve Cevabı 1 Nisan 28, 2008
Posted by programlama2000 in Turbo Pascal.Tags: final soru cevap, vize
trackback
Kullanıcı 0 girinceye kadar sürekli sayı girişi yapıldıktan sonra girilen çift sayıları ekrana yazan program
USES CRT;
VAR
SAYAC,J,SAYI:INTEGER;
DIZI,DIZI2:ARRAY[1..100] OF INTEGER;
BEGIN CLRSCR;
SAYAC:=1;SAYI:=999;
REPEAT
WRITE(SAYAC, ‘.SAYIYI GIRINIZ :’);
READLN(SAYI);
IF SAYI MOD 2 = 0 THEN
BEGIN
DIZI[SAYAC]:=SAYI;
SAYAC:=SAYAC+1;
END;
UNTIL SAYI=0;
FOR J:=1 TO SAYAC-1 DO
BEGIN
WRITELN(DIZI[J]);
END;
READLN;
END.
READLN;
END.
Yorumlar»
No comments yet — be the first.