tümü

pascal programlama bilen bir baba yiğit aranıyor

  1. 1.
    0
    program örnek;
    var
    tutar, fiyat, miktar:real;
    begin
    writeln ('fiyat gir');
    readln('fiyat')
    writeln ('miktar gir')
    readln('miktar')
    tutar;=miktar x fiyat;
    if tutar>500 then
    tutar:=tutar x 0.85;
    if tutar <= 500 then
    tutar:=tutar x 0.95;
    writeln (tutar);
    end.

    pascal bilmiyom ama c mantığına göre böylede çalışır, sonuçta else veya else if kullanmıyoz.
    ···
    #87008685 şikayet
   tümünü göster