Chyba v programe Pascal (Lazarus)

GamerSK · Napísal **GamerSK**: 11.11.2016 17:19

Zdravím.
Dnes som skúšal taký jednoduchý program v Lazarus no vyhadzuje mi to chybu:

Kód:

vypocet_rychlosti_dopadu.pas(15,1) Fatal: Syntax error, ";" expected but "BEGIN" found

Konkrétny program:

Kód:

program vypocet_rychlosti_dopadu;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
  t : integer;
  v : real
begin
  writeln('Program na vypocet rychlosti dopadu.');
  write('Zadajte trvanie dopadu v sekundach: ');
  readln(t);
  v:= t * 9.81;
  writeln('Rychlost dopadu je: ',v' metrov za sekundu');
  readln;
end.

// Spojený príspevok Pia 11.11.16 17:23

'Vyriešil' som to zabudol som na ; ale stale mam otázku. ako sa dá vytvoriť retazec napr.

Kód:

writeln('Vylsedok: ',c:1:3' metrov');

lebo mi to nejde

BX · Napísal BX: 11.11.2016 19:32

Za c:1:3 skús ešte čiarku. Do writeln idú všetky stringy ako parametre oddelené čiarkou a môže ich byť koľko chceš.

GamerSK · Napísal autor témy **GamerSK**: 11.11.2016 23:57

ďakujem. Narazil som na dalsiu chybu. po vytvorení tohto programu na podmienky alebo cykli nevyznam sa v tom este

mi nejde subor kompilovat kvôli prvemu end

Kód:

program podmienky;
uses Classes;
var
  a,r,b : byte;
  d,dd,o,s : word;
begin
  writeln('Pre vypocet obsahu a obvodu stvorca napis 1.');
  readln(r);
  writeln('Pre vypocet obsahu a obvodu obdlznika napis 2.');
  readln(b);
  writeln('Pre ukoncenie programu napis 3.');
  readln(a);
end;
begin
  repeat until r = 1;
         writeln('Zvolili ste si obvod a obsah stvorca.');
         write('Zadajte dlzku strany: ');
         readln(d);
         O := 4 * d;
         S := a * d;
         writeln('Obvod je ',o,' centimetrov Obsah je ',s,' centimetrov stvorcovych.');
         readln;
end;
begin
  repeat until b = 2;
         writeln('Zvolili ste si obvod a obsah obdlznika.');
         write('Zadajte dlzku strany a: ');
         readln(d);
         write('Zadajte dlzku strany b: ');
         readln(dd);
         O := 2 *(d+dd);
         S := d * dd;
         writeln('Obvod je ',o,' centimetrov Obsah je ',s,' centimetrov stvorcovych.');
         readln;
end;
begin
  repeat until a = 3;
         repeat
         writeln('Pre potvrdenie vypnutia programu stlacte lubovolnu klavesu');
         readln;
         until keypressed;
end.
 

BX · Napísal BX: 12.11.2016 9:18

A na co tam vlastne to prvé end je? Ešte raz si pozri, na čo sú begin a end.

GamerSK · Napísal autor témy **GamerSK**: 12.11.2016 18:08

Ďakujem BX za tvoju ochotu sa mi "venovať". Prišiel som na iný spôsob.

Kód:

program podmienky;
uses Classes;
var
  a : byte;
  d,dd,o,s : word;
begin
     writeln('Pre vypocet obsahu a obvodu stvorca napis 1.');
     writeln('Pre vypocet obsahu a obvodu obdlznika napis 2.');
     writeln('Pre ukoncenie programu napis 3.');
     readln(a);
          if a = 1 then
          begin
                 writeln('Zvolili ste si obvod a obsah stvorca.');
                 write('Zadajte dlzku strany: ');
                 readln(d);
                 O := 4 * d;
                 S := a * d;
                 writeln('Obvod je ',o,' centimetrov Obsah je ',s,' centimetrov stvorcovych.');
                 readln;
          end;
          if a = 2 then
          begin
                 writeln('Zvolili ste si obvod a obsah obdlznika.');
                 write('Zadajte dlzku strany a: ');
                 readln(d);
                 write('Zadajte dlzku strany b: ');
                 readln(dd);
                 O := 2 *(d+dd);
                 S := d * dd;
                 writeln('Obvod je ',o,' centimetrov Obsah je ',s,' centimetrov stvorcovych.');
                 readln;
          end;
          if a = 3 then
          begin
                 writeln('Pre potvrdenie vypnutia programu stlacte lubovolnu klavesu');
                 readln;
          end;
end.

BX · Napísal BX: 12.11.2016 19:15

Rado sa stalo

Chyba v programe Pascal (Lazarus)

Podobné témy