Một số bài Pascal (Hàm & thủ tục)

Tổng 3 số

Code:

var a,b,c: integer;
function sum( x,y,z: integer):integer;
begin
sum:=x+y+z; end;
begin
writeln('Nhap vao a b c: ');
readln(a,b,c);
write(a,' + ',b,' + ',c,' = : ',Sum(a,b,c));
readln
end.


Nhập 2 số tìm Max,Min:

Code:

 var a,b: integer;
 function max(x,y:integer):integer;
 begin
 if x<y then max:=y else max:=x; end;
 begin
 write('Nhap 2 so :');
 readln(a,b);
 write('Max =: ',max(a,b));
 readln
 end.

Code:

 var a,b: integer;
 function min(x,y:integer):integer;
 begin
 if x>y then min:=y else min:=x; end;
 begin
 write('Nhap 2 so :');
 readln(a,b);
 write('Min = : ',min(a,b));
 readln
 end.

HCN 7x3

Code:

procedure hcn ;
          begin
          writeln('*******');
          writeln('*    *');
          writeln('*******');
          end;
begin
hcn;
readln
end.

HCN m x n

Code:

var x,z:integer;
PROCEDURE hcn(m,n:integer);
var j,i:integer;
begin
    for i:=1 to m do write('*'); writeln;
    for i:=1 to n-2 do
    begin
    write('*'); for j:=1 to m-2 do write(' '); write('*');writeln;
    end;
    for i:=1 to m do write('*'); writeln;
end;
begin
write('Nhap chieu dai va rong '); readln(x,z);
hcn(x,z);
readln
end.

Giai thừa

Code:

var a: integer;
function GT( x:integer): real;
var  kq: real;  i:integer;
            begin      kq:=1;
            for i:=1 to x do kq:=kq*i; GT:=kq;
            end;
begin
write('Nhap a: ');
readln(a);
write(a,'! = ',GT(a):4:2);
readln
end.

Bình phương

Code:

var a: integer;
function BP( x: integer):integer;
        begin  BP:=X*x;  end;
begin
write('Nhap a: ');
readln(a);
write(a,'^2 = ',BP(a));
readln
end.

X mũ n

Code:

 var x,n: integer;    kq: longint;
 function ham( a,b:integer):longint;
                var i: integer;
                begin    kq:=1;
                          for i:=1 to b do kq:=kq*a;
                          ham:=kq;
                end;
  begin
  write('Nhap x , n :');
  readln(x,n);
  write(x,'^',n,' = : ', Ham(x,n) );
  readln
  end.



Ước chung lớn nhất

Code:


var x,y:integer;
function  ucln(a,b:integer):integer;
          begin
              while a<>b do if
                    a>b then a:=a-b else b:=b-a;
              ucln:=a;
          end;
begin
    write('nhap  x, y ');readln(x,y);
    write('ucln la : ',ucln(x,y));
    readln
end.

Hoán đổi

Code:

 var a,b: integer;
 procedure TD(var a,b: integer);
 var tam :integer;
 begin
 tam:=a;
 a:=b;
 b:=tam;
 end;
 begin
 writeln('Nhap 2 so: ');
 readln(a,b);
 writeln('truoc khi trao doi: a= ',a,'  b=  ',b);
 TD(a,b);
 write('sau khi trao doi: a= ',a,'  b=  ',b);
 readln
 end.

Căn giữa

Code:

uses crt;
type xau = string[79];
var A: xau;
procedure cangiua(var s: xau);
var i,n,m :integer;
begin
n:= length(s);
m:= (80-n) div 2  ;
for i:= 1 to m do s:=' '+s;
end;
begin
write('nhap xau s:  ');
readln(A);
clrscr;
cangiua(A);
write(A);
readln
end.

Khoảng cách 2 điểm

Code:


var x1,x2,y1,y2:real;
function kc(x1,x2,y1,y2:real):real;
        begin
    kc:=sqrt(sqr(x1-x2)+sqr(y1-y2));
        end;
begin
    write('Nhap toa do diem thu nhat: '); readln(x1,y1);
    write('Nhap toa do diem thu hai: '); readln(x2,y2);
    write('Khoang cach 2 diem la : ',kc(x1,y1,x2,y2));
    readln
end.

Kiểm tra tam giác đều

Code:


type diem=record
                x,y:real;
                end;
var a,b,c:diem;
function dodai(x1,x2,y1,y2:real):real;
        begin
        dodai:=sqrt(sqr(x1-x2)+sqr(y1-y2));
        end;
function  deu(x1,y1,x2,y2,x3,y3:real):boolean;
          begin
          deu:=false;
          if (dodai(x1,y1,x2,y2)=dodai(x1,y1,x3,y3))
          and (dodai(x1,y1,x2,y2)=dodai(x2,y2,x3,y3))
          then deu:=true;
          end;
begin
    write('Nhap toa do diem I '); readln(a.x,a.y);
    write('Nhap toa do diem II '); readln(b.x,b.y);
    write('Nhap toa do diem III '); readln(c.x,c.y);
    if deu(a.x,a.y,b.x,b.y,c.x,c.y) then writeln('Tam giac da cho la tam giac deu')
    else writeln('tam giac da cho khong deu');
    readln
end.

Copy nội dung từng bài tập và dán vào Notepad
Lưu lại với phần mở rộng .pas (VD:tong3so.pas) rồi mở bằng pascal
nếu không biết thì lưu dạng *.txt cũng được
Nếu lưu dạng .txt thì mở = pascal qua menu Open With hoặc kéo thả vào biểu tượng của pascal !

Chụp cái cho coi chơi nè


Chúc thành công
Thân !

Desktop đẹp lắm !
PFS có bản 9 rồi mà giờ còn xài bản 8
PS xài ngon hơn (có cái là khó sử dụng quá thôi !)
Image To PDF là cái gì ?

ông coi Pascal hay coi desktop của tui zị chài ?
Tui chụp cho coi chơi thôi -> Miễn hỏi, miễn bình luận

Trả lời dùm...image to PDF là chương trình chuyển ảnh thành E-Book (*.pdf)

Rảnh rảnh send cho tui cái PFS nha...

lên megasharesvn có đóa
bản 9.1