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
Em có thể xem những tin tức hay chương trình giải trí nào dưới đây trên Internet?
A. Lịch thi đấu bóng đá.
B. Phim hoạt hình dành cho thiếu nhi.
C. Video giới thiệu các danh lam thắng cảnh, điểm du lịch nổi tiếng.
D. Cả A, B và C.
Em có thể xem những tin tức hay chương trình giải trí nào dưới đây trên Internet?
A. Lịch thi đấu bóng đá.
B. Phim hoạt hình dành cho thiếu nhi.
C. Video giới thiệu các danh lam thắng cảnh, điểm du lịch nổi tiếng.
D. Cả A, B và C.
Câu 1: Mỗi câu lệnh dưới đây đều có lỗi sai, em hãy sửa lại cho đúng
a) For i:= 17 to 109 do writeln (‘a);’
b) For i:= 1 to 10 do x=x+1;
c) S:= 7
While S:= 15 do n:=n+s;
d) Var a:=array [1…100] of real;
Câu 2: Viết chương trình Pascal tính và in giá trị của tổng S ra màn hình với
S= 1000+1001+1002+…+1021
Câu 3: Nêu cú pháp sử dụng lệnh For…do lệnh While…do:
Câu 4: Nêu cú pháp khai báo biến mảng trong chương trình Pascal:
Giải giúp mình với mai cô kiểm tra rồi!!!
câu 1:
a)for i:=17 to 109 do writeln('a');
b)for i:=1 to 10 do x:=x+1;
c)s:=7;
while s<=15 do
begin
n:=n+s;
s:=s+1;
end;
d)var a:array[1..100] of real;
câu 2:
program tihn_tong;
uses crt;
var s,i:integer;
begin
clrscr;
i:=1;s:=1000;
while i<=21 do
begin
s:=s+1000+i;
i:=i+1;
end;
writeln(s);
readln;
end.
câu 3:
cú pháp của lệnh for...to...do:
for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>
cú pháp của lệnh while...do:
while<điều kiện>do<công việc>
câu 4:
cú pháp khai báo biến mang trong chương trình pascal:
khai báo trực tiếp:
var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>
khai báo gián tiếp:
type <biến mang> =array[chỉ số]of <kiểu dữ liệu>
Câu 1:
a) for i:=17 to 109 do
writeln('a');
Câu 1:
b) for i:=1 to 10 do
x:=x+1;
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.
sau khi đoạn chương trình x:=0; y:=5; for i:=1 to 5 do x:=x+2; y:=y+x; cho biết lệnh lặp giá trị x và y và chương trình thực hiện bao nhiêu vòng lặp?
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âu 1 : Viết chương trình kiểm tra xem N được nhập từ bàn phím có phải là số nguyên tố hay ko ?
Câu 2 : Viết chương trình nhập vào một mảng các số nguyên . Ghi ra màn hình . Tìm giá trị max , min của mảng đó
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
1.Cho đoạn chương trình sau :
S:= 0 ; n:= 0 While S <= 7 do
begin n:= n+1; S:= S+n ; end ;
a)Tính số vòng lặp.
b)Sau khi thực hiện chương trình giá trị biến S bằng bao nhiêu?
Hãy lập chương trình hoạt động cho một trong những hoạt động sau:
a. Tổ chức diễu hành, phát thanh tuyên truyền về an toàn giao thông.
b. tổ chức vẽ tranh, sáng tác thơ, truyện về an toàn giao thông.
c. tổ chức diễu hành, phát thanh tuyên truyền về phòng cháy chữa cháy.
chọn 1 trong các đề trên và lập chương trình
Thi vẽ tranh, sáng tác thơ, truyện về an toàn giao thông
I. Mục đích
- Rèn luyện tính năng động cho học sinh và đội viên.
- Tuyên truyền và giáo dục học sinh về an toàn giao thông.
II.Công tác chuẩn bị
- Phổ biến ý nghĩa, nội dung cuộc thi.
- Phát động phong trào sáng tác thơ truyện, vẽ tranh về an toàn giao thông.
III. Chương trình cụ thể
- Quy định ngày nộp tác phẩm hoạ, thơ, truyện.
Ban báo chí lớp kết hợp Chi đội dưới sự chỉ đạo của thầy (cô) giáo chủ nhiệm chấm điểm các tác phẩm hoạ, thơ, truyện của các bạn trong lớp.
Lập biểu mẫu báo cáo thành tích với sự xác nhận của thầy cô giáo chủ nhiệm.
Lưu số liệu vào hồ sơ chi Đội.
Phát thưởng.
Phê bình (nếu có).
đúng rồi nha bạn
