Skocz do zawartości

kepasa

Użytkownicy
  • Zawartość

    1
  • Rejestracja

  • Ostatnio

Reputacja

0 Neutralny

O kepasa

  • Ranga
    Nowy na forum
  1. Hej, jestem tu nowa, więc sorry jeżeli napisałam w złym miejscu. Mam na zaliczenie zrobić program w pascalu do liczenia pól figur. Napisałam coś takiego: PROGRAM Pola_i_objetosci; uses crt; CONST pi=3.14; VAR r, h, a, pole : real; c : byte; PROCEDURE Kolo; BEGIN ClrScr; writeln('Podaj dlugosc promienia'); readln®; pole := pi*r*r; writeln('pole = ' , pole:0:2); end; PROCEDURE Trojkat; BEGIN ClrScr; writeln('Podaj wysokosc trojkata'); readln(h); writeln('Podaj dlugosc podstawy'); readln(a); pole := 0.5*h*a; writeln('pole = ' , pole:0:2); end; PROCEDURE Kwadrat; BEGIN ClrScr; writeln('Podaj dlugosc boku'); readln(a); pole := a*a; writeln('pole = ' , pole:0:2); end; BEGIN REPEAT writeln('Pole jakiej figury chcesz policzyc?'); writeln('1. Kolo'); writeln('2. Trojkat'); writeln('3. Kwadrat'); writeln; writeln('Zeby dokonac wyboru nacisnij cyfre 1-3 i enter'); readln©; if c = 1 then Kolo else begin; if c = 2 then Trojkat else begin; if c = 3 then Kwadrat; end end; readln; END. I wyskakuje mi błąd "113 error in statement". Rozumiem z tego, że mam jakiś błąd w kodzie, ale nie mam pojęcia gdzie. Może mi ktoś coś podpowiedzieć?
×
×
  • Utwórz nowe...