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 8384 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8326 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7696 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
  Menu (Nie widoczne długie opisy) wanhelsing 5 9602 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4171 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 8860 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 8981 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 8726 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 8404 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 7539 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 10851 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 7985 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 8440 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 9857 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 8739 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 9484 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 8785 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 9488 19.12.2018 16:45
Ostatni post: Szachista