Question

Użytkownik wprowadza nazwę pliku w którym znajduje się do 1000 liczb od 1 do 32000, program pyta użytkownika jaką chce wyświetlić statystykę z tych liczb : min, max lub średnią. Program wylicza wybrane wyrażenie, wyświetla je na ekranie oraz zapisuje do pliku

Answer 1

Założyłem sobie z góry ze każda liczba w pliku jest w osobnej lini...

 

program Untitled;
uses CRT;
        var
        nazwa:string;
        x:integer;
        min,max:integer;
        los:integer;
        plik:text;
        napis:integer;
        tab:array[1..1000] of integer;
        il:integer;
        znak:integer;
        suma:longint;
begin
CLRSCR;
        los:=0;
        il:=0;
        min:=32000;
        max:=1;
        suma:=0;

        writeln('Podaj nazw pliku: ');
        readln(nazwa);

        assign(plik,nazwa+'.txt');
        reset(plik);
        randomize;
        while not eof(plik) do
        begin
                inc(il);
                readln(plik,napis);
                tab[il]:=napis;
        end;
        close(plik);

        writeln;
        writeln('--CO CHCESZ WYSWIETLIC?--');
        writeln('1: min');
        writeln('2: max');
        writeln('3: srednia');
        writeln;
        writeln('Podaj liczbe(1-3)');
        readln(znak);

        if (znak = 1) then
        begin
                for x:=1 to il do
                begin
                        if (min > tab[x]) then
                                min:=tab[x];
                end;
                writeln;
                writeln('MIN: ',min);

                assign(plik,'wyniki.txt');
                rewrite(plik);
                        writeln(plik,'MIN: ',min);
                close(plik);
        end;

        if (znak = 2) then
        begin
                for x:=1 to il do
                begin
                        if (max < tab[x]) then
                                max:=tab[x];
                end;
                writeln;
                writeln('MAX: ',max);

                assign(plik,'wyniki.txt');
                rewrite(plik);
                        writeln(plik,'MAX: ',max);
                close(plik);
        end;

        if (znak =3) then
        begin
                for x:=1 to il do
                begin
                        suma:=suma+tab[x];
                end;
                writeln('SREDNIA: ',suma/il:0:2);

                assign(plik,'wyniki.txt');
                rewrite(plik);
                        writeln(plik,'SREDNIA: ',suma/il:0:2);
                close(plik);
        end;
readln;
end.