Một số kĩ thuật cơ bản của Pascal

[gyghung]

bảng mã ASCII

program gyg;
uses crt;
var I:integer;
begin
clrscr;
for I:=0 to 255 do
write(I,'=', CHR(I),'');
readln;
end.

[nguyenthong1593]

program fibonaci;{c/trinh tim so Fibonaci thu n}
uses crt;
var n,i: integer;fi1,fi2,fi3 :longint;
begin
clrscr;
write('nhap so n = ');readln(n);
fi1:=1; fi2:=2; fi3:=fi1 + fi2 ;
if(n=1) or (n=2) then writeln('so fibonaci thu ',n,' = 1')
else
for i:= 3 to n do
begin
fi1:= fi2;
fi2:= fi3;
fi3:= fi1 + fi2;
end;
writeln('so fibonaci thu ',n,' = ',fi3);
readln;
end.
hjhj có gì không đúng thì mong các bác bỏ qua cho em nha! hjhj

[nazcy]

Function GT(x,y:integer):Longint;

cái này là gì hả bạn, có bắt buộc phải dùng không. tớ chưa bao giờ dùng " function" nên không biết

[lendoixyz]

hi mình mới học pascal nhưng toàn dùng để giải toán mình chẳng hiểu gì cả ai có thể hướng dẫn cho mình từng bước 1 để học pascal được pro ko ^^
Yh: upanhx

[kh1132000]

Giup mính sửa đoạn code này với.


program kyphapnghichdao;
type kieu_stack =array[1..80] of 0..1;
var BT:string[30];
S: kieu_stack;
Top,i,so1,so2,n,x:integer;
procedure PUSH(var s:kieu_stack;var Top:integer;x:integer);
begin
if Top:=n then
writeln('s khong con cho trong');
else
begin
Top:=Top+1;
S[Top]:=x;
end;
end;
function POP(var s:kieu_stack; var Top:integer; x:integer):integer;
begin
if Top>0 then
begin
POP:=S[Top];
Top:=Top-1;
end;
else
writeln('stack day');
end;
function tinh_BT(BT:string):real;
begin
for i:=1 to length(BT) do
begin
case BT[i] of
'+':begin
so1:= POP(s, Top);
so2:= POP(s, Top);
PUSH(s,Top, so1+so2);
end;
'-':begin
so1:=POP(s, Top);
so2:=POP(s, Top);
PUSH(s,Top, so1-so2);
end;
'*':begin
so1:=POP(s, Top);
so2:=POP(s, Top);
PUSH(s,Top, so1*so2);
end;
'/':begin
so1:=POP(s, Top);
so2:=POP(s, Top);
PUSH(s,Top, so1/so2);
end;
slse
begin
val(BT[i],n,e);
PUSH(s,Top,n);
end;
end;
Tinh_BT:=POP(s,Top);
end;
BEGIN
write('nhap BT hau to:');
readln(BT);
writeln('tinh BT=',Tinh_BT(BT));
END.

[tho ngok]

[/code]
+Sắp xếp mảng a với n phần tử theo thứ tự tăng dần,sử dụng thuật toán Bubble Sort

Procedure BubbleSort(Var a:mang,n:integer);{Mang là kiểu array khai báo      
                                            bằng từ khóa Type}
Var i,j:integer;
Begin
for j:=1 to n-1 do
  for i:=n downto j+1 do
    if a[i]<a[i-1] then 
      Swap(a[i],a[i-1];{Thủ tục Swap ở trên})
End;

xin lỗi
mh là member mới vào nghề nên củ chuối lắm
bạn có thể chỉ cho mh cái 'thủ tục swap' trên dk k??
chắc trên phần khai báo phải có thêm cái j liên quan đến swap phải k nạk
bạn đừng cười nha
:">

[=========> Bổ sung bài viết <=========]

cho tui hoi loi 109 trong passcal la loi ji vay

[=========> Bổ sung bài viết <=========]

co ban nao joi jup tui voi
tui cam on nhieu

