Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Turbo Pascal Error 113

#1
Turbo Pascal Error 113
prosze o pomoc
link do porgramu
http://www.sendspace.pl/file/3c490dacfcd7ddb3d6fd65a
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#2
RE: Turbo Pascal Error 113
1. Nie możesz mieć funkcji i zmiennej o tej samej nazwie. Jeśli chcesz mieć funkcję data, to zmienna, do której pobierasz datę musi się inaczej nazywać.

2. Nie możesz napisać writeln(jakasProcedura), bo procedura nie zwraca wartości, przez co writeln nie ma czego wypisać. Procedurę się tylko wywołuje.

3. Brakuje enda po instrukcji case. Ponadto w intrukcji case identyfikatory muszą być różne. Jeśli dopuszczasz kilka opcji, to podciągnij je pod jeden identyfikator przez blok begin-end.
 System operacyjny: linux_ubuntu Przeglądarka: firefox
#3
RE: Turbo Pascal Error 113
Poprawki znajdź samodzielnie (m.in. 142 linia).
Kod:
program aaa;

Uses CRT;
var  data, wydarzenie, odn:longint;

procedure wydarz;
begin
writeln('wpisz liczbe');
writeln('1-chrzest Polski');
writeln('2-bitwa pod Cedynia');
writeln('3-zjazd gniezdzienski');
writeln('4-testament Krzywoustego');
writeln('5-sprowadzenie Krzyzakow do Polski');
writeln('6-sprowadzenie Krzyzakow do Polski');
writeln('7-bitwa pod Legnica');
writeln('8-poczatek wojny z Zakonem Krzyzackim');
writeln('9-bitwa pod Plowcami');
writeln('10-zjazd pod Wyszehradzie');
writeln('11-zawarcie pokoju w Kaliszu');
writeln('12-unia w Krewie z Litwa');
writeln('13-bitwa pod Grunwaldem');
writeln('14-rozpoczecie wojny z Zakonem Krzyzackim');
writeln('15-I pokoj w Toruniu');
writeln('16-unia w Krewie z Litwa');
writeln('17-bitwa pod Grunwaldem');
writeln('18-rozpoczecie wojny z Zakonem Krzyzackim');
writeln('19-I pokoj w Toruniu');
writeln('20-bitwa pod Warma');
writeln('21-wojna trzynastoletnia');
writeln('22-koniec wojny trzynastoletniej| II pokoj w Toruniu');
writeln('23-???????');
writeln('24-unia lubelska z Litwa');
writeln('25-konfederacja warszawska');
writeln('26-unia brzeska');
writeln('27-bitwa pod Kircholmem');
writeln('28-poczatek wojny 30-letniej');
writeln('29-koniec wojny 30-letniej');
writeln('30-bitwa morska pod Oliwa');
writeln('31-rozejm w Altmarku');
writeln('32-kleska pod Cecora');
writeln('33-najazd turecki na Polske');
writeln('34-zwyciestwo pod Chochimiem');
writeln('35-odsiecz wiedenska');
writeln('36-Sejm Niemy');
writeln('37-konfederacja barska');
writeln('38-I rozbior Polski');
writeln('39-Sejm Wielki');
writeln('40-uchwalenie Konstytucji 3 Maja');
writeln('41-konfederacja targowicka');
writeln('42-II rozbior Polski');
writeln('43-Powstanie kosciuszkowskie');
writeln('44-III rozbior Polski');
writeln('45-Powstanie Legionow Polskich we Wloszech');
writeln('46-utworzenie Ksiestwa Warszawskiego');
writeln('47-utworzenie Ksiestwa Polskiego');
writeln('48-Powstanie listopadowe');
writeln('49-Powstanie krakowskie');
writeln('50-Powstanie styczniowe');
writeln('51-wybuch I wojny swiatowej');
writeln('52-odzyskanie niepodleglosci przez Polske');
writeln('53-uchwalenie Malej Konstytucji');
writeln('54-wojna bolszewicka');
writeln('55-Cud nad Wisla');
writeln('56-Konstytucja Marcowa');
writeln('57-Przewrot majowy');
writeln('58-wybuch II wojny swiatowej');
writeln('59-Powstanie Polskiego Panstwa Podziemnego');
writeln('60-Powstanie w getcie warszawskim');
read(wydarzenie);
case wydarzenie of
1 : writeln('966');
2 : writeln('972');
3 : writeln('1000');
4 : writeln('1025' );
5 : writeln('1138');
6 : writeln('1226');
7 : writeln('1241');
8 : writeln('1327');
9 : writeln('133');
else writeln('Nie chcialo mi sie wklepywac');
end;
readln;
end;

