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

• #2482 Maneszproger csendes tag

  Új Válasz 2011-09-16 14:58:59 #2482

  Ú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

  No, ma délután elkezdtem írni egy négyműveletes számológépet.
  Picit hosszú, de beírom.Lefordítani lefordítja ha teszek veszőspontot az End-ek után, de be is zárja, és nem írja ki az eredményt! Akkor se ha rosszat írok be direkt.

  program szamologep;
  uses crt;
  var a,b,c,d,e,f,g,h,i,j,k: integer;
  l: real;
  muvelet: string;
  
  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, pontosan melyik műveletet akarod végrehajtatni!');
  writeln ('Összeadás-Kivonás-Szorzás-Osztás');
  readln (muvelet);
  If muvelet = 'Összeadás' 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;
  If muvelet = 'Kivonás' 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;
  If muvelet = 'Szorzás' 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;
  If muvelet = 'Osztás' 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 pontosan úgy írd be a művelet');
  writeln ('megnevezését, mint ahogy ki van írva pl.: Kivonás');
  End;
  
  writeln (Köszönöm hogy használtad a programot!');
  readln;
  End.

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