Pascal - porovnání absolutních hodnot

Od: Datum: 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.


Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Datum: 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?

Ohodnoceno: 0x
 
Od: eltoro
Datum: 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!

Datum: 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

Ohodnoceno: 2x
 
Od: eltoro
Datum: 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.
Od: eltoro
Datum: 23.10.13 22:23

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

Datum: 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.
Ohodnoceno: 0x
 

 

 

 

 

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

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.