TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Newbie
Zdarec nemuzu prijit na to co mam napsat aby mi funguvalo tak jak ma..diky za veskerou pomoc...Prvni aplikace zadani na vstupu je cislo D a posloupnost nenulovych prvku zakoncena nulou.vypiste prvek ktery se nejvice blizi cislu D.
var
d,x,vysledek:real;
begin
writeln(' ****');
writeln;
writeln;
writeln;
write('D=');
readln(d);
writeln;
write('X=');
readln(x);
while x<>0 do begin
if (abs(d-x)<abs(x)) or (abs(d-x)<abs(d-vysledek)) then begin
vysledek:=x;
end;
write('X=');
readln(x);
end;
writeln('nejblizsi ',vysledek:3:2);
writeln;
writeln;
writeln('konec');
readln;
end.druha aplikace ma zadani-na vstupu je cele cislo N a Nprvkova posloupnost cisel.vypiste druhy nejvetsi prvek a jeho poradi v posloupnosti(u teto ulohy akorat nevim jak mam naprogramovat to poradi)
var
N,i,:integer;
x,max,max2,pom:real;
begin
writeln(' *******');
writeln;
writeln;
writeln;
write('D=');
readln(d);
writeln;
if N>=2 then begin
write('Max=');
readln(max);
write('Max2=');
readln(max2);
i:=2;
if max2>max then begin
pom:=max;
max:=max2;
max2:=pom;
end;
while i<N do begin
write('X=');
readln(x);
inc(i);
if x>max then begin
max2:=max;
max:=x;
end else begin
if x>max2 then begin
max2:=x;
end;
end;
end;
writeln('druhy nejvetsi prvek je',(max2),'poradi',(poradi));
end
else begin
writeln('v posloupnosti nejsou aspon 2prvky');
end;
writeln;
writeln;
writeln('konec');
readln;
end.
Nahlásit jako SPAM
IP: 89.24.152.–
Zjistit počet nových příspěvků
