Skocz do zawartości


Uwaga, ta strona używa Cookies
Stosujemy je, aby ułatwić Tobie korzystanie z naszego serwisu. Pamiętaj, że w każdej chwili możesz zmienić ustawienia dotyczące Cookies w ustawieniach swojej przeglądarki internetowej.
Dowiedz się więcej    
Akceptuję
Zdjęcie

Baza danych z odczytem z pliku FREE PASCAL

baza danych odczyt pliku free pascal programowanie

  • Zaloguj się, aby dodać odpowiedź
Brak odpowiedzi do tego tematu

#1 Gorn17

Gorn17
  • Dyskutant

  • 188 postów
  • Miejscowość:Zduńska Wola
  • 3DMark 06:4256

Napisano 11 maj 2014 - 17:55

Witam, musze zrobic baze danych z odczytem z pliku w Pascalu na programowanie.

Baze juz zrobiłem ale nie wiem jak wcisnac odczyt z pliku. Jesli ktos wie jak to zrobic to prosze o pomoc, podaje kod:

 

program baza_danych;

uses crt;

type
baza = record

    imie            : string;
    zawod            :string;
    wiek            : integer;
    data_urodzenia  : integer;
    
    
end;

var
 Imie                         : array[1..7] of string;
 zaw                        : array[1..8] of string;
 dane                       : array[1..100] of baza;
 i,w,r,x,y,rok,rok2,x2,y2,fil    : integer;
 z,l,im                  : string;





 begin

 x:=5;
 y:=5;
 x2:=5;
 y2:=7;
 clrscr;

                 Imie[1]:='Piotr';
                 Imie[2]:='Andrzej';
                 Imie[3]:='Joanna';
                 Imie[4]:='Aleksandra';
                 Imie[5]:='Kunegunda';
                 Imie[6]:='Damian';
                 Imie[7]:='Elzbieta';
                
                 zaw[1]:='murarz';
                 zaw[2]:='informatyk';
                 zaw[3]:='blacharz';
                 zaw[4]:='ksiadz';
                 zaw[5]:='adwokat';
                 zaw[6]:='sedzia';
                 zaw[7]:='kasjer';
                 zaw[8]:='kierowca';
                
                
                
                
                
writeln('Wyswietlanie tabeli');

    for i:=1 to 15 do
        begin
        
        r:=random(100)+1900;
        dane[i] .data_urodzenia:=r;
        
        w:=2014-r;
        dane[i] .wiek:=w;
        
        l:=(Imie[random(5)+1]);
        dane[i] .imie:= l;
        
        z:= (zaw[random(7)+1]);
        dane[i].zawod:= z;

        end;

        writeln('Jesli chcesz wyswietlic dane, wcisnij enter');
        readln;

    clrscr;

        gotoxy(x,y);
            Write('Nr');
            x:=x+5;
            gotoxy(x,y);
            Write('Imie');
            x:=x+12;
            gotoxy(x,y);
            Write('zawod');
            x:=x+15;
            gotoxy(x,y);
            write('Data Urodzenia');
            x:=x+18;
            gotoxy(x,y);
            write('Wiek');
            
            
for i:=1 to 15 do

    begin
            gotoxy(x2,y2);
            write(i);
            x2:=x2+5;
            gotoxy(x2,y2);
            write(dane[i].imie);
            x2:=x2+12;
            gotoxy(x2,y2);
            write(dane[i].zawod);
            x2:=x2+15;
            gotoxy(x2,y2);
            write(dane[i].data_urodzenia);
            x2:=x2+18;
            gotoxy(x2,y2);
            write(dane[i].wiek);
            x2:=x2+10;
            delay(250);
            x2:=5;
            y2:=y2+1;

            end;

    writeln;
    writeln('Filtr');
    readln;
    clrscr;


    writeln('wyszukiwanie wg. (1) zawod czy (2) wieku ?');
    readln(fil);

        x:= 5;
            y:= 5;
            x2:= 5;
            y2:=7;


    if fil = 1 then
    
    begin

            writeln('Jaki zawod wyszukac ?');

            Writeln;
        Readln(z);
        clrscr;
        gotoxy(x,y);
        Write('Nr');
        x:=x+5;
        gotoxy(x,y);
        Write('Imie');
        x:=x+12;
        gotoxy(x,y);
        Write('zawod');
        x:=x+15;
        gotoxy(x,y);
        write('Data Urodzenia');
        x:=x+18;
        gotoxy(x,y);
        write('Wiek');
        x:=x+10;


        for i:=1 to 15 do

                begin

                    if dane[i].zawod = z then
                        begin

                            gotoxy(x2,y2);
                            write(i);
                            x2:=x2+5;
                            gotoxy(x2,y2);
                            write(dane[i].imie);
                            x2:=x2+12;
                            gotoxy(x2,y2);
                            write(dane[i].zawod);
                            x2:=x2+15;
                            gotoxy(x2,y2);
                            write(dane[i].data_urodzenia);
                            x2:=x2+18;
                            gotoxy(x2,y2);
                            write(dane[i].wiek);
                            x2:=x2+10;
                            delay(250);
                            x2:=5;
                            y2:=y2+1;
                        end
                    else
                end;
                    
            end
        else

            
               {Sortowanie wg. wieku }
    begin
            Writeln('Podaj przedzial wyszukiwania');
            readln(rok,rok2);

            gotoxy(x,y);
            Write('Nr');
            x:=x+5;
            gotoxy(x,y);
            Write('Imie');
            x:=x+12;
            gotoxy(x,y);
            Write('zawod');
            x:=x+15;
            gotoxy(x,y);
            write('Data Urodzenia');
            x:=x+18;
            gotoxy(x,y);
            write('Wiek');
            x:=x+10;
            
        
        for i:=1 to 15 do

            begin

                if dane[i].wiek > rok then
                    begin
                        if dane[i].wiek < rok2 then
                        
                            begin
                                
                                gotoxy(x2,y2);
                                write(i);
                                x2:=x2+5;
                                gotoxy(x2,y2);
                                write(dane[i].imie);
                                x2:=x2+12;
                                gotoxy(x2,y2);
                                write(dane[i].zawod);
                                x2:=x2+15;
                                gotoxy(x2,y2);
                                write(dane[i].data_urodzenia);
                                x2:=x2+18;
                                gotoxy(x2,y2);
                                write(dane[i].wiek);
                                x2:=x2+10;
                                delay(250);
                                x2:=5;
                                y2:=y2+1;
        
                        end    
                        else
                            end
                else
                    end;
            end;
   readln;
   end.
            
            
            
    
            
        
                
                
                
                
                
                
 


  • 0





Również z jednym lub większą ilością słów kluczowych: baza, danych, odczyt, pliku, free, pascal, programowanie

Użytkownicy przeglądający ten temat: 1

0 użytkowników, 1 gości, 0 anonimowych