Práce do školy – Pascal – Fórum – Programujte.com

Potřebuju pomoct s úkolem na programování...Prostě nevím, a jestli někdo napíšete jak by to mělo vypadat..Zadání je:
Sestavte program, který načte číselné hodnoty ze vstupního souboru ROZDEL.TXT a vypočte a vypíše jejich průměr.
Poté vypíše přehled vstupních hodnot, které jsou menší než průměr, a přehled vstupních hodnot, které jsou větší než průměr.
Tady je vstupní soubor: http://www.vyuka.odbskmb.cz/IKT-3L/data/ROZDEL.TXT

No prostě ten soubor řádek po řádku projeď, hodnoty si ulož do pole a pak to zprůměruj. Průměr si ulož do proměnné, porovnávej s hodnotami v poli a vypisuj (nižší x vyšší). Co konkrétně ti nejde?

To Ace McIntosh : Já spíš vůbec nevím jak napsat a jak má vypadat ten kod..Nechceš mi ho prosímtě napsat?

To Black : od toho tu to fórum není

To Black : To musíš sám;-). My tě můžeme tak maximálně popostrčit, když uvízneš na mrtvém bodě (ovšem po prokázání snahy!). Pomocí Googlu můžeš vyhledat většinu (ne-li všechny) potřebných informací.

Rada ohledně práce se soubory: Zkus si najít něco o typu soubor, sám jsem zkoušel hledat na Googlu a je tam toho víc než dostatek na to, aby ses mohl hnout z místa.

Toto je server programujte.com, ne naprogramujemevam.com ;)

To Black : Aspoň nějaká nápověda do začátku... Help Pascalu otevřeš klávesovou zkratkou Ctrl+F1 (textový kurzor umísti na slovo, na které se chceš zeptat). Hledej hesla:
var, array, integer, real, text, assign, reset, read, readln, close, repeat, while, for, begin, end, if, write, writeln, :=, >, <, +, /.
Je-li libo češtinu, můžu poskytnout http://mircosoft.ic.cz/texty/ZAKLADY.TXT.

Něco napiš a jestli to nebude fungovat, hoď sem kód a my ti zkusíme říct, kde je chyba.

Ahoj ja niesom profik ale nejaky ten programik som spravil snad je to podla tvojich ocakavani

program uloha;
uses
crt;
const
Nmax=100;
type
pole=array[1..Nmax]of integer;
var
rozdel:text;
i:integer;
p:real;
cisla, vacsie, mensie:pole;
{otvorenie suboru a nacitanie cisel do pola i}
procedure nacitanie(var cisla:pole);
begin
assign(rozdel,'rozdel.txt');
reset(rozdel);
for i:=1 to 20 do
read(rozdel, cisla[i]);
close(rozdel);
end;
{vypocet priemeru nacitanych cisel v poli}
function priemer(var cisla:pole; var P:real):real;
var
sucet:integer;
begin
P:=0;
for i:=1 to 20 do
sucet:=sucet+cisla[i];
P:=sucet/20
end;
{zistenie cisel pola vacsich ako priemer a mensich ako priemer}
procedure polia( var cisla:pole; var P:real;
var vacsie:pole; var mensie:pole);
begin
for i:=1 to 20 do
if cisla[i] > P
then vacsie[i]:=cisla[i];
for i:=1 to 20 do
if cisla[i] < P
then mensie[i]:=cisla[i];
end;
{zapis nadobudnutych udajov}
procedure zapis( var cisla:pole; var P:real;
var vacsie:pole; var mensie:pole);
begin
clrscr;
GoToXY(5,1);
writeln('Aritmeticky priemer nacitanych hodnot zosuboru rozdel.txt je : ',P:2:1);
writeln;

write('Cisla mensie ako AP : ');
for i:=1 to 20 do
write(mensie[i],' ');
writeln;
writeln;
write('Cisla vacsie ako AP : ');
for i:=1 to 20 do
write(vacsie[i],' ');
writeln;
GoToXY(25,7);
writeln('pre ukoncenie stlacte <enter>');
readln;
end;
begin
nacitanie(cisla);
priemer(cisla, P);
polia(cisla, P, vacsie, mensie);
zapis(cisla, P, vacsie, mensie);
end.

snad ti to pomoze....btw ak by ma chcel niekto kritizovat tak sorry som len zaciatocnik. :smile1: (mal by byt aj subor v prilohe)

Tos fakt nemusel... :smile17:

To j.b. : Díky moc.Ale stejně mi to nějak neběží.Nejde to napsat trochu jednodušeji?