Question

Witam !
Dostaliśmy zadanie domowe które trzeba napisać w Turbo Pascalu 7.0 i tu pojawia się problem bo ja nie za bardzo kminie tego pascala jeśli byłby ktoś chętny na napisanie mi tego albo chociaż pomóc mi w jakiś sposób byłbym bardzo wdzięczny. A tak brzmi zadanie:


Napisz program 'zgadywanka' losujący liczbę całkowitą z przedziału od 1 do 1000 lub od 1 do n i umożliwiający użytkownikowi odgadywanie wylosowanej liczby. Program zwraca komunikaty typu ' za mała liczba ', ' za duża liczba ', ' zgadłeś ' oraz zlicza ilość prób podjętych przez użytkownika.
*Zadbaj o czytelność i atrakcyjność interfejsu użytkownika.

1.Zdefiniowanie (opis) problemu.
2.Zaprojektowanie rozwiązanie problemu (schemat blokowy)
3.Zaimplementowanie algorytmu w języku programowanie Turbo Pascala
(przedstawienie kodu źródłowego programu z komentarzami i opisem zmiennych)
4.Przeprowadzenie testów programu i przedstawienie raportu z wykonanych testów.
5.Przygotowanie dokumentacji projektu i wersji dystrybucyjnej programu.


Z góry bardzo dziękuje ; ))
Pozdrawiam

Answer 1

Program zgadywanka;

uses crt;

var
licznik, liczba, szukanaLiczba: Integer;
znaleziono: Boolean;

begin
Randomize;
szukanaLiczba:=random(1000);
licznik:=0;
found:=false;

while not znaleziono do begin
writeln('Podaj liczbe: ');
readln(liczba);
if liczba<szukanaLiczba then begin
writeln('Za mala')
licznik:=licznik+1
end
else if liczba>szukanaLiczba then begin
writeln('Za duza')
licznik:=licznik+1
end else if liczba=szukanaLiczba begin
writeln('Zgadles za ', licznik, ' razem');
znaleziono:=true;
end;
writeln;
end;
readln;
end.

Powinno dzialac ale nie sprawdzałem.