Darmowe Forum

W Pascalu istnieje mo¿liwoœÌ deklarowania w³asnych typów zmiennych.
PrzykÂład deklaracji nowego typu zmiennych o nazwie wycior bĂŞdÂącego tablicÂą 1000 elementowÂą.

program aa;
uses crt,dos;
type wycior= array[1..1000] of real;
var x,y,z:real;
a:wycior;
begin
  a[1]:=1;
   readkey;
end.

PrzykÂład 1. ZadeklarowaĂŚ trzy typy zmiennych , bĂŞdÂące typu tablicowego (tablice dwu i trĂłj wymiarowe).

program ramzes;
uses crt,dos;
type bobo=array['A'..'F',1..10] of integer;
aska=array[1..30] of byte;
lobo= array['A'..'H',1..10,1..10] of byte;
robo= array[1..10] of bobo;
var x:integer;
y:robo;
begin
       clrscr;
  {y[1,1,1]:=6;}
  readkey;
end.

PrzykÂład 2. ProszĂŞ napisaĂŚ program ktĂłry do tablic: imie, nazwisko, wiek, ocena wczyta dane wpisywane z klawiatury. Program wykonaĂŚ korzystajÂąc z procedur.


program ramzes2;
uses crt,dos;
var
imie: array[1..10] of string;
nazwisko:array[1..10] of string;
wiek:array[1..10] of byte;
ocena:array[1..10] of byte;
 a,c,d:integer;

 procedure wpisz( var a:integer);
 begin
 write('Podaj imie: ');readln(imie[a]);
 write('Podaj nazwisko: ');readln(nazwisko[a]);
 write('Podaj wiek: ');readln(wiek[a]);
 write('Podaj ocene: ');readln(ocena[a]);
 end;

procedure ktory;
var x:integer;
begin x:=0;
repeat
 x:=x+1;
 wpisz(x);
until x=4;
end;
procedure pokaz;
var a,b:integer;
begin
for a:=1 to 4 do begin
writeln('Imie: ',imie[a]);
 writeln('nazwisko: ',nazwisko[a]);
 writeln('wiek: ',wiek[a]);
 writeln('ocena: ',ocena[a]);
 writeln;
end;
end;

begin
       clrscr;
      ktory; clrscr;delay(1000);pokaz;
  readkey;
end.

Rekord -Typ rekordowy jest po³¹czeniem kilku tabel pod wspólna nazw¹.
Deklaracja zmiennej rekordowej ma postaĂŚ:

Nazwa zmiennej:record;
Nazwa-pola:typ-pola;
Nazwa pola :typ-pola;
end;

PrzykÂład deklaracji rekordu

Program rekord1;
uses crt,dos;
type
dane=record
imie:string[15];
nazwisko:string[20];
plec:char;
wiek:byte;
dochody: single;
miasto :string;
end;
var pracownik:dane;
begin end.

PrzykÂład 1. NapisaĂŚ program deklarujÂący typ rekordowy i zmiennÂą pracownik typu rekordowego. Nastepnie wczytaĂŚ do rekordu dane pracownika.

Program rekord1;
uses crt,dos;
type
dane=record
imie:string[15];
nazwisko:string[20];
plec:char;
wiek:byte;
dochody: single;
miasto :string;
end;
var pracownik: dane;
begin
write('Podaj nazwisko pracownika:');readln(pracownik.nazwisko);


end.

PrzykÂład 1A. Podobne do poprzedniego tylko z wszystkimi pytaniami.

Program rekord1;
uses crt,dos;
type
dane=record
imie:string[15];
nazwisko:string[20];
plec:char;
wiek:byte;
dochody: real;
miasto :string;
end;
var pracownik: dane;
begin  clrscr;
 write('Podaj imie pracownika:');readln(pracownik.imie);
write('Podaj nazwisko pracownika:');readln(pracownik.nazwisko);
write('Podaj nazwisko plec:');readln(pracownik.plec);
 write('Podaj nazwisko plec:');readln(pracownik.wiek);
 write('Podaj nazwisko plec:');readln(pracownik.dochody);
 write('Podaj nazwisko plec:');readln(pracownik.miasto);

  readkey;
end.

PrzykÂład 2. Rekordy gdy mamy kilku pracownikĂłw

Program rekord1;
uses crt,dos;
type
dane=record
imie:string[15];
nazwisko:string[20];
plec:char;
wiek:byte;
dochody: real;
miasto :string;
end;
var pracownik: array[1..5] of dane;
begin  clrscr;
 write('Podaj imie pracownika:');readln(pracownik[1].imie);
write('Podaj nazwisko pracownika:');readln(pracownik[1].nazwisko);
write('Podaj nazwisko plec:');readln(pracownik[1].plec);
 write('Podaj nazwisko plec:');readln(pracownik[1].wiek);
 write('Podaj nazwisko plec:');readln(pracownik[1].dochody);
 write('Podaj nazwisko plec:');readln(pracownik[1].miasto);
end.

PrzykÂład 3. ZmodyfikowaĂŚ przykÂład 2, tak aby moÂżna byÂło wprowadziĂŚ dane 5 pracownikĂłw. OgraniczyĂŚ wprowadzanie do 3 pierwszych pĂłl.

Program rekord1;
uses crt,dos;
type
dane=record
imie:string[15];
nazwisko:string[20];
plec:char;
wiek:byte;
dochody: real;
miasto :string;
end;
var pracownik: array[1..5] of dane;
a:byte;
begin  clrscr;
 for a:=1 to 5 do begin
 write('Podaj imie ',a,' pracownika:');readln(pracownik[a].imie);
write('Podaj nazwisko ',a,' pracownika:');readln(pracownik[a].nazwisko);
write('Podaj nazwisko plec:');readln(pracownik[a].plec);
write('Podaj wiek:');readln(pracownik[a].wiek);
 write('Podaj dochody:');readln(pracownik[a].dochody);
 write('Podaj miasto:');readln(pracownik[a].miasto);
  end;
  readkey;
end.

Zadanie 4. ZadeklarowaĂŚ rekord o nazwie uczen zawierajÂący pola : imie, nazwisko, data_urodzenia, miasto, ulica. NastĂŞpnie zadeklarowaĂŚ zmiennÂą  o nazwie baza bĂŞdÂącÂą tablicÂą ( dowolnej wielkoÂści) bĂŞdÂącej typu uczen.

program a;
uses crt,dos;
type uczen=record
imie: string;
nazwisko:string;
dat_ur: word;
miasto: string;
ulica: string;
end;

var baza:array[1..10] of uczen;
begin

end.

Zadanie ze sprawdzianu, poniedziaÂłek

program a;
uses crt,dos;
type dane=record
imie: string;
nazwisko:string;
wiek:integer;
plec:char;
dochody:word;
miasto: string;

end;

var pracownik:array[1..6] of dane;
var a:integer;
begin
  clrscr;
  for a:=1 to 6 do begin

  write('Podaj imie: ');readln(pracownik[a].imie);
  write('Podaj nazwisko: ');readln(pracownik[a].nazwisko);
  write('Podaj wiek: ');readln(pracownik[a].wiek);
  write('Podaj plec: ');readln(pracownik[a].plec);
  write('Podaj dochody: ');readln(pracownik[a].dochody);
  write('Podaj miasto: ');readln(pracownik[a].miasto);
 end;

Zadanie 6. NapisaĂŚ program ktĂłry deklaruje zmiennÂą czÂłowiek, bĂŞdÂącÂą typu rekordowego. W rekordzie proszĂŞ zadeklarowaĂŚ dwa pola: imie ,  masa_ciala. ZadeklarowaĂŚ zmiennÂą rank bĂŞdÂącÂą typu czlowiek. W programie g³ównym napisaĂŚ:
1. pĂŞtlĂŞ wprowadzajÂącÂą dane do pĂłl zmiennej rank.
2. Algorytm wyszukujÂący osobĂŞ o najmniejszej masie ciaÂła i wyÂświetlajÂący jego imiĂŞ i masĂŞ ciaÂła.


program a6;
uses crt,dos;
             type czlowiek=record
                                 imie: string;
                                 masa:real;
                                 end;


var rank : array[1..4] of czlowiek;
a,d:integer;
c:real;
begin   clrscr;
for a:=1 to 4 do
            begin
            write(a,'Podaj imie: ');readln(rank[a].imie);
            write('  Podaj mase ciala: ');readln(rank[a].masa);
            end;
             c:=rank[1].masa;

for a:=1 to 4 do begin
              if (rank[a].masa<c) then begin c:=rank[a].masa; d:=a;end;

                 end;
writeln('Osoba o najmniejszej masie ciala to...',rank[d].imie,' o masie: ',rank[d].masa:0:1);

 readkey;
end.


program a6;
uses crt,dos;
             type czlowiek=record
                                 imie: string;
                                 masa:real;
                                 end;


var rank : array[1..4] of czlowiek;
a,d:integer;
c:real;
procedure misio;begin  clrscr;
for a:=1 to 4 do
            begin
            write(a,'Podaj imie: ');readln(rank[a].imie);
            write('  Podaj mase ciala: ');readln(rank[a].masa);
            end;
             c:=rank[1].masa;

for a:=1 to 4 do begin
              if (rank[a].masa<c) then begin c:=rank[a].masa; b:=a;end;

                 end;
writeln('Osoba o najmniejszej masie ciala to...',rank[d].imie,' o masie: ',rank[d].masa:0:1);

 readkey;     end;
 begin
 misio;
end.

NapisaĂŚ program ktĂłry prosi o podanie nazwiska i oceny ucznia. Imie i nazwisko umieszczone ma zostaĂŚ w rekordzie. ZadeklarowaĂŚ tablicĂŞ rekordĂłw skÂładajÂąca siĂŞ z 10 pĂłl. NastĂŞpnie wprowadziĂŚ zmienne (nazwisko, ocena). WykorzystujÂąc sortowanie uporzÂądkowaĂŚ uczniĂłw w kolejnoÂści otrzymanych ocen.

program as;
uses crt, dos;
type
uczen = record
nazwisko: string;
ocena: Byte;
end;
procedure Sort(var X: array of uczen);
var
Temp: uczen;
i: Integer;
zmiana: Boolean;
begin
repeat
zmiana:= False;
for i:= 0 to High(X) - 1 do
if X.ocena < X[i + 1].ocena then
begin
Temp:= X;
X:= X[i + 1];
X[i + 1]:= Temp;
zmiana:= True;
end;
until not zmiana;
end;
var
uczniowie: array [0 .. 9] of uczen;
i: Integer;
begin
Writeln('Prosze podac nazwiska i oceny 10 uczniow');
for i:= 0 to High(uczniowie) do
begin
Write('Uczen #', i + 1, ' nazwisko : ');
Readln(uczniowie.nazwisko);
Write('uczen #', i + 1, ' ocena : ');
Readln(uczniowie.ocena);
Writeln;
end;
Sort(uczniowie);
Writeln;
Writeln('Oceny po sortowaniu: ');
Writeln('----------------------');
for i:= 0 to High(uczniowie) do
begin
Writeln('# ', i + 1, ' ', uczniowie.nazwisko,
' otrzymal ocene (', uczniowie.ocena, ')');
end;
Write('Nacisnij dowolny klawisz by wyjsc');
Readln;
end.