Bu sayfadaki yazılar
Sayfanın metni
Sayfa 29
while deger<syiltoplamibuyil1 do begin Writelyildiz); deger! tpara: end; Writelniyiltoplamlbuyillsla2:2) end;
procedure grafikaylvar ayadi:dizi);
begin repeat secimokulsecim); case secim of Bigoösterlsatis,ilkyil,sonyil,ayadi); Biyeryilisatis,ilkyil,sonyil,yiltoplam,yiltamam); 5:if yiltamam then else writelni'grafikten evvel duüzenleniyor.'); aytamam then grafikaylaytoplam,;ayadi) else evvel duüuzenleniyor.'); Tiwriteln('Satis analizi tamamlandi.'); end; until secims-scikis end;
begin seceneklayadi,aytamam,yiltamam)
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 28
for buayisoca to ara do toplami stoplamtsatislbuyil,buayl; 13:12); end; yiltamami end;
procedure Oyaraylvuar satisisatisdizisi/uar var aytamam:boolean);
yar toplamireal; buaytay; buyilisure;
begin göre total satislar'); for buayi saca to ara do toplami wWritelnittoplamı 13:82); aytamami end;
procedure grafikyillvar ,sonyilisure); const maknoktasS5Sü;
yar makpara, degerireal; paratinteger;
maksireal; buyilisure;
begin for to sonyil do if yiltoplamibuyillJomaks theri maks! bul: end;
begin Writelnl'Yatay cizgide her nokta TL',parai9);
Wreitelni'YIL MIKTAR'); for buyilissonyil dounto ilkyil do begin