program sklep;
uses crt;
var
wybor,znak,wybor_poczatkowy,wybor_admin,czy_poczatek:char;
haslo:string;
cena,ile:real;
do_zaplaty,utarg:real;
ilosc:integer;
begin
clrscr;
repeat
writeln('Wybierz tryb:');
writeln('Klient ');
writeln('Administracja sklepu ');
readln(wybor_poczatkowy);
wybor_poczatkowy:=upcase(wybor_poczatkowy);
IF wybor_poczatkowy='K' then
begin
clrscr;
{gdy uzyje zmiennej double - wyskakuje blad}
gotoxy(15,1);
writeln('Witaj w naszym sklepie! Chcesz cos kupic? t/n');
writeln;
readln(wybor);
wybor:=upcase(wybor);
IF wybor='N' then
begin
writeln('Zapraszamy ponownie!');
end
else
ilosc:=0;
utarg:=0;
repeat
utarg:=utarg+do_zaplaty;
ilosc:=ilosc+1;
writeln('Wybrales kupowanie. podaj ilosc');
readln(ile);
writeln('Podaj cene artykulu');
readln(cena);
do_zaplaty:=do_zaplaty+(cena*ile);
writeln('Czy chcesz kupowac dalej? t/n');
readln(znak);
znak:=upcase(znak);
until znak='N';
writeln('Dziekujemy! Kupiles ',ilosc,' Prodkt(ow), Nalezy sie ',do_zaplaty:2:2,' zl');
writeln('Chcesz powrocic do poczatku? t/n');
readln(czy_poczatek);
czy_poczatek:=upcase(czy_poczatek);
until czy_poczatek='t';
end;
IF wybor_poczatkowy='A' then
begin
clrscr;
writeln('Wybrales Panel Administracyjny');
write('Podaj haslo: ');
writeln('Pamieta, masz tylko jedna probe!');
read(haslo);
{Haslo to: sklep}
IF haslo='sklep' then
begin
clrscr;
writeln('Dostep przyznano.');
writeln;
writeln('Co chcesz zrobic?');
writeln('Dzienny utarg ');
writeln('Koniec ');
readln(wybor_admin);
wybor_admin:=upcase(wybor_admin);
IF wybor_admin='D' then
begin
writeln(utarg);
readln;
end;
end;
end;
readln;
end.
na poczatek proponuje sobie go wklepac do jakiegos kompilatora zeby zobaczyc jak działa (w sumie po kodzie mozna zrozumiec conieco)
jest to program torszke prymitywny ale nie o to idzie.
program na samym poczatku ma wybor:
klient
admin
stworzylem to po to aby mozna bylo wyswietlic dzienny utarg z wszystkich zakupow.
czyli do_zaplaty kazdego klienta wzucilem do jednego koszyczka czyli utarg.
i teraz dziala to troche nieudolnie, bo jak wybiore klient, zrobie zakupy to koniec programu, a mi chodzi o to, aby po kazdych zakonczonych zakupach program zapytal czy powrocic do samego poczatku (wybor klient-admin)
i w tym prymitywnym panelu admina wyswietliła sie wartosc wszystkich zakupow czyli zmiennej utarg bądź tez jak widac zakonczenie działania bez wyswietlania tej zmiennej. proszę o pomoc
probowalem to upiąc w pętelke repeat ale coś mi nie idzie ;s