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 8681 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8586 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7977 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
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 7148 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 4376 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 19750 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 6932 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 7083 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 8955 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 8470 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 8390 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 10479 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4339 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 9727 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 9908 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 9639 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 9307 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 8436 23.03.2019 16:49
Ostatni post: luciussulla