prosba o prosty programik w tp

witam

mam goraca prosbe

czy ktos moglby mi podeslac prosty programik napisany w tp?
temat dowolny, jedyny warunek to iz program ma sie odwolywac do innego pliku
przegladalem dostepne programy ale nic takiego nie widze, jedynie co to bazy danych, bo przeciez one odwoluja sie do innego pliku, ale chyba nie o to chodzilo

z powodu choroby nie chodzilem caly semestr na zajecia,
teraz zostalem juz skreslony z listy i mam tylko 2 tygodnie na "reaktywacje" czyli pozaliczac wszystkie przedmioty

jesli ktos mogly mi pomoc bylbym wdzieczny

pozdrawiam
darek

dareksin@_WYTNIJ_ANTI_SPAMIK_wp.pl

Zapraszam na strone http://gege01.prv.pl

W zakladce pomoce masz zbiór programów z laboratorium podstaw informatyki (TURBO PASCAL) z 1-go i 2-go semestru. Moze cos tam znajdziesz, co Cie interesuje.

Pozdrawiam.

Witam,

może coś takiego będzie dobre???

program lp;

uses crt, windos, dos; { uzywane moduly }

var plik: text;
login, passwd, lg, pd: string; { zmienne }
S: array[0..fsPathName] of Char;

procedure s_log(err: integer);
begin
if err=0 then
begin
clrscr; { czyszczenie ekranu }
writeln('Podaj haslo i login');
end else
begin
writeln;
writeln('Bledne haslo/login - sprobuj raz jeszcze :-)');
writeln;
end;
write('Login:');
readln(Login); { odczytaj i przenies do Log }
write('Password:');
readln(passwd); { odczytaj i przenies do Passwd }
readln(plik,lg); { odczytaj z pliku login }
readln(plik,pd); { odczytaj z pliku passwd }
if (lg=login) or (pd=passwd) then s_log(1);
if (lg<>login) or (pd<>passwd) then s_log(1);
if (lg=login) and (pd=passwd) then
begin
close(plik);
end;
end;

procedure s_file;
begin
assign(plik,'data.dat'); { oznacz plik data.dat }
{ szukanie pliku }
FileSearch(S, 'data.dat', GetEnvVar('PATH'));
if S[0]=#0 then
begin { jesli nie istnieje }
rewrite(plik); { utworz nowy }
writeln(plik,'default'); { zapisz do pliku "default" }
writeln(plik,'march'); { = = = "march" }
s_log(0);
end else s_log(0); { jesli plik istnieje }
end;

begin
s_file;
s_log(0);
end.