Új hozzászólás Aktív témák

• #2489 Maneszproger csendes tag Gyuri16 #2488

  Új Válasz 2011-09-16 15:58:20 #2489

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2488 üzenetére

  program szamologep;
  uses crt;
  var a,b,c,d,e,f,g,h,i,j,k: integer;
  l: real;
  muvelet: integer;
  
  Begin
  clrscr;
  writeln ('Üdvözöllek! Ez egy számológép program.');
  writeln ('A program egész számokkal dolgozik, de az osztást 4 tizedesig írja ki!');
  writeln (Kérlek gépeld be, a végrehajtandó művelet kódszámát!');
  writeln ('Összeadás (1) -Kivonás (2) -Szorzás (3) -Osztás (4) ');
  readln (muvelet);
  If muvelet = 1 then
  Begin
  writeln ('Az összeadást választottad. Kérlek add meg az első összeadandót!');
  readln (a);
  writeln ('Most pedig a másik összeadandót!');
  readln (b);
  c := a + b ;
  writeln ('Az eredmény pedig: ',c,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!);
  End;
  If muvelet = 2 then
  Begin
  writeln ('A kivonást választottad. Kérlek add meg a kisebbítendőt!');
  readln (d);
  writeln ('Most pedig a kivonandót!');
  readln (e);
  f := d - e ;
  writeln ('Az különbség pedig: ',f,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!);
  End;
  If muvelet = 3 then
  Begin
  writeln ('A szorzást választottad. Kérlek add meg a szorzandót!');
  readln (g);
  writeln ('Most pedig a szorzót!');
  readln (h);
  i := g * h ;
  writeln ('Az eredmény pedig: ',i,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!);
  End;
  If muvelet = 4 then
  Begin
  writeln ('Az osztást választottad. Kérlek add meg az osztandót!');
  readln (j);
  writeln ('Most pedig az osztót!');
  readln (k);
  l := j / k ;
  writeln ('Az eredmény pedig: ',l:0:4,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!');
  End;
  
  writeln (Köszönöm hogy használtad a programot!');
  readln;
  End.

  Jelenleg így néz ki.

Új hozzászólás Aktív témák