paprikaskrumpli

Tisztelt Jack6666! Itt ülsz mögöttem...most,hogy tudod,hogy válaszolok,és utasitottalak arra,hogy ne nézd,hogy mit irok,hogy meglepetés legyen... Szóval Jack... Ez egy raktárprogram:D (Jack666 épp most mondta a tanárnak,hogy nem tud programozni)! Na amit én csináltam azt bemásolom neked,de ird át... Orát kivenni...,case átirni ifre stb...ha lebukok neked annyi és tudod,hogy én megütlek:D Uses Crt,Dos; Var nev:Char; osszeg,keszlet,keszlet1,eredmeny:Real; valtozo:Text; o,p,m,s:Word; Procedure kesz; Begin Assign(valtozo,'k:\raktar\keszlet.txt'); Reset(valtozo); Readln(valtozo,keszlet); Close(valtozo); End; Procedure ujossz; Begin eredmeny:=keszlet-osszeg; Assign(valtozo,'k:\raktar\keszlet.txt'); Rewrite(valtozo); Write(valtozo,eredmeny:3:4); Close(valtozo); End; Procedure ora; Begin GetTime(o,p,m,s); Gotoxy(30,2); Writeln(o,':',p,':',m,':',s); End; Procedure kiiras; Begin ora; Textcolor(red); Gotoxy(33,1); Writeln('Rakt r'); Textcolor(White); Gotoxy(35,16); Writeln('A : Anita'); Gotoxy(35,17); Writeln('G : Gabor'); Gotoxy(35,18); Writeln('J : Janos'); Gotoxy(35,19); Writeln('L : Lajos'); Gotoxy(35,20); Writeln('S : Sandor'); Gotoxy(15,30); Writeln('Ki szeretne kivenni a raktarbol?: '); Gotoxy(49,30); Readln(nev); Case nev Of 'A':Begin Clrscr; Gotoxy(15,20); Writeln('Mennyi osszeget akarsz kivinni: '); Gotoxy(47,20); Readln(osszeg); kesz; Assign(valtozo,'k:\raktar\anita.txt'); Append(valtozo); Write(valtozo,osszeg); Close(valtozo); ujossz; End; 'G':Begin Clrscr; Gotoxy(15,20); Writeln('Mennyi osszeget akarsz kivinni: '); Gotoxy(47,20); Readln(osszeg); kesz; Assign(valtozo,'k:\raktar\gabor.txt'); Append(valtozo); Write(valtozo,keszlet-osszeg); Close(valtozo); ujossz; End; 'L':Begin Clrscr; Gotoxy(15,20); Writeln('Mennyi osszeget akarsz kivinni: '); Gotoxy(47,20); Readln(osszeg); kesz; Assign(valtozo,'k:\raktar\lajos.txt'); Append(valtozo); Write(valtozo,osszeg); Close(valtozo); ujossz; End; 'J':Begin Clrscr; Gotoxy(15,20); Writeln('Mennyi osszeget akarsz kivinni: '); Gotoxy(47,20); Readln(osszeg); kesz; Assign(valtozo,'k:\raktar\janos.txt'); Append(valtozo); Write(valtozo,osszeg); Close(valtozo); ujossz; End; 'S':Begin Clrscr; Gotoxy(15,20); Writeln('Mennyi osszeget akarsz kivinni: '); Gotoxy(47,20); Readln(osszeg); Assign(valtozo,'k:\raktar\sandor.txt'); Append(valtozo); Write(valtozo,osszeg); Close(valtozo); ujossz; End; End; End; Procedure ossz; Begin ora; Assign(valtozo,'k:raktar/keszlet.txt'); Reset(valtozo); Readln(valtozo,keszlet); Close(valtozo); End; Begin clrscr; kiiras; ujossz; Readkey; End.