Pascal - porovnání absolutních hodnot

Od: eltoro 23.10.13 17:28 odpovědí: 6 změna: 23.10.13 22:26

Dobrý den,

poradil mi někdo, jak v Pascalu zapsat následující?

,,Budeme-li mít zadáno N čísel, vypiště (vytikněte) to číslo, které má nejvyšší absolutní hodnotu."

Díky za pomoc.

Odpovědět na otázku Skočit na nejnovější odpověď

6 odpovědí na otázku

Řazeno dle hodnocení

zvidavajanca*

23.10.13 19:06

Ok, máš N čísel (v souboru, případně je zadáváš)

načteš první, určíš jeho absolutní hodnotu a prohlásíš ho za nejvyšší

v cyklu ho budeš porovnýávat s dalšími hodnotami

pokud bude absolutní hodnota některého čísla vyšší než je současná nejvyšší, prohlásíš ji za nejvyšší (uložíš do patřičné proměnné)

na konci budeš mít v dané proměnné nejvyšší absolutní hodnotu

[přidat komentář]

zvidavajanca*

23.10.13 17:36

Prvně načteš do nějaké proměnné první číslo a určíš jeho absolutní hodnotu, kterou uložíš do proměnné (klidné té stejné). Další čísla (jejich absolutní hodnoty) s ním budeš v cyklu porovnávat /znáš-li N, tak ve for-cyklu/. Pokud bude vyšší přepíšeš zatím nalezenou nejvyšší absolutní hodnotou a s tou budeš porovnávat zbytek. Na konci budeš mít uloženou nejvyšší absolutní hodnotu.

Rozumíš? Nebo ne?

eltoro

23.10.13 17:53

Upřímně, ne, asi nejsem ještě tak daleko, abych z tohodlo popisu napsal kód. Díky za pomoc!

[přidat komentář]

eltoro

23.10.13 22:20

Kde je chyba, prosím?

program abs_hodnota;
uses Crt;
const pocet_cisel=10;
var cisla:=array[1.. pocet_cisel] of integer;
i:integer;
max:integer;

begin (main)
ClrScr;
writeln(Zadej ,pocet_cisel, cisel: )
for i:=1 to pocet_cisel do
begin
readln(cisla[i]);
end;

max:=abs(cisla[1]);
for i:=2 to pocet_cisel do
begin
if abs(cisla[i])>max
then max:=abs(cisla[i]);
end;
writeln(Nejvyssi cislo je: ,max);
end.

eltoro

23.10.13 22:23

Nevím proč, ale při kopírování mi utekly apostrofy, ale jinak je tam mám...

zvidavajanca*

23.10.13 22:26

Algoritmus je spravny. Kde a jaky problem hlasi prekladac? Ja bych jen videla moznou chybu v tomze to co je ve writeln by melo byt v uvozovkach: ento text se vypise. Ale to mozna zavisi na prekladaci.

Skočit na otázku
Vložit novou otázku

[přidat komentář]

Přidat svou odpověď

Přihlásit se k odběru odpovědí z této otázky:

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz.

Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.