Kullanıcının Girdiği 10 Sayı ...Pascal Yardım

Tahribat.com Forumları
line

Delphi - Pascal
line

Kullanıcının Girdiği 10 Sayı ...Pascal Yardım

12/May/08 11:51 Kısayol Şikayet Özel Mesaj

dunyahali

Kayıt Tarihi: 12/Mayıs/2007

kullanıcıcnı girdiği 10 sayının en büyüğünü kullanıcıya gösteren programı yazınız Array Kullanarak.
şimdiden teşekür ederim pascaldan ii anlayanlar ekleşim bi yardım etsinler yaa yarın sınav warda .s
şimdiden teşekür ederim.

DiBe VuRmAyA bİrAz DaHa Az KaLdI..

Alıntı yap
12/May/08 14:12 Kısayol Şikayet Özel Mesaj

dismahk

Kayıt Tarihi: 06/Aralık/2007

delphi console uygulaması olarak yazdım, su anda pascal compilerım yok... kusura bakma
ama aynı dil, syntaxı tamamen aynıdır, sadece
uses
   SysUtils
kısmı pascal icin gerekmeyebilir, yada uses crt olarak yazman gerekebilir...
___________________________________________________________________________________________
uses
SysUtils;
var
dizi:array[1..10] of integer;
i,max:integer;
begin
//////////
///burada 10 adet sayıyı dongu icinde alıyor
/////////
for i:=1 to 10 do
    begin
    writeln(inttostr(i)+' . sayiyi girin');
    readln(dizi[i]);
    end;
   ////
   // dizinin ilk elemanını en buyuk kabul ediyorum
   // butun diziyi dolasıp diger elemanlarla karsılastırıyorum
   //daha buyugu cıkarsa onu tutuyorum
   max:=1;
   for i:=2 to 10 do
    begin
     if(dizi[i]>dizi[max]) then max:=i;
    end;
    writeln('En buyuk eleman= '+inttostr(dizi[max]));
    readln;//ekran kaybolup gitmesin diye koydum
end.
__________________________________________________________________________

Alıntı yap
12/May/08 16:33 Kısayol Şikayet Özel Mesaj

dunyahali

Kayıt Tarihi: 12/Mayıs/2007

çok saol yaa teşekür ederim.

DiBe VuRmAyA bİrAz DaHa Az KaLdI..

Alıntı yap
12/May/08 17:42 Kısayol Şikayet Özel Mesaj

31 yaşında emekli
ajan1111

Kayıt Tarihi: 25/Ağustos/2005

ah pascal ahhhh (: ilk göz ağrım benim.
@dünyahali temrin ödevin miydi bu?

Kayalardan kayarım yoktur benim ayarım (;

Alıntı yap

Toplam Hit: 2866 Toplam Mesaj: 4

Cevapla