TP program

lasek66 · Post autor: **lasek66** » 2 cze 2011, o 15:06

Potrzebuje pomocy z programem polega on na tym, że musi losować 2 liczby w przedziale od 0 do 100 po czym każe użytkownikowi obliczyć ich sumę, następnie odpowiedz komentuje np dobrze, źle, gdy jest dobrze dodaje "punkt". Program zadaje 10 takich równań. Na samym końcu podaje liczbę poprawnych odpowiedzi.

wszamol · Post autor: **wszamol** » 2 cze 2011, o 15:07

Powiedz z czym masz problem

Althorion · Post autor: **Althorion** » 2 cze 2011, o 15:19

Oraz w czym piszesz. I na jaki system.

wszamol · Post autor: **wszamol** » 2 cze 2011, o 15:20

TP, to chyba turbo pascal.

Althorion · Post autor: **Althorion** » 2 cze 2011, o 15:22

Słusznie. Nie pomyślałem o tym.

lasek66 · Post autor: **lasek66** » 2 cze 2011, o 15:25

no w Turbo Pascalu i nie wiem za bardzo jak się za to zabrać ;/

wszamol · Post autor: **wszamol** » 2 cze 2011, o 15:32

No możesz to sobie zrobić w jakiejś pętli, która wykona 10 obiegów (bo tyle równań masz wygenerować), a w niej losujesz dwie liczby (funkcja random), wyświetlasz je by użytkownik wiedział co dodawać, oraz sumujesz te liczby, by później móc porównać ich sumę z wynikiem podanym przez użytkownika. Jeśli wynik jest poprawny dodajesz punkt i wypisujesz dany komentarz (tutaj "dobrze"). Po skończeniu tej pętli wyświetlasz liczbę punktów.

lasek66 · Post autor: **lasek66** » 2 cze 2011, o 15:34

No wiem właśnie, że pętlą tylko ja to zaliczam dodatkowo i tej funkcji random nie mieliśmy.

Althorion · Post autor: **Althorion** » 2 cze 2011, o 15:43

Bez funkcji random się nie obejdziesz, chyba że akurat korzystacie z systemów, które "same z siebie" posiadają generator liczb losowych (np. Linuksy czy Solarisy).

lasek66 · Post autor: **lasek66** » 2 cze 2011, o 15:46

Nie właśnie muszę sobie poszukać tej funkcji random i to zrobić nią, bo mi pani profesor mówiła o tym, że sam muszę sobie o tym poczytać czy coś.

wszamol · Post autor: **wszamol** » 2 cze 2011, o 15:48

masz tu przykład jak działa random:

Kod: Zaznacz cały

program losowanie;
var x :integer;
begin
        randomize;
        x:=random(100);
        writeln('wylosowano: ',x);
        readln;
end.

random zwróci liczbę z przedziału od 0 do liczby którą podasz jako argument (u nas 100).

BTW
ostatni raz w pascalu pisałem daaawno temu, już nic nie pamiętam xD

lasek66 · Post autor: **lasek66** » 2 cze 2011, o 15:53

No o to rozumiem dobrze tylko myślę jak to wszystko ułożyć żeby działało idealnie.

wszamol · Post autor: **wszamol** » 2 cze 2011, o 15:59

Proponuję tak jak mówiłem. Spróbuj sam coś napisać, a jak będziesz miał problem, to wklej tu kod i zobaczymy co nie gra. Nie chciałbym zrobić całego zadania za Ciebie, a uwierz, że jest naprawdę łatwe

lasek66 · Post autor: **lasek66** » 3 cze 2011, o 11:40

Kij nie dam rady osobno bym te programy napisał to jak to zebrać w 1 to nie mam pomysłu próbowałem to pisać ale nie wychodziło mi za bardzo ; /

Post autor: **Afish** » 3 cze 2011, o 12:42

Masz w pseudokodzie:

Kod: Zaznacz cały

wynik := 0
wykonaj 10 razy
	liczba1 := losujLiczbę()
	liczba2 := losujLiczbę()
	suma := liczba1 + liczba 2
	odpowiedźUżytkownika := wczytajLiczbęOdUżytkownika
	Jeżeli odpowiedźUżytkownika = suma wtedy
		wynik := wynik + 1
		wypisz "Dobrze"
	w przeciwnym wypadku
		wypisz "Źle"
wypisz wynik