Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1 : A.while...do
Câu 2 : Var a: integer;
Câu 3 : *Câu này là A. Var a: array[1..100] of inrteger mới đúng nha bạn chứ bạn ghi "integer" là sai thành ra không có cái nào đúng đấy*
Câu 4 : C.Kiểu dữ liệu có thể là integer hoặc real *Hình như cái này thiếu ý D. ???*
Câu 5 : A.Khi điều kiện cho trước được thỏa mãn *Câu này bạn đánh máy sai kìa hai ý D mà còn lên xuống dòng tùm lum*
Câu 6 : D.6 lần
Câu 7 : *Bạn đánh máy sai câu này nên mình ko biết đáp án*
Câu 8 : B.5
Câu 9 : *Trùng câu 4*
Câu 10 : B.While < điều kiện > do < câu lệnh >;
Câu 1: D
Câu 2: B
Câu 3: C
Câu 4: B
Câu 5: Từ khóa: Program, begin. Tên: Ct_dau_tien, Lop8A
Câu 6:
- Con người ra lệnh cho máy tính bằng cách nhập các câu lệnh lên máy tính.
- Chương trình máy tính là một tập hợp các câu lệnh để thực hiện các công việc trên máy tính.
Câu 7:
a)15*(4+30)
b) a*x+b+2
c) sqr(a+b)+ sqr(c+d)
d) x-y/2*x
Câu 8:
Dòng 1: Không có lỗi sai.
Dòng 2: Không có lỗi sai.
Dòng 3: Sai. Sửa thành: var a,b:integer; ( var thì chỉ dùng ':' )
Dòng 4: Không có lỗi sai.
Dòng 5: Sai. Sửa thành: const phi=100; ( const thì chỉ dùng '=' )
Dòng 6: Không có lỗi sai.
Dòng 7: Sai. Sửa thành: readln(a,b); (viết sai chính tả từ 'readln')
Dòng 8: Sai. Sửa thành: c:=a+b+phi; (c được gán bằng a+b+phi thì phải dùng dấu':=')
Dòng 9: Không có lỗi sai.
Dòng 10: Sai. Sửa thành: end. (sau end cuối cùng phải có dấu '.')
Câu 9:
program dientich;
uses crt;
var a,b,S:integer;
Begin
clrscr;
write('nhap a,b: '); readln(a,b);
S:=a*b;
writeln('dien tich hinh chu nhat la: ',S);
readln;
end.
Câu 1 : chon C Var Tb: real; vì vì cách khai báo biến: Var<tên biến>:<kiểu dữ liệu>;
Câu 2 : Tính chu vi, diện tích hình chữ nhật có hai kích thước là a và b:
PROGRAM HINH CHU NHAT;
{Nhap hai kich thuoc a, b cua hinh chu nhat. Tinh chu vi, dien tich cua hinh chu nhat ay}
VAR a,b:real;
BEGIN
Write('Nhap canh a: ');readln(a);
Write('Nhap canh b: ');readln(b);
Writeln;
If (a>0) and (b>0)then
begin
Writeln('Chu vi P = ',2*(a+b):6:2);
Writeln('Dien tich S = ',a*b:6:2);
end
Else writeln(#7,'Khong thuc hien vi a <= 0 hoac b<=0');
Readln
AimeePhạm Thanh TườngHà Ngân HàMaria Nguyễn Thiên Trang Thuyết DươngMinh Hieu NguyenNguyễn Trần Thành ĐạtTuấn Anh Phan NguyễnNguyễn Thị Bích ThiênPhương Anh (NTMH)Trịnh Thị Như Quỳnh
Lời giải :
Câu 1 :
a) So=1 (vô hạn lần)
b) In ra màn hình dãy số từ 1 đến 20
Câu 2 :
a) Vòng lặp chạy 3 vòng , A=12
Program hotrotinhoc;
var n,A: integer;
begin
n:=2; A:=0;
while A<9 do
begin
n:=n+1;
A:=A+n;
end;
write('A=',A);
readln
end.
b) Bạn xem lại đề nha
Câu 3 : ( ) = lỗi sai
a) X:=10; while X(:)=10 do X:=X+5;
b) X:=10; while X=10 do X(thiếu dấu :)=X+5;
c) S:=0; n:=0; while S<=10 do (thiếu begin) n:=n+1; S:=S+n; (thiếu end;)
Câu 4 :a) var X: Array[10,13] Of Integer; (S)
b) var X: Array[5..10.5] Of Real; (S)
c) var X: Array[3.4..4.8] Of Integer; (S)
d) var X: Array[10..1] Of Integer; (S)
e) var X: Array[4..10] Of Real; (Đ)
Câu 5 :
program hotrotinhoc ;
var a : array[1..32000] of real ;
i,n : integer ;
begin
write('Nhap do dai cua day :'); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
while (1>=a[i]) or (a[i]>=100) do
begin
write('Nhap lai a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 6 : Bạn tham khảo ở mục câu hỏi tương tự
Bài 7 :
Program hotrotinhoc;
var a: array[1..32000] of integer ;
i,n,min,max,tong : integer ;
begin
write('Nhap do dai cua day :'); readln(n);
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:= 2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('so lon nhat la :',max);
write('So be nhat la:',min);
tong:=0;
for i:= 11 to 199 do tong:=tong+a[i];
write('Tong la :',tong);
readln
end.