Witam wszystkich bardzo serdecznie...
Od września br. zacząłem uczęszczać do Technikum na profil technik-informatyk i stwierdziłem, że trzeba zacząć się samodokształcać...
Postanowiłem wziąć się za język programowanie, więc na początek zabrałem się za Pascala, bo C++ na początek chyba za trudny...
Od wczoraj bawię się w Pascalu, zrobiłem programiki na potęgowanie, obliczanie pola powierzchni całkowitej i objętości sześcianu, obliczanie objętości prostopadłościanu, potem stwierdziłem, że trzeba je zebrać do kupy i w jednym programie dać...
No to udało mi się, ale jest malutki problem...
Do wartości zmiennych dodałem:
wybor:longint;
I na wstęp dodałem takie menu, żeby kliknąć 1-7, aby coś zrobić no i potem w każdym osobym "podprogramiku", na jego początku dodałem np.:
IF wybor=1 THEN
Begin
treść podprogramu
Delay(8000);
Halt;
End;
Wiem, że funkcja "Halt;" zamyka program i dodałem ją z tego względu, żeby program sam się zamknął, a nie żebym ja musiał zamknąć.
Od samego rana kombinuję jak zrobić, aby powyliczeniu, odczekaniu chwili (np. tak jak mam podane 5s) wróciło do głównego menu, aby ponownie wybrać opcję...
Dałem w końcu sobie z tym spokój...
Wyczytałem w jakimś kursie, że procedury są dobre do tego typu rzeczy no to zabrałem się za nie...
Podam w skrócie co zrobiłem:
USES CRT;
VAR
a:char;
i inne zmienne dotyczące działan na pierwiastkach i potęgach
PROCEDURE pierwiastkowanie;
BEGIN
treść
WriteLn('Q - powtórz pierwiastkowanie, W - wróć do menu, E- zamknij program');
a:=readkey;
IF a='q' THEN pierwiastkowanie;
IF a='e' THEN halt;
END;
PROCEDURE potegowanie;
podobnie jak wyżej
Begin
ClrScr;
TextColor(11);
Write('1 - Pierwiastkowanie ');
TextColor(10);
WriteLn(' Potęgowanie - 2');
TextColor(9);
ReadLn(wybor);
IF wybor=1 THEN pierwiastkowanie;
IF wybor=2 THEN potegowanie;
End.
I teraz właśnie nie wiem co zrobić, żeby wróciło do menu, gdy kliknie się W...
Za żadne skarby nie mogę do tego dojść...
Dodawałem menu jako procedurę na samym początku i jako startowy programik na dole tak jak jest...
i wtedy nie widziało błędu... Błąd pojawiał się w momencie, gdy miało czytać w procedurach: pierwiastkowanie i potęgowanie odnośnik do menu:
IF a='w' THEN menu;
Było napisane, że nie może rozpoznać, a to pewnie z tego względu, że te procedury są pod procedurą menu...
Proszę Was poratujcie mnie... Jest to dla mnie bardzo ważne, bo jak tego się nie dowiem to chyba zasnąć nie będę mógł...
Z góry wielkie dzięki,
pozdrawiam,
Martin.