procedure rok;
begin
   writeln('Podaj rok wydarzenia');
   read(data);
   CASE data OF
   966 : writeln('chrzest Polski');
   972 :  writeln('bitwa pod Cedynia');
   1000 : writeln('zjazd gniezdzienski');
   1025 : writeln('koronacja Boleslawa Chrobrego');
   1138 : writeln('testament Krzywoustego');
   1226 : writeln('sprowadzenie Krzyzakow do Polski');
   1241 : writeln('bitwa pod Legnica');
   1327 : writeln('poczatek wojny z Zakonem Krzyzackim');
   1331 : writeln('bitwa pod Plowcami');
   1335 : writeln('zjazd pod Wyszehradzie');
   1343 : writeln('zawarcie pokoju w Kaliszu');
   1385 : writeln('unia w Krewie z Litwa');
   1410 : writeln('bitwa pod Grunwaldem');
   1409 : writeln('rozpoczecie wojny z Zakonem Krzyzackim');
   1411 : writeln('I pokoj w Toruniu');
   1444 : writeln('bitwa pod Warma');
   1454 : writeln('wojna trzynastoletnia');
   1466 : writeln('koniec wojny trzynastoletniej| II pokoj w Toruniu');
   1525 : writeln('hold pruski');
   1569 : writeln('unia lubelska z Litwa');
   1573 : writeln('konfederacja warszawska');
   1596 : writeln('unia brzeska');
   1605 : writeln('bitwa pod Kircholmem');
   1618 : writeln('poczatek wojny 30-letniej');
   1648 : writeln('koniec wojny 30-letniej');
   1627 : writeln('bitwa morska pod Oliwa');
   1629 : writeln('rozejm w Altmarku');
   1620 : writeln('kleska pod Cecora');
   1672 : writeln('najazd turecki na Polske');
   1673 : writeln('zwyciestwo pod Chochimiem');
   1683 : writeln('odsiecz wiedenska');
   1717 : writeln('Sejm Niemy');
   1768 : writeln('konfederacja barska');
   1772 : writeln('I rozbior Polski');
   1788 : writeln('Sejm Wielki');
   1791 : writeln('uchwalenie Konstytucji 3 Maja');
   1792 : writeln('konfederacja targowicka');
   1793 : writeln('II rozbior Polski');
   1794 : writeln('Powstanie kosciuszkowskie');
   1795 : writeln('III rozbior Polski');
   1797 : writeln('Powstanie Legionow Polskich we Wloszech');
   1807 : writeln('utworzenie Ksiestwa Warszawskiego');
   1815 : writeln('utworzenie Ksiestwa Polskiego');
   1830 : writeln('Powstanie listopadowe');
   1846 : writeln('Powstanie krakowskie');
   1863 : writeln('Powstanie styczniowe');
   1914 : writeln('wybuch I wojny swiatowej');
   1918 : writeln('odzyskanie niepodleglosci przez Polske');
   1919 : writeln('uchwalenie Malej Konstytucji');
   1921 : writeln('wojna bolszewicka');
   1920 : writeln('Cud nad Wisla');
   1922 : writeln('Konstytucja Marcowa');
   1926 : writeln('Przewrot majowy');
   1939 : writeln('wybuch II wojny swiatowej');
   1940 : writeln('Powstanie Polskiego Panstwa Podziemnego');
   1943 : writeln('Powstanie w getcie warszawskim');
   else writeln('brak danych');
   end;
   readln;
end;

BEGIN
   Textcolor(lightmagenta);
   writeln('Wykonala Agata z klasy III a');
   writeln;
   writeln('Wyszukiwacz dat');
   writeln('Co chcesz zrobic?');
   writeln('1-wyszukiwanie wydarzenia');
   writeln('2-wyszukiwanie daty');
   read(odn);
   if odn=1 then rok;
   if odn=2 then wydarz;
   readln;
end.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#4
RE: Turbo Pascal Error 113
niestety error 113 wciaz wyskakuje
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#5
RE: Turbo Pascal Error 113
No to poszukaj tego błędu. Mogę tyle powiedzieć, że działa na Free Pascal.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#6
RE: Turbo Pascal Error 113
Mi ten kod zadziałał na Turbo Pascal'u.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
error 113 turbo pascalpascal blad 113pascal error 113

Podobne wątki (Turbo Pascal Error 113)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8694 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8599 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7993 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki (Turbo Pascal Error 113)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Transfer plików via FTP Visual Basic FireBytes 3 6936 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 7125 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 8996 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 8511 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 8436 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 10518 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4346 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 9772 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 9951 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 9682 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 9353 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 8482 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 11908 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 8956 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 9406 07.02.2019 22:01
Ostatni post: Szachista