[pascal] pomoc w zadaniu Opcje

[aleo]

Kod

program rysowanie;
uses crt; var x1,y1:longint;ss:string;
procedure pisarz(x,y:longint;s:string);
begin
gotoxy(x,y);
write(s);
end;
begin
clrscr;
   write('podaj x y i s');    read(x1);read(y1);write('podaj s');read(ss);
pisarz(x1,y1,ss);
end.

dlaczego nie wyczytuje zmiennej ss?

[sebekzosw]

Mmmmm ;d Pascal (IMG:http://forum.php.pl/style_emoticons/default/biggrin.gif) I like it! ;]

wszystko jest dobrze:

Kod

program zad4;

uses crt;
var d,e,f:real;

function min3(a,b,c:real):real;
        begin
                if (a<b) AND (a<c) then min3:=a
                else if b<c then min3:=b else min3:=c;

        end;


begin
        writeln('podaj a, b, c ');
        readln(d,e,f);
        writeln('najmniejsza wartosc ',min3(d,e,f):2:0);
        readln;
end.

trochę skróciłem ;]

Ten post edytował sebekzosw 18.05.2009, 08:13:34