Aşağıdaki gibi 1 ile 99 arasında rastgele sayı bulan programı

tarantula90130.06.2012 - 04:57

Aşağıdaki gibi 1 ile 99 arasında rastgele sayı bulan programı yazınız. Alt alta kaç satır sayı bulunacağını kullanıcı tarafından girilecektir. Sütunlar arasında 5 er karakterlik boşluk olan program.



 uses crt;
var
sutun,satir,a,i,x:integer;
begin
randomize;
clrscr;
writeln('sütun sayısını gir:');readln(sutun);
writeln('satır sayısını gir:');readln(satir);
clrscr;
for i:=1 to satir do begin


for x:=1 to sutun do begin
gotoxy(5*i,3*x);
a:=random(99);
writeln(a);
end;
end;
readln;
end.

Linkback: https://www.buyuknet.com/asagidaki-gibi-1-ile-99-arasinda-rastgele-sayi-bulan-programi-t38141.0.html

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Aşağıdaki gibi 1 ile 99 arasında rastgele sayı bulan programı
Aşağıdaki gibi 1 ile 99 arasında rastgele sayı bulan programı
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2