hình như sau phụ lục SGK lớp 11 có bạn ạk
mh nhác đi tìm sách nữa nên bạn chịu khó nha
xl bạn

[auauau97]

Tiếp nhé
+Hàm kiểm tra số nguyên tố,trả về true nếu số n là số nguyên tố

Function nt(n:integer):boolean;
Var
  i:integer;
Begin
  if n<=1 then begin
    nt:=false;
    Exit;
  end;
  for i:=2 to (n div 2) do
    if (n mod i)=0 then begin
      nt:=false;
      Exit;
    end;
  nt:=true;
End;

+Hàm tính giai thừa(loại cơ bản,áp dụng cho số nguyên dương n<=15)

Function gt(n:byte):Longint;  
Var
  s:Longint;
  i:byte;
Begin
  s:=1
  For i:=2 to n do 
    s:=s*i;
  gt:=s;
End;

+Sắp xếp mảng a với n phần tử theo thứ tự tăng dần,sử dụng thuật toán Bubble Sort

Procedure BubbleSort(Var a:mang,n:integer);{Mang là kiểu array khai báo      
                                            bằng từ khóa Type}
Var i,j:integer;
Begin
for j:=1 to n-1 do
  for i:=n downto j+1 do
    if a[i]<a[i-1] then 
      Swap(a[i],a[i-1];{Thủ tục Swap ở trên})
End;

Phương pháp này chạy chậm với những bộ dữ liệu lớn,vì vậy khi cần phương pháp sắp xếp tốt hơn,bạn nên dùng phương pháp Quick sort.Chương trình của nó có sẵn trong thư mục Example của Pascal,là file QSort.pas.Tuy nhiên bạn nên nhớ lấy để dùng,ko nên quá ỷ lại vào chương trình có sẵn,rủi bị ai xóa mất thì chỉ có khóc thôi

.Chương trình của nó có sẵn trong thư mục Example của Pascal,là file QSort.pas

Cái chỗ thư mục Example là ở chỗ nào thế bạn, sao tp7 của mình không có nhỉ ?
Có gì sai sót xin anh em bỏ qua nhé !

[=========> Bổ sung bài viết <=========]

Hàm tính USCLN của 2 số :

Function USCLN(a,b:integer):integer;{Ham tim USCLN cua 2 so}
Begin
  If a<0 then a:=-a;
  If b<0 then b:=-b;
  While (a<>0) and (b<>0) do
    If a>b then a:=a mod b
    Else b:=b mod a;
  USCLN:=a+b;
End;

[auauau97]

cái này là gì hả bạn, có bắt buộc phải dùng không. tớ chưa bao giờ dùng " function" nên không biết

Không bắt buộc phải dùng đâu bạn !

[horseman194]

ban auauau9 oi làm giúp mình bài này vs. Viết 1 code hoàn chỉnh lun nha
Viết chương trình khai báo một chuỗi có chiều dài 50 kí tự.
Viết chương trình sinh các kí tự ngẫu nhiên trên chuỗi đó. Biết các số thứ tự từ A->Z là 65->90

[auauau97]

ban auauau9 oi làm giúp mình bài này vs. Viết 1 code hoàn chỉnh lun nha
Viết chương trình khai báo một chuỗi có chiều dài 50 kí tự.
Viết chương trình sinh các kí tự ngẫu nhiên trên chuỗi đó. Biết các số thứ tự từ A->Z là 65->90

Đã có bạn trả lời hộ bạn trong topic này rồi mà:
http://www.ddth.com/showthread.php/8...%ADp-pascal-vs

Uses crt; 
Var 
  chuoi:string[50]; 
  i:integer; 
BEGIN 
  Clrscr;
  Randomize; 
  For i:=1 to 50 do 
    chuoi[i]:=chr(random(25)+65); 
  Writeln('Chuoi ky tu ngau nhien la :'); 
  For i:=1 to 50 do write(chuoi[i]); 
  Readln; 
END.