• uses crt;
  var
  a,b:integer;
  function top(a,b:integer):real;
  var c:integer;
  begin
  writeln('ne yapmak istiyorsunuz?');
  writeln('1.....topla');
  writeln('2.....cıkart');
  writeln('3.....carp');
  writeln('4.....bol');
  readln(c);
  if c>4 then begin writeln('yanlıs secim');readln;halt;end;
  case c of
  1: top:=a+b;
  2: top:=a-b;
  3: top:=a*b;
  4: top:=a/b;
  end;
  end;
  begin
  clrscr;
  writeln('1.sayıyı gir');readln(a);
  writeln('2.sayıyı gir');readln(b);
  writeln(top(a,b));
  readln;
  end.

hzr=spectacuLar

bu programın çalıstıgına eminsin dimi?

su pascaldan nefret ettigim kdar hiç bir seyden nefret etmiyorum ya geçen sene derslerde vardı ben kaldımm bu program bana lazımdı yapamamıstım gecen sene

mavi ekranı göre göre 1 yıl heryeri mavi görür olmustuk ama genede 4 ile geçtim en sonda nota programı yapmısm yıllık ödev olarak da köpek yarıstırmıstım çok zor bir dildir ama simdi çok isime yarıyor oglu olan delphi yi kullanıyorum ve pascalın etkisi çok mantıken aynı kodları biraz faklı olsada isleyisi aynıdır sana tek bir ögüt vereyim pascalı unutma kalsanda unutma..