Ĺadny brzuch
Witam.
Mam napisać na jutro program z informatyki do szkoły, już prawie mi się udało ale kompilator zgłasza błąd. Może ktoś mi pomoże go znaleźć?
program menu; uses crt; var prog,l1,l2,wynik,lata:real;operator:char;imie,adres:string; procedure kalkulator; begin clrscr; gotoxy(26,1); writeln('Witam w programie kalkulator'); writeln(''); writeln('Podaj liczb©: '); readln(l1); writeln('Podaj grugĄ liczb©:'); readln(l2); writeln('Co chcesz z nimi zrobi†? Wybierz operator (+,-,*,/)'); readln(operator); case operator of '+' : wynik:=l1+l2; '-' : wynik:=l1-l2; '*' : wynik:=l1*l2; '/' : wynik:=l1/l2; end; writeln('Wynik wynosi ',wynik:4:2,'.'); readln; end; procedure wizytowka; begin clrscr; writeln('Podaj jak Cie nazywaja: '); readln(imie); Writeln('Podaj ile wiosen przeÄźy�e�(do tej pory): '); readln(lata); writeln('Napisz, gdzie zamieszkujesz: '); readln(adres); writeln('Przetwarzam...'); delay(1000); clrscr; gotoxy(9,15); writeln('Nazywasz sie ',imie,','); gotoxy(9,16); writeln('Masz ',lata:4:0,' lat,'); gotoxy(9,17); Writeln('Twoja miejscowosc to ',adres,'.'); delay(1000); writeln(''); writeln(''); writeln('Aby wyjsc nacisnij dowolny klawisz...'); readln; end; label ok; begin clrscr; writeln('Witam w programie menu. Jaki program chcesz uruchomi†?'); writeln('1. Kalkulator, '); writeln('2. Wizytowka '); Writeln('3. Wyjscie z programu'); readln(prog); if prog=1 then kalkulator;if prog=2 then wizytowka; if prog=3 then exit else writeln('Zla liczba, podaj jeszcze raz: '); goto ok; readln; end.
Chciałbym aby program po wykonaniu procedury nie zakańczał swojej działalności tylko z powrotem wychodził do menu, niestety nie udało mi się. Czy ktoś wie jak naprawić ten błąd?
//codebox. - m
Użytkownik migajek edytował ten post 11 kwiecień 2006, 15:29
Nie piszę w Pascalu, więc będę strzelał - spróbuj dać etykietę "ok" już po begin, a nie przed.
w glownej czesci programu daj petle repeat..until i w tej petli niech bedzie powtarzana procedura glowna kalkulatora (wyswietlenie pytan i procedury obliczajace...) a w until daj: until xyz='exit'; , gdzie xyz to zmienna zawierajaca ciag znakow podany przez usera ;) (a exit to ciag znakow odpowiadajacy za przerwania procedury)
Użytkownik DJ_ProG edytował ten post 11 kwiecień 2006, 15:43
Chciał na etykietach zrobić i w sumie może być na eytkietach. Ale czy po nazwie etykiety nie powinien być dwukropek zamiast średnika? Bo coś mi się wydaje, że powinien. ;)
To samo tyczy się procedur.
I sorry, jeśli coś źle napisałem, ale po prostu to mi kompilator wyświetlił jako błąd.
Użytkownik Chmurek edytował ten post 11 kwiecień 2006, 15:47
Wystarczy po begin dać ok: :)
Wystarczy po begin dać ok: :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam napisać na jutro program z informatyki do szkoły, już prawie mi się udało ale kompilator zgłasza błąd. Może ktoś mi pomoże go znaleźć?
program menu; uses crt; var prog,l1,l2,wynik,lata:real;operator:char;imie,adres:string; procedure kalkulator; begin clrscr; gotoxy(26,1); writeln('Witam w programie kalkulator'); writeln(''); writeln('Podaj liczb©: '); readln(l1); writeln('Podaj grugĄ liczb©:'); readln(l2); writeln('Co chcesz z nimi zrobi†? Wybierz operator (+,-,*,/)'); readln(operator); case operator of '+' : wynik:=l1+l2; '-' : wynik:=l1-l2; '*' : wynik:=l1*l2; '/' : wynik:=l1/l2; end; writeln('Wynik wynosi ',wynik:4:2,'.'); readln; end; procedure wizytowka; begin clrscr; writeln('Podaj jak Cie nazywaja: '); readln(imie); Writeln('Podaj ile wiosen przeÄźy�e�(do tej pory): '); readln(lata); writeln('Napisz, gdzie zamieszkujesz: '); readln(adres); writeln('Przetwarzam...'); delay(1000); clrscr; gotoxy(9,15); writeln('Nazywasz sie ',imie,','); gotoxy(9,16); writeln('Masz ',lata:4:0,' lat,'); gotoxy(9,17); Writeln('Twoja miejscowosc to ',adres,'.'); delay(1000); writeln(''); writeln(''); writeln('Aby wyjsc nacisnij dowolny klawisz...'); readln; end; label ok; begin clrscr; writeln('Witam w programie menu. Jaki program chcesz uruchomi†?'); writeln('1. Kalkulator, '); writeln('2. Wizytowka '); Writeln('3. Wyjscie z programu'); readln(prog); if prog=1 then kalkulator;if prog=2 then wizytowka; if prog=3 then exit else writeln('Zla liczba, podaj jeszcze raz: '); goto ok; readln; end.
Chciałbym aby program po wykonaniu procedury nie zakańczał swojej działalności tylko z powrotem wychodził do menu, niestety nie udało mi się. Czy ktoś wie jak naprawić ten błąd?
//codebox. - m
Użytkownik migajek edytował ten post 11 kwiecień 2006, 15:29
Nie piszę w Pascalu, więc będę strzelał - spróbuj dać etykietę "ok" już po begin, a nie przed.
w glownej czesci programu daj petle repeat..until i w tej petli niech bedzie powtarzana procedura glowna kalkulatora (wyswietlenie pytan i procedury obliczajace...) a w until daj: until xyz='exit'; , gdzie xyz to zmienna zawierajaca ciag znakow podany przez usera ;) (a exit to ciag znakow odpowiadajacy za przerwania procedury)
Użytkownik DJ_ProG edytował ten post 11 kwiecień 2006, 15:43
Chciał na etykietach zrobić i w sumie może być na eytkietach. Ale czy po nazwie etykiety nie powinien być dwukropek zamiast średnika? Bo coś mi się wydaje, że powinien. ;)
To samo tyczy się procedur.
I sorry, jeśli coś źle napisałem, ale po prostu to mi kompilator wyświetlił jako błąd.
Użytkownik Chmurek edytował ten post 11 kwiecień 2006, 15:47
Wystarczy po begin dać ok: :)
Wystarczy po begin dać ok: :)