Forum PHP.pl

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.

program zad4;
             uses crt;
             var
             d,e,f:real;
function min3(a,b,c:real):real;
begin
if a<b then
if a<c then min3:=a
else if  b<c then min3:=b
else min3:=C;

                              end;

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



                              end.

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.

program nd;
  uses crt;

  var
  a:longint;

function nd1(n:longint):longint;

begin
if n>0 then nd1:=n else
if n<0 then nd1:=--1
end;

  begin
  write('podaj n');
  readln(a);
  write('nd', nd1(a):2);
  readkey;
  end.