TP program

lasek66
Użytkownik
Użytkownik
Posty: 15
Rejestracja: 2 cze 2011, o 14:49
Płeć: Mężczyzna
Lokalizacja: Kraśnik
Podziękował: 3 razy

TP program

Post autor: lasek66 »

I to do Turbo Pascala dokładnie tak przepisać?
Afish
Moderator
Moderator
Posty: 2828
Rejestracja: 15 cze 2008, o 15:45
Płeć: Mężczyzna
Lokalizacja: Seattle, WA
Podziękował: 3 razy
Pomógł: 356 razy

TP program

Post autor: Afish »

Najpierw wypadałoby ten pseudokod zamienić na kod pascalowy.
lasek66
Użytkownik
Użytkownik
Posty: 15
Rejestracja: 2 cze 2011, o 14:49
Płeć: Mężczyzna
Lokalizacja: Kraśnik
Podziękował: 3 razy

TP program

Post autor: lasek66 »

Aff łatwo powiedzieć ;/ ja to robię ponad program, a tych losowych i liczenia punktów wgl nie mieliśmy ;/
Awatar użytkownika
Althorion
Użytkownik
Użytkownik
Posty: 4541
Rejestracja: 5 kwie 2009, o 18:54
Płeć: Mężczyzna
Lokalizacja: Wrocław
Podziękował: 9 razy
Pomógł: 662 razy

TP program

Post autor: Althorion »

Ale czego konkretnie nie rozumiesz? Cała obsługa funkcji random() sprowadza się do wydania polecenia randomize gdzieś na początku programu i przypisania zmiennej odpowiedniej wartości - w ten sposób:

Kod: Zaznacz cały

zmienna := random(101);
Liczenie punktów, tak jak Ci już napisał Afish, sprowadza się do zwiększania zmiennej o jeden w każdym kroku pętli.
lasek66
Użytkownik
Użytkownik
Posty: 15
Rejestracja: 2 cze 2011, o 14:49
Płeć: Mężczyzna
Lokalizacja: Kraśnik
Podziękował: 3 razy

TP program

Post autor: lasek66 »

Oj cięzko mi to jakoś idzie, próbuje cały czas coś zdziałać, ale nic ;/
Afish
Moderator
Moderator
Posty: 2828
Rejestracja: 15 cze 2008, o 15:45
Płeć: Mężczyzna
Lokalizacja: Seattle, WA
Podziękował: 3 razy
Pomógł: 356 razy

TP program

Post autor: Afish »

Na gotowca nie licz. Weź książkę i poczytaj o podstawach, bo ten program do podstawowych należy.
wszamol
Użytkownik
Użytkownik
Posty: 490
Rejestracja: 7 maja 2009, o 22:01
Płeć: Mężczyzna
Podziękował: 1 raz
Pomógł: 64 razy

TP program

Post autor: wszamol »

lasek66 pisze:Oj cięzko mi to jakoś idzie, próbuje cały czas coś zdziałać, ale nic ;/
pokaż te próby i zobaczymy co jest źle, bo na razie wygląda to tak, jakbyś czekał aż ktoś napisze program za Ciebie. Ale tutaj takich jeleni (chyba) nie ma.
lasek66
Użytkownik
Użytkownik
Posty: 15
Rejestracja: 2 cze 2011, o 14:49
Płeć: Mężczyzna
Lokalizacja: Kraśnik
Podziękował: 3 razy

TP program

Post autor: lasek66 »

narazie stworzyłem coś takie, bo tamto mi się usuneło.

Kod: Zaznacz cały

VAR
suma:integer;
x:integer;
y:integer;
begin
randomize;
x:=random(100);
writeln('1 wylosowana liczba to:',x);
readln;
randomize;
y:=random(100);
writeln('2 wylosowana liczba to:',y);
readln;
end.
ale już tu mi błąd coś wyskoczył ;/
Afish
Moderator
Moderator
Posty: 2828
Rejestracja: 15 cze 2008, o 15:45
Płeć: Mężczyzna
Lokalizacja: Seattle, WA
Podziękował: 3 razy
Pomógł: 356 razy

TP program

Post autor: Afish »

Mało konkretnie. Jaki błąd?
lasek66
Użytkownik
Użytkownik
Posty: 15
Rejestracja: 2 cze 2011, o 14:49
Płeć: Mężczyzna
Lokalizacja: Kraśnik
Podziękował: 3 razy

TP program

Post autor: lasek66 »

Syntax ;/ przy tym 2 randomize
Afish
Moderator
Moderator
Posty: 2828
Rejestracja: 15 cze 2008, o 15:45
Płeć: Mężczyzna
Lokalizacja: Seattle, WA
Podziękował: 3 razy
Pomógł: 356 razy

TP program

Post autor: Afish »

To szukaj w dokumentacji kompilatora, bo na ideone fpc przechodzi. Swoją drogą randomize wywołujesz tylko raz.
lasek66
Użytkownik
Użytkownik
Posty: 15
Rejestracja: 2 cze 2011, o 14:49
Płeć: Mężczyzna
Lokalizacja: Kraśnik
Podziękował: 3 razy

TP program

Post autor: lasek66 »

dobra już ogarnołem losuje mi liczby co teraz mam zrobić?
michal17
Użytkownik
Użytkownik
Posty: 68
Rejestracja: 12 sie 2009, o 22:21
Płeć: Mężczyzna
Podziękował: 4 razy
Pomógł: 3 razy

TP program

Post autor: michal17 »

wszamol pisze: random zwróci liczbę z przedziału od 0 do liczby którą podasz jako argument (u nas 100).
Właśnie nie, 100 już nie zwróci.
lasek66
Użytkownik
Użytkownik
Posty: 15
Rejestracja: 2 cze 2011, o 14:49
Płeć: Mężczyzna
Lokalizacja: Kraśnik
Podziękował: 3 razy

TP program

Post autor: lasek66 »

Wiem muszę wpisać 101.
wszamol
Użytkownik
Użytkownik
Posty: 490
Rejestracja: 7 maja 2009, o 22:01
Płeć: Mężczyzna
Podziękował: 1 raz
Pomógł: 64 razy

TP program

Post autor: wszamol »

michal17 pisze:Właśnie nie, 100 już nie zwróci.
z mojej wypowiedzi w ogóle nie wynika, czy zwróci 100 czy nie, ale nie w tym problem.

lasek66, teraz musisz to wrzucić do pętli, i w tej pętli losujesz dwie liczby, wyświetlasz je, użytkownik je sumuje, a Ty (Twój program) weryfikujesz czy odpowiedź jest dobra. Masz pseudokod na poprzedniej stronie.
ODPOWIEDZ