Początki w pascalu - problem?


(Przemek89k) #1

Witam uczę się pisać w Pascalu i mam problem , nie chce mi się skompilować ten programik dlaczego ?

program procedury;


uses crt;

procedure imie;

begin

if x=1 then writeln('Twoja nazwa to ', wprowadz);

if x>1 then ('Chcesz wyjsc ?');

if<1 then writeln('Przykro mi ale nie wybrales 1');

end;


var

wprowadz:string;

x:byte;



begin


write('podaj mi twoja nazwe a ja ja zapamietam ' );

readln(wprowadz);

clrscr;

writeln('A teraz sprawdz czy zapamietalem twoja nazwe nacisnij 1 a ci ja podam ');

readln(x);

imie;


end.

Chodzi w nim o to że używam funkcji procedure - wpisuje imię a program je zapamięta i poda po wciśnięciu klawisza 1. -- Dodane 10.10.2009 (So) 18:04 -- Dobra poradziłem sobie już temat można zamknąć kod ma wyglądać następująco : kilka poprawek głównie zachowanie kolejności :

program procedury;

uses crt;

var wprowadz:string;

x:byte;



procedure imie;

begin

if (x=1) then writeln('Twoja nazwa to ', wprowadz);

if (x>1) then writeln('Chcesz wyjsc ?');

if (x<1) then writeln('Przykro mi ale nie wybrales 1');

end;




begin


write('podaj mi twoja nazwe a ja ja zapamietam ' );

readln(wprowadz);

clrscr;

writeln('A teraz sprawdz czy zapamietalem twoja nazwe nacisnij 1 a ci ja podam ');

readln(x);

imie;


end.