2 kratke consolove aplikace – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

2 kratke consolove aplikace – Delphi – Fórum – Programujte.com2 kratke consolove aplikace – Delphi – Fórum – Programujte.com

 

NOFEAR70
Newbie
28. 9. 2009   #1
-
0
-

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ů

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 1 host

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý