Szerző Téma: Számológép [PASCAL]  (Megtekintve 6063 alkalommal)

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Számológép [PASCAL]
« Dátum: 2012. Szeptember 04. - 21:17:07 »
+1
Üdv.
Az elõbb írtam egy számológépet pascal nyelven.
A kód szabadon felhasználható a készítõ (JBauer) nevének feltüntetésével!
A kódot teszteltem, mûködik.
Íme:
program Szamologep;
var melyik,szam1,szam2:integer;
begin
        writeln(\'========///\\\\\\Számológép///\\\\\\========\');
        writeln(\'Kérlek írd be, hogy melyik mûvelettel szeretnél dolgozni!\');
        writeln(\'1 = összeadás, 2 = kivonás, 3 = szorzás, 4 = osztás\');
        writeln(\'Minden mûveletnél csak 2 tagot használhatsz!\');
        readln(melyik);
        if melyik = 1 then begin
                                writeln(\'Összeadás: Írd be az elsõ tagot!\');
                                readln(szam1);
                                writeln(\'Ok‚, most írd be a második tagot!\');
                                readln(szam2);
                                writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') összege: \', szam1+szam2, \'!\');
                                szam1:=0;
                                szam2:=0;
                        end;
        if melyik = 2 then begin
                                writeln(\'Kivonás: Írd be az elsõ tagot!\');
                                readln(szam1);
                                writeln(\'Ok, most Írd be a második tagot!\');
                                readln(szam2);
                                writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') kivonata: \', szam1-szam2, \'!\');
                                szam1:=0;
                                szam2:=0;
                        end;
        if melyik = 3 then begin
                                writeln(\'Szorzás: Írd be az elsõ tagot!\');
                                readln(szam1);
                                writeln(\'Ok, most Írd be a második tagot!\');
                                readln(szam2);
                                writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') szorzata: \', szam1*szam2, \'!\');
                                szam1:=0;
                                szam2:=0;
                        end;
        if melyik = 4 then begin
                                writeln(\'Osztás: Írd be az elsõ tagot!\');
                                readln(szam1);
                                writeln(\'Ok‚ most írd be a második tagot!\');
                                readln(szam2);
                                writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') hányada: \', szam1/szam2, \'!\');
                                szam1:=0;
                                szam2:=0;
                        end;
       writeln(\'========///\\\\\\Számológép///\\\\\\========\');
       writeln(\'A scriptet JBauer készítette, szabadon felhasználható a készítõ nevének feltûntetésével!\');
end.

 
Remélem tetszeni fog!
Üdv. JBauer

Nem elérhető rhassi

  • 624
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #1 Dátum: 2012. Szeptember 04. - 22:38:33 »
0
Én is írtam ilyet c++-ban de már nem emlékszek a dolgokra.

Nem elérhető DrAkE

  • 2078
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #2 Dátum: 2012. Szeptember 04. - 22:49:08 »
0
A \"szam1\" változónak nem integer típust kellene adni?

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #3 Dátum: 2012. Szeptember 05. - 06:32:43 »
0
Az van adva mind a 3-nak

Nem elérhető P3ti

  • 321
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #4 Dátum: 2012. Szeptember 05. - 15:34:03 »
+2
Jó lett ;)
De ha már számológépet csinálsz, lehetne grafikus felület + tudományos számológépben megtalálható funkciók.
(ez csak egy ötlet, ha szeretnéd tovább fejleszteni)

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #5 Dátum: 2012. Szeptember 06. - 19:46:59 »
0
Köszönöm mindenkinek.
P3ti: Gondolkodtam rajta, de egyenlõre elvetettem az ötletet, mivel még csak most tanulom a Pascalt, majd késõbb esetleg megvalósítom.

Nem elérhető Gabor..

  • 1883
  • Gabor..
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #6 Dátum: 2012. Szeptember 06. - 19:57:54 »
0
Én egy ilyesmit C++-ban írtam. Ajánlom azt a programnyelvet. ;) Pascalt már elég kevés helyen használnak.

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #7 Dátum: 2012. Szeptember 06. - 20:00:30 »
0
Nem rossz ötlet, csak a suliban a tanár most ismételteti velünk amit 7.-ben tanultunk és azért írtam. De megfontolom.

Nem elérhető Gabor..

  • 1883
  • Gabor..
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #8 Dátum: 2012. Szeptember 06. - 20:03:37 »
0
Idézetet írta: JBauer date=1346954430\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"27384\" data-ipsquote-contentclass=\"forums_Topic
Nem rossz ötlet, csak a suliban a tanár most ismételteti velünk amit 7.-ben tanultunk és azért írtam. De megfontolom.
 
Ilyet tanultatok 7.-ben? :O Összetenném kezem-lábam, ha ilyet tanulnánk informatika órán.  ??? Am milyen suliba jársz?

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #9 Dátum: 2012. Szeptember 06. - 20:04:40 »
0
Jaja, még külön könyvet is kaptunk a Pascal miatt. Most Informatikai-Matematikai szakra járok.

Számológép [PASCAL]
« Válasz #10 Dátum: 2012. Szeptember 06. - 20:23:57 »
0
Csak kérdezem, hogy ezt SA:MP-ban hogyan lehet használni? Csak mert ez a fórum a SA:MP-ról szól,  nem?
De amúgy jó program, bár én hasonlót tudnék irni batch-ba, na de igy kell kezdeni... ;D
Fõleg, hogy Pascal-ban már nem tudnám megirni...

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #11 Dátum: 2012. Szeptember 06. - 20:41:45 »
0
Ezt? Sehogy, de ez a fórumrész nem csak a sampról szól, nézz csak körül, itt vannak játékok stb..

Számológép [PASCAL]
« Válasz #12 Dátum: 2012. Szeptember 07. - 16:51:23 »
0
Megcsináltam de mikor megnyitom a progit beírom az elsõ és a második tagot akkor utánna leáll a progi nem számolja ki...
Itt a kép amúgy ahogy megcsináltam:
[hs width=300 height=300]http://kepfeltoltes.hu/120907/szamologep_www.kepfeltoltes.hu_.jpg[/hs]

Nem elérhető JBauer

  • 1407
    • Profil megtekintése
Számológép [PASCAL]
« Válasz #13 Dátum: 2012. Szeptember 07. - 22:19:59 »
0
Miután eltûnt a fekete ablak nyomj egy ALT+F5-öt.

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal