Konu: Pascal ile kolay bir soru :)

[(Gizli Üye)]

Ya bugün bilmiyorum ne oldu çözüm üretemiyorum akşamda sınavım var ne yapacam bilmiyorum

bir sayinin %10 fazlasını bulmak istiyorum aklıma gelen şeyler sunlar

sayi*1.1     diyorum ama 1.1 öyle tanımıyor  1,1 yapıyorum oda olmuyor

t:=sayi/10;
sayi:=sayi+t;  ---- bunu denemedim acaba olur mu sanki olur gibi geliyo deneyim bi

[(Gizli Üye)]

Syntax hatası da yok, çarpmayı neden yapmıyor acaba? Neyse sen kulağı tersten göster ciğerim, en sağlamı bu, makine ile inatlaşmaya gerek yok ASCII kodlarında mı bir sorun var acaba?

[(Gizli Üye)]

baya gıcık birşey

uses crt;
var
gsayi:array[1..20] of integer;
I,on,top,tut,yuzde:integer;

begin
clrscr;
yuzde:=0;
top:=0;
       for I:=1 to 20 do
       begin
       writeln(I,'sayiyi giriniz');readln(gsayi);
       end;
       for I:=1 to 20 do
       begin
       tut:=(gsayi div 5)*5;
       if tut=gsayi then
       yuzde:=gsayi mod 10;
       top:=top+yuzde;
       end;
       writeln(top);
       readln;
       end.


böyle birşeyler yapıyo ama   bir yerde ki mantıgım yanlış ama nerde ki :S

[(Gizli Üye)]

Bilen birisi vardır   .. Alper abilerimmm