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 8400 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8341 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7716 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
  problem z programem .bat wiktrom12 4 11768 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 10415 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 11181 09.08.2018 16:24
Ostatni post: Ajgor
  Który język wybrać do stworzenia aplikacji synchronizujące pliki z urządzeniem mobiln Elemental 2 2704 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 11676 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 12085 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 11036 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 11581 19.05.2018 20:55
Ostatni post: koneton
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 11160 16.05.2018 12:04
Ostatni post: kazik666
  BASH symulator silnika dawswi1 3 11216 13.05.2018 10:43
Ostatni post: Szachista
  Autohotkey automatyczny zapis TheProgson 0 10728 07.05.2018 21:27
Ostatni post: TheProgson
  VBA Pobieranie wybranych plików z danymi julietta03 1 11083 04.05.2018 08:25
Ostatni post: broda99
  [VBA] Przenoszenie danych między formularzami Pioro 4 11576 23.04.2018 11:48
Ostatni post: broda99
  Skrypt, który szuka i zamienia armen10 2 10962 23.04.2018 10:04
Ostatni post: armen10
  Liniowa regresja w Pythonie a budowanie modelu Trojan3000 2 11067 16.04.2018 13:26
Ostatni post: Trojan3000