10 szám generálása stb

 ( Tomcsi1987 | 2008. szeptember 9., kedd - 13:09 )

Üdv emberek.
Találtam egy nehéz feladatot ami a következőből áll:
Generálj tíz számot , írasd ki és irasd ki hogy páros vagy páratlan.
Itt hogy kellene generálni 10 számot?
Előre is köszy a segítséget!
Elég amatőr vagyok pascalból sajnos. Nagyon kéne a segítség.
Tomcsi1987

Hozzászólás megjelenítési lehetőségek

A választott hozzászólás megjelenítési mód a „Beállítás” gombbal rögzíthető.

Szervusz !

Kb másfél évtizeddel ezelőtt Turbo-Pascal-t használtam, munkahelyi elfoglaltságom miatt ma nem férek hozzá a könyveihez, dr:

vs a random() függvényt kell használni, ha "'szuper" véletlenszámot szeretnél, akkor előtte a randomize utasítás.

Ha a sima random() függvény 0-1 értéktartománybeli számot ad, akkor azt felszorozhatod.

CSZ

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,v:integer;
begin
  Randomize;
  WriteLn('A véletlenszámgenerátor initializálva...');
  WriteLn('');
  WriteLn('A véletlenszámok');
  for i:=1 to 10 do begin
    v:=Random(100)+1;
    Write(Format('%.2d. szám=%d : ',[i, v]));
    if Odd(v) then WriteLn('páratlan.') else WriteLn('páros.');
  end;
  readln;
end.

Attila, Perger
-----------------------------------------------------
"Az a szoftver, amelyiket nem fejlesztik, az halott!"

erre nekem jórégi 7.0 pascal azt mondja unkown idenfitifer:(

igaz D2005-tel csináltam de {$APPTYPE CONSOLE} biztos kivehettő. És így a Lazarus Win32 alatt lefordítja:

program Project1;

uses
  SysUtils;

var
  i,v:integer;
begin
  Randomize;
  WriteLn('A véletlenszámgenerátor initializálva...');
  WriteLn('');
  WriteLn('A véletlenszámok');
  for i:=1 to 10 do begin
    v:=Random(100)+1;
    Write(Format('%.2d. szám=%d : ',[i, v]));
    if Odd(v) then WriteLn('páratlan.') else WriteLn('páros.');
  end;
  readln;
end.

Attila, Perger
-----------------------------------------------------
"Az a szoftver, amelyiket nem fejlesztik, az halott!"

Es ha a uses-be beteszed a crt-t?

----
"Ijeszto [sic] hogy ha valakinek a nickjet irjak a tortajara....de ha az ipjet az megijesztobb [sic]" - atka
honlapkészítés

Katt

Attila, Perger
-----------------------------------------------------
"Az a szoftver, amelyiket nem fejlesztik, az halott!"

Tök jó télleg nálam is megy szépen.
Köszönöm!
Az odd függvényről mit mondjak tanárnak ha rákérdez?:)
Gyanús hogy ráfog.
+ mi ez a %.2d? Valami vidd arébb 3 karakterrel pl féle?

De miért jó megadni a teljes megoldást? Ha majd munkába áll, és meg kell oldania egy programozás feladatot, akkor is megírod helyette?
Bocs a hülye hangnemért, csak szerintem sokkal hasznosabb, ha megpróbáljuk rávezetni a gyereket, hogy saját hibáiból tanulva, de önmaga rakja össze a kész programot...

program tizszam;
uses crt;
var     i,num:byte;

begin
        randomize;
        for i:=1 to 10 do
        begin
                num:=random(100);
                write(i,'. szám: ',num);
                if num mod 2=0 then
                begin
                        writeln(' :páros');
                end
                else
                begin
                        writeln(' :páratlan');
                end;
        end;
        readkey;
end.

Asszem ennyi. Ez nem nehéz program. A randomizálás amúgy egész pontosan így:

randomize;
szam:=random(meddig);

Ahol a randomize egy inicializálás (hogy az első érték ne 0 legyen), a random meddig paramétere pedig azt határozza meg, hogy mekkora lehet a legnagyobb véletlen szám. A legkisebb mindig a 0.

köszönöm mindenkinek a megoldásokat!
Kissé húzós volt a Delphi féle megoldást elmagyarázni a tanárnak pl mik a % ok meg stb-k meg mi az Odd de kiagyaltam, és végül is elfogadta.:)

Ja, hogy most van órád? :D Szép. :)

Üzenem a tanárnak, hogy tanítson inkább C-t.

:D Ismerős :) Még két éve, kollegina már végzős volt gimiben, én vártam folyosón mikor lesz óra vége, erre egy sms: "Cica, hogy indexelek többdimenziós tömböt? Sieess" voltak még ilyenek :)

Hát ja:)
Viszont pascalból érettségi tuti nem lessz szerencsére.

Ez egy nagyon könnyű feladat. Nem lehetett volna bejárni órára?
Ciki ha a tanár is olvassa a HUP-ot.
Márpedig szeretném, ha minél több tanár olvasná.

+1

A tanár szerencsére nem olvassa hupot.
+ Szerintem nem rossz ha legalább valahonnan megtudom a megoldást, mint óra végéről ballagok ki csak úgy.
Ezért jegyet nem kaptunk csak gyakorlás volt.

Tanulni kellett volna, akkor már előbb megtudtad volna a megoldást.
Ezek a mai fiatalok... :(

Tudod ezzel az a baj, hogy így el fogod felejteni, ha pedig odafigyelsz az órán és te szenveded ki a megoldást akkor megmarad. Így majdnem (azért nem teljesen) feleslegesen töltöttél el 45 percet az életedből.