- Kínai tech-túra összefoglaló
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Megvásárolható a Vivo X300 és X300 Pro Magyarországon, íme a hivatalos árak
- Fotók, videók mobillal
- Samsung Galaxy S25 - végre van kicsi!
- Motorola Edge 40 - jó bőr
- iPhone topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Xiaomi 15T Pro - a téma nincs lezárva
- Poco F7 – bajnokesélyes
Új hozzászólás Aktív témák
-
jeti128
csendes tag
itt va az asztalok procedurában van a hiba:
uses dos ,crt;
Label 1;
var
a, b, a1, a2, a3, a4, a5, a6, a7, b1, b2, b3, b4, b5, b6, b7 : string;
ar, g, dkg, Kg, m, t, mertekr : Longint;
so, sor, sok, cukor , cukorr, cukork, pirospaprika, pirospaprikar, pirospaprikak, liszt, lisztr, lisztk : Longint;
tartozas, asztal, asztal1, asztal2, asztal3, asztal4, asztal5, asztal6, asztal7 : Byte;
menux, menu, menu1, c ,cc, c1 ,c2 ,c3 ,c4 ,c5 ,c6 ,c7 : Char;
mertek : Word;
procedure Raktarkeszlet;
label 1,2,3,4,5,6,7,8;
begin
1: Repeat
Clrscr;
Writeln('1. Raktárkészlet feltöltés');
Writeln('2. Raktárkészlet ellenörzése');
Writeln('9. Kilépés');
Writeln;
Write('Válaszon egy számot : ');
Read(menu);
case menu of
'1' : Goto 2;
'2' : Goto 3;
End
Until (menu = '9');
Goto 8;
2
epeat
Clrscr;
Writeln('1. So');
Writeln('2. Cukor');
Writeln('3. Pirospaprika');
Writeln('4. Liszt');
Writeln('9, Kilépés');
Writeln;
Write('Válaszon egy számot : ');
Read(menu);
Case menu of
'1' : Goto 4;
'2' : Goto 5;
'3' : Goto 6;
'4' : Goto 7;
End
Until (Menu = '9');
Goto 1;
4: Clrscr;
Read(so);
Read(mertek);
Case mertek of
1 : mertekr := g;
2 : mertekr := dkg;
3 : mertekr := Kg;
4 : mertekr := m;
5 : mertekr := t;
end;
sor := sor + so * mertekr;
goto 2;
5: Clrscr;
read(cukor);
Read(mertek);
Case mertek of
1 : mertekr := 1;
2 : mertekr := dkg;
3 : mertekr := Kg;
4 : mertekr := m;
5 : mertekr := t;
end;
cukorr := cukorr + cukor * mertekr;
goto 2;
6: Clrscr;
read(pirospaprika);
Read(mertek);
Case mertek of
1 : mertekr := 1;
2 : mertekr := dkg;
3 : mertekr := Kg;
4 : mertekr := m;
5 : mertekr := t;
end;
pirospaprikar := pirospaprikar + pirospaprika * mertekr;
goto 2;
7: Clrscr;
Read(liszt);
Read(mertek);
Case mertek of
1 : mertekr := 1;
2 : mertekr := dkg;
3 : mertekr := Kg;
4 : mertekr := m;
5 : mertekr := t;
end;
lisztr := lisztr +liszt * mertekr;
goto 2;
3: Repeat;
Clrscr;
Writeln('So : ', sor);
Writeln('Cukor : ', cukorr);
Writeln('Pirospaprika : ', pirospaprikar);
Writeln('Liszt : ', lisztr);
Writeln('Kilépéshez nyomj <Enter>-t');
Read(menu);
Until (menu = '9');
menu := '0';
Goto 1;
8: End;
Procedure asztalok;
label 1, 2, 3, 4, 5, 6, 7, 8, 9,10, 11, 12, 13, 14, 15, 16,17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, 36, 37, 38, 39;
begin
1: Repeat;
Clrscr;
Writeln('1. Asztalfoglalás');
writeln('2. Számla ellenörzése');
Writeln('3. Számla kifizetése');
Writeln('q. Kilépés');
Writeln('Válaszon egy számot : ');
Read(menu);
case menu of
'1' : Goto 17;
'2' : Goto 2;
'3' : Goto 3;
end;
Until (menu = 'e');
Goto 32;
2: Repeat;
Clrscr;
Writeln('Melyik asztalra vagy kiváncsi : ');
Read(menu);
case menu of
'1' : goto 5;
'2' : goto 6;
'3' : goto 7;
'4' : Goto 8;
'5' : Goto 9;
'6' : Goto 10;
'7' : Goto 11;
end;
Until (menu = 'e');
goto 1;
12: Repeat
Clrscr;
Writeln(menu, 'asztal tartozása : ', tartozas);
Writeln(a, ' ', b);
Read(menu);
Until (menu = 'q');
Goto 1;
3: Repeat;
clrscr;
Writeln('Melyik asztal kiván fizetni és távozni : ');
Read(menu);
a := '0';
b := '0';
asztal := 0;
case menu of
'1' : goto 13;
'2' : goto 14;
'3' : goto 15;
'4' : Goto 16;
'5' : Goto 28;
'6' : Goto 29;
'7' : Goto 30;
end;
Until (menu = 'q');
Goto 1;
17: c := 'u';
Repeat;
Clrscr;
Writeln('Melyik aztalhoz érkeztek : ');
Read(menu);
Case menu of
'1', '2', '3', '4', '5', '6', '7': Goto 18;
End;
Until (menu = 'e');
goto 1;
18: case menu of
'1' : c := c1;
'2' : c := c2;
'3' : c := c3;
'4' : c := c4;
'5' : c := c5;
'6' : c := c6;
'7' : c := c7;
end;
if (c <> 'u') then Goto 31;
33: Begin
Clrscr;
Write('Családnév : ');
Readln(a);
Write('Keresztnév : ');
Readln(b);
End;
case menu of
'1' : goto 26;
'2' : goto 20;
'3' : goto 21;
'4' : Goto 22;
'5' : Goto 23;
'6' : Goto 24;
'7' : Goto 25;
end;
27: Clrscr;
Writeln(menu ,' Asztal');
Writeln('Családnév : ' ,a);
Writeln('Keresztnév : ' ,b);
Writeln('Jok az adatok (i/n) : ');
Read(menu1);
if (menu1 <> 'i') then goto 33;
goto 1;
31: Repeat;
Clrscr;
Writeln('Az asztal már foglalt');
Read(menu);
Until (menu = 'q');
Goto 17;
13: a := a1;
b := b1;
asztal := asztal1;
c1 := 'u';
Goto 3;
14: a := a2;
b := b2;
asztal := asztal2;
c2 := 'u';
goto 3;
15: a := a3;
b := b3;
asztal := asztal3;
c3 := 'u';
goto 3;
16: a := a4;
b := b4;
asztal := asztal4;
c4 := 'u';
goto 3;
28: a := a5;
b := b5;
asztal := asztal5;
c5 := 'u';
goto 3;
29: a := a6;
b := b6;
asztal := asztal6;
c6 := 'u';
goto 3;
30: a := a7;
b := b7;
asztal := asztal7;
c7 := 'u';
goto 3;
5: a1 := a;
b1 := b;
tartozas := asztal1;
Goto 12;
6: a2 := a;
b2 := b;
tartozas := asztal2;
goto 12;
7: a3 := a;
b3 := b;
tartozas := asztal3;
goto 12;
8: a4 := a;
b4 := b;
tartozas := asztal4;
goto 12;
9: a5 := a5;
b5 := b;
tartozas := asztal5;
goto 12;
10: a6 := a;
b6 := b;
tartozas := asztal6;
goto 12;
11: a7 := a;
b7 := b;
tartozas := asztal7;
goto 12;
26: a := a1;
b := b1;
c1 := 'f';
Goto 27;
20: a := a2;
b := b2;
c2 := 'f';
goto 27;
21: a := a3;
b := b3;
C3 := 'f';
goto 27;
22: a := a4;
b := b4;
c4 := 'f';
goto 27;
23: a := a5;
b := b5;
c5 := 'f';
goto 27;
24: a := a6;
b := b6;
c6 := 'f';
goto 27;
25: a := a7;
b := b7;
c7 := 'f';
goto 27;
32: End;
Procedure Rendeles;
Label 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
begin
1: Repeat;
Clrscr;
Writeln('1. Leves');
Writeln('2. Pörkölt');
Writeln('3. Gulyás');
Writeln('q. Kilépés');
Writeln('Válasz egy számot : ');
Read(menu);
case menu of
'1' : Goto 2;
'2' : Goto 3;
'3' : Goto 4;
end;
menu := '0';
Until (menu = 'q');
Goto 13;
2: ar := 2500;
sok := 10 * g;
cukork := 20 * dkg;
pirospaprikak := 15 * g;
lisztk := 25 * dkg;
sor := sor - sok;
cukorr := cukorr - cukork;
pirospaprikar := pirospaprikar -pirospaprikak;
lisztr := lisztr -lisztk;
Goto 17;
3: ar := 4000;
sok := 12 * g;
cukork := 21 * Kg;
pirospaprikak := 13 * dkg;
lisztk := 23 * Kg;
sor := sor - sok;
cukorr := cukorr - cukork;
pirospaprikar := pirospaprikar -pirospaprikak;
lisztr := lisztr -lisztk;
Goto 17;
4: ar := 4500;
sok := 7 * dkg;
cukork := 7 * dkg;
pirospaprikak := 95 * dkg;
lisztk := 23 * Kg;
sor := sor - sok;
cukorr := cukorr - cukork;
pirospaprikar := pirospaprikar - pirospaprikak;
lisztr := lisztr - lisztk;
Goto 17;
16: if (sor <= 0) then goto 15;
if (cukor <= 0) then goto 15;
if (pirospaprikar <= 0) then goto 15;
if (lisztr <= 0) then goto 15;
goto 14;
9: if (sor <= 1 * Kg) then Goto 5;
10: if (Cukorr<= 1 * Kg) then Goto 6;
11: if (pirospaprikar <= 1 * Kg) then Goto 7;
12: if (lisztr <= 1 * Kg) then Goto 8;
Goto 1;
5: Repeat;
Clrscr;
Writeln('Kevés a só : ', sor);
Read(menu);
Until (menu = '1');
Goto 10;
6: Repeat;
Clrscr;
Writeln('Kevés a cukor : ', cukorr);
Read(menu);
Until (menu = '1');
Goto 11;
7: Repeat;
Clrscr;
Writeln('Kevés a pirospaprika : ', pirospaprikar);
Read(menu);
Until (menu = '1');
Goto 12;
8: Repeat;
Clrscr;
Writeln('Kevés a liszt : ', lisztr);
Read(menu);
Until (menu = '1');
Goto 1;
14: Repeat
Clrscr;
Writeln('Rendelés elfogadva');
Read(menu);
Until ( menu = '1');
goto 17;
15: sor := sor + sok;
cukorr := cukorr + cukork;
pirospaprikar := pirospaprikar + pirospaprikak;
lisztr := lisztr + lisztk;
Repeat
Clrscr;
Writeln('Rendelés elutasitva kevés az alapanyag');
Read(menu);
Until (menu = '1');
Goto 1;
17: Writeln('Melyik asztal rendelte : ');
Read(menux);
case menux of
'1' : c := c1;
'2' : c := c2;
'3' : c := c3;
'4' : c := c4;
'5' : c := c5;
'6' : c := c6;
'7' : c := c7;
end;
if (c <> 'f') then goto 18;
Case menux of
'1' : asztal1 := asztal1 + ar;
'2' : asztal2 := asztal2 + ar;
'3' : asztal3 := asztal3 + ar;
'4' : asztal4 := asztal4 + ar;
'5' : asztal5 := asztal5 + ar;
'6' : asztal6 := asztal6 + ar;
'7' : asztal7 := asztal7 + ar;
end;
Goto 1;
18: Repeat;
Clrscr;
Writeln('Rendelés elutasitva az asztalnál nem ül senki');
Writeln('Regisztráljon');
Read(menu);
Until (menu = 'q');
goto 17;
13: End;
begin
a := ' ';
b := ' ';
c1 := 'u';
c2 := 'u';
c3 := 'u';
c4 := 'u';
c5 := 'u';
c6 := 'u';
c7 := 'u';
sor := 0;
cukorr := 0;
pirospaprikar := 0;
lisztr := 0;
g := 1;
dkg := 10;
Kg := 1000;
m := 100000;
t := 1000000;
1: Repeat;
menu := '0';
Clrscr;
Writeln('1. Raktárkészlet');
Writeln('2. Rendelés');
Writeln('3. Asztal');
Writeln('q. Kilépés');
Writeln('Válasz egy számot : ');
Read(menu);
Case menu of
'1' : Raktarkeszlet;
'2' : Rendeles;
'3' : Asztalok;
End;
Until (menu = 'q');
End.
epeatÚj hozzászólás Aktív témák
- Garanciális // dobozos // MSI KATANA 15 B13V // i7-13620H // 16GB RAM // 1TB SSD // RTX 4070
- Philips TAB5109/10 SoundBar 120W - Új, 2 év garancia, akciós ár!
- Xiaomi 15 Ultra 5G 512GB, Kártyafüggetlen, 1 Év Garanciával
- 2017 CTO iMac 27" 5K - i7 4,2 GHz, 32 GB RAM, 512 GB SSD, Radeon Pro 580, Magic Mouse+ Numpad Keyb.
- Újszerű ERŐMŰ Lenovo P1 G3 (4K Intel Core I7 10850H 32Gb 1 Tb) Tervező/vágó/gamer - Nvidia 4Gb!
- Bomba ár! Lenovo ThinkPad T460 - i5-6GEN I 8GB I 128GB SSD I 14" HD I Cam I W10 I Garancia!
- Jawbone Up okoskarkötő, aktivitásmérő
- Konzol felvásárlás!! Playstation 5, Playstation 5 Pro
- Xiaomi Redmi Note 14 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Fractal Design Gamer PC - Intel i5-9600k 16GB 1000GB RTX 2060 1 év garancia!
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest