[pascal]zadanie

[cubaza47891374]

witam.mam problem.mam na jutro napisać zadanie a nie wiem kompletnie jak sie do niego zabrac. Program ma byc pisany funkcjami procedurami i ma sie znajdowac w tablicy. Program nie nalezy do latwych.

 

treść zadania:

 

Stworzyć bazę danych zawierające imię, nazwisko,telefon ucznia. Użyć do tego tablice i procedury. Program zorganizować tak, że podajemy numer telefonu lub nazwisko, a program podaje resztę informacji.
 

 

liczę na pomoc

 

pozdrawiam

[IBBT]

program tab1; 
uses crt;
var
    a:array[1..100,1..100]of string[15];
    i,j,d,f:integer;
    two:string;
BEGIN
clrscr;
writeln('Wprowadz elemety tablicy');
writeln('ile masz ludzi?');
readln(j);
i:=3 ;
for j:=1 to j do
begin
for i:=1 to i do
begin
if i=1 then writeln('nazwisko ',j);
if i=2 then writeln('imie ',j);
if i=3 then writeln('telefon ',j);

readln(a[i,j]);
end;
end;

writeln('Zawartosc tablicy to:');
for j:=1 to j do
begin
for i:=1 to i do
begin
write(a[i,j],', ');
              if (two=a[i,j]) then
              begin
              f:=i;
              d:=j;
              end  ;
end;
writeln;
end;

writeln('kogo szukasz?');
readln(two);

for j:=1 to j do
begin
    for i:=1 to i do
    begin
              if (two=a[i,j]) then
              begin
                  f:=i;
                  d:=j;

                  for i:=1 to 3 do
                  begin
                      write (a[i,d],' ');
                  end;
                  writeln;
              end  ;
    end;
end;

readkey;

end.

mniej-więcej...

 

Oczywiście kilka zmian trzeba wprowadzić, pytanie tylko z czym masz problem

[cubaza47891374]

mam pytanko do owego programu za co odpowiada two typu string?

[IBBT]

string to zmienna przechowująca łańcuch znaków (wyrazy itd).

[cubaza47891374]

wiem tylko np w takim zapisie

 

 

if (two=a[i,j]) then
 

two. jego zadaniem tutaj jest tylko przechowac dane z tablicy tak?

 

i tutaj ta linia

 

 

i:=3 ;
 

rozumiem ze to jest licznik tak ? a ta 3 to chodzi o te 3 pozycje ktore podajemy do tablicy?

[Dzikiknur]

reghfghfghfghrt

reghfghfghfghrt

fertgrgvf

reghfghfghfghrt

fertgrgvf

no

gfhgf

ffdgvdf

grtgfd

gthgfb

fggddr

gfytrtdyt

dsduhudh

fgdgdf

gfdgfd

gdfghfhg

fvdfvd

gdfg

gdfgfd

dfgdfgf

yhrthgfh

fdgdfgdf

gfegdfg

retgrfyhftdhyth

c dxvdfvdgfdyh

grgsdftfsdrfdst

grgrgtrfhythtrdyhtryhtryry

tryhtrhtftfgh