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.