Pascal Vize Sorusu Ve Cevabı 3 Nisan 28, 2008
Posted by programlama2000 in Turbo Pascal.Tags: anlamak, anlamamak, final, hacker, salaklık, sallagitsin, sorucevap
trackback
Girilen 6 basamaklı bir sayının en küçük basamağını bulan program
USES CRT;
VAR
SAYI:STRING;
DIZI:ARRAY[1..6] OF INTEGER;
ENK,GECICI,DONDUR,J:INTEGER;
K:LONGINT;
KOPYALA:STRING;
BEGIN CLRSCR;
WRITE(‘6 HANELI BIR SAYI GIRINIZ : ‘);
READLN(SAYI);
FOR J:=1 TO 6 DO
BEGIN
KOPYALA:=COPY(SAYI,J,1);
VAL(KOPYALA,DONDUR,K);
DIZI[J]:=DONDUR;
END;
ENK:=999;
FOR J:=1 TO 6 DO
BEGIN
IF DIZI[J]<ENK THEN ENK:=DIZI[J];
END;
WRITE(SAYI,’ SAYISININ EN KUCUK HANESI : ‘,ENK);
READLN;
END.
Yorumlar»
No comments yet — be the first.