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 8698 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8603 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7997 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
  Środowisko do assemblera Physicist 4 9788 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 9978 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 9710 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 9380 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 8496 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 11936 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 8983 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 9432 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 10864 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 9720 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 10498 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 9733 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 10429 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 13105 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 10926 07.11.2018 13:41
Ostatni post: Ajgor