Trong chương trình Pascal có các khai báo sau:
Var a,b: integer;
Const c=15.5; lệnh nào không hợp lệ?
A.
a:=5.5;
B.
b:=1.5;
C.
a:=55;
D.
b:= ‘xin_chao’;
Câu 41. Trong chương trình Pascal nếu dùng lệnh xóa màn hình ta có khai báo nào sau đây?
A. Use Crt; B. Var x,y : integer;
C. Uses Crt; D. Không cần khai báo
Cấu trúc khai báo biến mảng trong pascal và nêu các lợi ích của việc sử dụng biến mảng trong chương trình? LÀM ƠN GIÚP EM VỚI NGÀY MAI EM THI RỒI Ạ 😱😲😵 EM CẢM ƠN TRƯỚC Ạ 🙏🙏
Lời giải :
Cấu trúc khai báo biến mảng :
var <biến mảng> := array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu> ;
Lợi ích : Thuận lợi cho các bài toán như nhập điểm , .......
Câu 1: Tìm và sửa lỗi(nếu có) trong đoạn chương trình sau:
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: Cho biết kết quả của biến s sau đoạn chương trình sau:
a:=5;
s:=58;
If s>=70 then s:=s+2 else s:=s+a;
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
Khai báo biến b có kiểu số nguyên 1 điểm Var b : interger; Var b : integer ; Const b : interger; Const b : integer;
Viết chương trình bằng ngôn ngữ Pascal nhập dãy số A, biết số phần tử của dãy là n. Xác định và in ra các phần tử là số chẳn trong dãy A. Nếu nhập n<0 thì thông báo " bạn nhập sai, yêu cầu nhập lại "
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Cho dãy số nguyên a1,a2,...an gồm n phần tử (n<=300) a, Khai báo và đoạn chương trình để nhập số lượng phần tửN các giá trị cho dãy a1,a2,..an?
b,Đếm các phần tử là bội của 3 trong dãy và đưa ra màn hình?
kiểm tra xem dãy trên có phải là cấp số cộng không?
uses crt;
var a:array[1..300]of integer;
i,n,dem,kt,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
t:=abs(a[2]-a[1]);
kt:=0;
for i:=1 to n do
if t<>abs(a[i]-a[i-1]) then
begin
kt:=1;
break;
end;
if kt=0 then writeln('Day la cap so cong')
else writeln('Day khong la cap so cong');
readln;
end.
Câu1: Chương trình pascal gồm mấy phần? Nêu cụ thể từng phần.
Câu 2: Kể tên các từ khóa trong pascal?
Câu 3: cách đặt tên cho 1 chương trình pascal?
Câu 4: viết một chương trình pascal đơn giản nhất.
Câu 5: cài đặt phần mềm pascal.
Help !!!
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.
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K: WORD;
A. 44;
B. 36;
C. 38;
D. 42.
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I, J: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K:WORD;
A. 44
B. 36
C. 38
D. 42