hojko, keď do toho nevidíš, tak ho radšej nemýl, ok? readkey? preboha, načo?
Kód: Vybrať všetko
program Prvy;
uses CRT;
function sucetparny(vstup:integer):boolean;
begin
if (vstup mod 2 = 0) then sucetparny:=true else sucetparny:=false;
end;
var cislo,x,sucet:integer;
N,I:integer;
vstup:string;
begin
clrscr;
write ('Zadaj pocet cisiel N: ');
readln (N);
For I:=1 to N do begin
write('Zdaj cislo: ');
readln(vstup);
val(vstup,cislo,x);
if x>0 then begin
writeln('Nebol zadany celociselny vstup!!!');
I:=I-1;
end
else begin
sucet:=sucet+cislo;
end;
end;
clrscr;
if sucetparny(sucet) then writeln('ano') else writeln('nie');
repeat until keypressed;
end.
funkcia sucetparny() otestuje či je párny argument. Ak je delitelný dvoma tak je párny. Ako argument posielam cekový súčet všetkých čísel.
val(vstup,cislo,x); skúsi previesť textový vstup na číslo ktoré je integer. Ak sa podarí, x nadobudne hodnotu 0 ak nie, x nadobudne hodnutu väčšiu ako nula (konkrétne číslo na ktorej pozícii došlo k chybe, ale to nás nezaujíma). POtom overím x: ak je nula tak priráta číslo k súčtu, ak je väčšie ako nula (zle zadané) tak upozorním a znížim I aby sa vetva cyklu opakovala znovu.
if sucetparny(sucet) then writeln('ano') else writeln('nie'); nakonci vypíšem ano alebo nie podľa toho či funkcia vráti true alebo false.
ostatné asi ani nepotrebuje komentár, ak niečomu nerozumieš, tak sa pýtaj. Zachvíľku sem dám aj ten druhý
==================================
Kód: Vybrať všetko
Program objemy;
uses CRT;
const pi=3.1415;
var vyber,a,b,c:integer;
objem:real;
begin
clrscr;
writeln('Ak chces objem kocky, stlac "1"');
writeln('Ak chces objem kvadra, stlac "2"');
writeln('Ak chces objem gule, stlac "3"');
readln(vyber);
case vyber of
1: begin
write('Zadaj hranu kocky a: ');
read(a);
objem:=a*a*a;
writeln('Objem kocky s hranou ',a,' je: ',objem:2:2);
end;
2: begin
write('Zadaj hranu a: ');
readln(a);
write('Zdaj hranu b: ');
readln(b);
write('Zdaj hranu c: ');
readln(c);
objem:=a*b*c;
writeln('Objem kvadra je: ',objem:2:2);
end;
3: begin
write('Zadaj polomer r: ');
readln(a);
objem:=(pi*a*a*a/3)*4;
writeln('Objem gule s polomerom ',a,' je: ,',objem:2:2);
end
else writeln('Na vyber mas len cisla 1 2 alebo 3');
end;
repeat until keypressed;
end.
fakt neviem čo tam mám popisovať, je to jednoduché a jasné jak facka.. načítam výber, a na jeho základe vykonám časť programu
prosim pomozte mi potrebujem este dneska a ak by sa dalo aj skomentarom ze co vsetko co roby dakujem vam za pomoc a teraz k uloham
