IT 3 Sem.
Pierwsze forum tech. gier sieciowych
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum IT 3 Sem. Strona Główna
->
At school
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Forum IT
----------------
At school
After school
Hydepark
----------------
FFA
Przegląd tematu
Autor
Wiadomość
Gość
Wysłany: Wto 15:17, 06 Mar 2007
Temat postu:
program spis;
uses crt;
type
dane=record
imie:string[20];
nazwisko:string[20];
telefon:string[10];
end;
var osoba:dane;
a:text;
rec,pyt,wiersz:string;
begin
clrscr;
assign(a,'baza.txt');
rewrite(a);
repeat
writeln('Podaj swoje dane:');
write('Imi©: ');
readln(osoba.imie);
write('Nazwisko: ');
readln(osoba.nazwisko);
write('Nr. Telefonu: ');
readln(osoba.telefon);
writeln;
writeln;
writeln(a,'Podane dane: ');
writeln(a,'Imie: ', osoba.imie);
writeln(a,'Nazwisko: ', osoba.nazwisko);
writeln(a,'Telefon: ', osoba.telefon);
writeln('Wprowadzic nowy rekord? [t/n]');
readln(rec);
until rec='n';
close(a);
writeln('wyswietlic baze? [t/n]');
readln(pyt);
if pyt='t' then
begin
assign(a,'baza.txt');
reset(a);
while not eof(a) do
begin
readln(a,wiersz);
writeln(wiersz);
end;
end;
readln;
close(a);
end.
Shadi
Wysłany: Wto 14:18, 27 Lut 2007
Temat postu: pascal baza danych
program spis;
uses crt;
type
dane=record
imie:string[20];
nazwisko:string[20];
telefon:string[10];
end;
var osoba:dane;
a:text;
rec:string;
begin
clrscr;
assign(a,'baza.txt');
rewrite(a);
repeat
writeln('Podaj swoje dane:');
write('Imi©: ');
readln(osoba.imie);
write('Nazwisko: ');
readln(osoba.nazwisko);
write('Nr. Telefonu: ');
readln(osoba.telefon);
writeln;
writeln;
writeln(a,'Podane dane: ');
writeln(a,'Imie: ', osoba.imie);
writeln(a,'Nazwisko: ', osoba.nazwisko);
writeln(a,'Telefon: ', osoba.telefon);
writeln('Wprowadzic nowy rekord? [t/n]');
readln(rec);
until rec='n';
readln;
close(a);
end.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin