Question

Napisz program w programie pascal. Chciałbym, aby była w nim ramka. Mógłby to być program na wyszukiwanie największej, czy najmniejszej liczby, czy też kalkulator. Wybór dowolny (niekoniecznie spośród podanych) . Proszę zrobić to jak najszybciej. Dam najlepsze ;)

Answer 1

Ramka:

uses crt;
var liczba[1..13] of longint;

PROCEDURE WriteXY(x,y:byte; s:string);

Begin

GotoXY(x,y);

Write(s);

End;



PROCEDURE Ramka(x1,y1,x2,y2:byte);

Var

t:byte;



Begin

WriteXY(x1,y1,chr(201));

WriteXY(x1,y2,chr(200));

WriteXY(x2,y1,chr(187));

WriteXY(x2,y2,chr(188));

For t:=x1+1 To x2-1 Do WriteXY(t,y1,chr(205));

For t:=x1+1 To x2-1 Do WriteXY(t,y2,chr(205));

For t:=y1+1 To y2-1 Do WriteXY(x1,t,chr(186));

For t:=y1+1 To y2-1 Do WriteXY(x2,t,chr(186));

End;



Begin

Clrscr;

Ramka(5,5,12,9);

End.

i pokazujący liczby największa>mniejsza>najmniejsza:

var a,b,c :integer;
begin
writeln('Podaj 3 rozne liczby, Program wypisze je w porzadku rosnacym');
read(a,b,c);
if (a>b) and (a>c) then
if b>c then
writeln(c','b','a)
else
writeln(b','c','a);
begin
if (b>a) and (b>c) then
if a>c then
writeln(c','a','b)
else
writeln(a','c','b);
end;
begin
if (c>a) and (c>b) then
if a>b then
writeln(b',' a','c)
else

writeln(a','b',' c);
end;
end.


______________

Pozdrawiam