| |
Turbo Pascal Twoje źródło wiedzy o Turbo Pascalu. |
|
|
|
|
|
 |
Wto 18:51, 16 Maj 2006 |
 |
 Autor |
Wiadomość |
Patrycja
Początkujący
Dołączył: 20 Kwi 2006
Posty: 6
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: typ rekordowy |
|
|
Witam :) , mam za zadanie utworzenie typu rekordowego opisującego psa. Mam zdeklarować tablice , która zawiera 5 elementów utworzonego typu, wczytac do niej zawartość dwóch pól dla wszystkich rekordów a następnie wyswietlic je na ekranie. Za pomoc z góry bardzo ale to bardzo dziękuje
Post został pochwalony 0 razy
|
|
| |
|
|
|
|
|
 |
|
Śro 17:17, 17 Maj 2006 |
|
| Autor |
Wiadomość |
klakier
Początkujący
Dołączył: 17 Lut 2006
Posty: 11
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Chodziło Ci o coś takiego?
| Kod: | program rekordzik;
type
Tpies = record
imie: string;
rasa: string;
kolor: string;
wiek: byte;
dlugosc: real;
end;
var
pies: array[1..2] of Tpies;
i: shortint;
begin
pies[1].imie := 'Heniek';
pies[2].imie := 'Bodzio';
pies[1].rasa := 'Owczarek niemiecki';
pies[2].rasa := 'Jamnik';
pies[1].kolor := 'Czarny';
pies[2].kolor := 'Brązowy';
pies[1].wiek := 10;
pies[2].wiek := 4;
pies[1].dlugosc := 110.00;
pies[2].dlugosc := 100.00;
for i := 1 to 2 do
begin
writeln('Pies ',i);
writeln('Imie: ',pies[i].imie);
writeln('Rasa: ',pies[i].rasa);
writeln('Kolor: ',pies[i].kolor);
writeln('Wiek: ',pies[i].wiek);
writeln('Dlugosc: ',pies[i].dlugosc:4:2);
writeln;
end;
readln;
end. |
Post został pochwalony 0 razy
|
|
| |
|
|
|
Śro 18:09, 17 Maj 2006 |
|
| Autor |
Wiadomość |
Patrycja
Początkujący
Dołączył: 20 Kwi 2006
Posty: 6
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Bardzo dziękuje :) :) :) za tak szybką odpowiedź :wink: a jak utworzyc grupe trzech osób o nazwie klasa , wczytac dane tych uczniów oraz zapisac je do pliku tekstowego??
Post został pochwalony 0 razy
|
|
| |
|
|
|
Czw 17:09, 18 Maj 2006 |
|
| Autor |
Wiadomość |
rafael
Administrator
Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
Skąd: Pszczyna
|
| Temat postu: |
|
|
Jakby coś było nie tak to napisz co w nim zmienić :wink:
| Kod: | program rekordzik;
type
Tklasa = record
imie: string;
plec: string;
wzrost: real;
end;
var
klasa: array[1..3] of Tklasa;
plik: text;
i: shortint;
begin
klasa[1].imie := 'Yayko';
klasa[2].imie := 'Rafael';
klasa[3].imie := 'Edi';
klasa[1].plec := 'chłopak';
klasa[2].plec := 'chłopak';
klasa[3].plec := 'dziewczyna';
klasa[1].wzrost := 140.20;
klasa[2].wzrost := 167.15;
klasa[3].wzrost := 199.99;
assign(plik,'klasa.dan');
rewrite(plik);
for i := 1 to 3 do
begin
writeln(plik,'Imie: ',klasa[i].imie);
writeln(plik,'Plec: ',klasa[i].plec);
writeln(plik,'Wzrost: ',klasa[i].wzrost:4:2);
writeln(plik);
end;
close(plik);
readln;
end. |
Post został pochwalony 0 razy
|
|
| |
|
|
|
Czw 17:28, 18 Maj 2006 |
|
| Autor |
Wiadomość |
Patrycja
Początkujący
Dołączył: 20 Kwi 2006
Posty: 6
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Oj bardzo, bardzo Ci dziękuję:):)Co ja bym zrobiła bez tego forum;)), i bez Waszej pomocy:):)
Post został pochwalony 0 razy
|
|
| |
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
|
|
|
|
|
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
Pytania 
