Zdravim! Potrebovala by som pomoc s jednym programom v Pascale. Zadanie takto znie:
"Program pre nacitanie cisel, ak posledne cislo na vstupe je K. Stanovste pocet nacitanych hodnot, ich sucet a priemer."
...a mam 2 vypracovania, len neviem, ze kt. je spravne.
1.
Kód:
program Zadanie1;
uses crt;
const N=5;
type Pole=array[1..N] of real;
var
k,i: integer;
P: Pole;
priemer: real;
sucet: real;
begin
clrscr;
k:=10;
writeln('Zadavajte 5 cisel, lubovolnej hodnoty, posledne cislo musi byt ',k,': ');
repeat
for i:=1 to N do
begin
write('Zadajte cislo ',i,': ');
readln(P[i]);
end;
until P[5]=k;
priemer:=0;
sucet:=0;
for i:=1 to N do
begin
sucet:=sucet_znamok+P[i];
priemer:=sucet/N;
end;
clrscr;
writeln('Sucet nacitanych cisel je: ',sucet);
writeln('Priemerna hodnoty cisel je: ',priemer);
end.
... a 2.
Kód:
program Sucet;
Uses sysutils;
var
x: string;
a: integer;
s: integer;
K:integer;
count: integer;
begin
s:=0;
count:=0;
repeat
writeln('zadaj cislo');
readln(x);
if (x<>'K') then
begin
a:=StrToInt(x);
s:=s+a;
count:=count+1;
end;
until (x='K');
writeln('Pocet nac.hodnot: ',count,' Sucet: ', s, ' Priemer: ',(s/count):5:2);
readln();
end.
...dakujem za radu
Nemyslis, ze bude lepsie snazit sa pochopit, co tie kody robia?
