a)

b)

a) 

Tham số hình thức là biến được liệt kê trong danh sách tham số (thường nằm tại phần đầu của định nghĩa chương trình con)

Tham số thực sự là giá trị cụ thể của biến đó tại thời gian chạy.

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

     Clrscr;

     Writeln('Hay nhap so m va n'); 

     if m > n then writeln(m lon hon n);

     if m < n then writeln(m nho hon n);

     else writeln('m bang n');

     readln

End.

C1: Một chương trình Pascal gồm 2 phần: phần khai báo và phần thân chương trinh

C2: Từ khóa trong Pascal: program, input, output, var, real, begin, readline, writeline và end

C3:  -Tên không bắt đầu bằng chữ số

        - Tên không có khoảng cách

        - Tên không được trùng với từ khóa

C4: ví dụ tính diện tích hình vuông:

Program HINH_VUONG;
   uses crt;
   Var canh: real;
Begin
    clrscr;
    Write('Nhap do dai canh:');readln(canh);
    Writeln('Chu vi hinh vuong la:',4*canh:10:2);
    Writeln('Dien tich hinh vuong la:',canh*canh:10:2);
    readln
end.

C5:              

     B1: Tải Pascal trên 1 link nhất định       

     B2: Mở thư mục chưa file tải về click đúp (hoặc click phải chuột chọn Install) để tiến hành cài đặt  

    B3:  Chọn Next để sang bước kế tiếp:

    B4: Click vào Browse để lựa chọn ổ đĩa cài đặt. Hoặc không bạn có thể để mặc định và tiếp tục chọn Next.

    B5: Click vào Install để bắt đầu cài đặt.

    B6: Chờ đợi quá trình cài đặt diễn ra trong một vài phút.

    B7: Click vào Finish để hoàn tất quá trình cài đặt.

Bạn chụp bài ra nhé!

Chat loc cau trong nay cho nhanh di a: Chương trình tình nguyện "Áo ấm mùa đông năm 2014" - Đem sức trẻ sưởi ấm vùng cao

Hóng

Hy vọng những chiếc áo ấm khi đến tay trẻ em miền xa sẽ không bị hụt đi chất lượng và số lượng

x=10

y=35

Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.

Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.

Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.

what dờ phắc

câu 1:

Var a, b: real;

Begin

Clrscr;

Write(‘nhap a=’), read(a);

Write(‘nhap b=’); read(b);

If a+b = 120 then a:=120-b;

Readln

End.

câu 2: 

s = 63