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: 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.
1.a) Ngôn ngữ lập trình
b) chương trình dịch
c) Ngôn ngữ máy
d) Chương trình máy tính
e) m chịu
f) Là nhữg từ dành riêg, k đc dùg cho bất kì mục đích nào khác ngoài mục đích sử dụg do ngôn ngữ lập trình quy định
2.a) 1/b+2*(a*a+c)
b) 1/n*1/n+1*1/n+2
3.Program (1ct k thích hợp vì tên ct k đc bắt đầu = số)
uses Crt;
var a,b : real;
const c = 3;
begin
[ phần sau m quên r :( ]
Program Sara_Trang;
uses crt;
Begin
Writeln('Turbo Pascal');
Readln
End.
1: uses crt;
begin
clrscr;
writeln('turbo pascal');
readln;
end.
2: uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('turbo pascal');
readln;
end.
3:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('day la dong thu ',i,' turbo pascal');
readln;
end.
4:
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
writeln('turbo pacal');
readln;
end.
5:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i);
readln;
end.
6:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i:4);
readln;
end.
7:
uses crt;
var d,i:integer;
begin
clrscr;
d:=0;
for i:=1 to 100 do
begin
write(i:4);
inc(d);
if d mod 10=0 then writeln;
end;
readln;
end.
8:
uses crt;
var i:integer;
begin
clrscr;
writeln('cac so le trong khoang tu 1 toi 100 la: ');
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
9:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=0 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
10:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=1 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
Hình như câu này chỉ sử dụng câu lệnh for... to... do hay sao thoii í cậu. Thầy tớ gợi í thế
a)
uses crt;
var b:real;
i:integer;
begin
clrscr;
i:=10;
b:=1;
while i<=30 do
begin
b:=b*i;
i:=i+1;
end;
writeln('B=',b:0:0);
readln;
end.
b) uses crt;
var c,j:integer;
begin
clrscr;
j:=50;
c:=0;
while j<=100 do
begin
c:=c+j;
j:=j+1;
end;
writeln('C=',c);
readln;
end.
c) uses crt;
var i,d:integer;
begin
clrscr;
i:=-50;
d:=0;
while i<=50 do
begin
d:=d+i;
inc(i);
end;
writeln('D=',d);
readln;
end.
d) uses crt;
var n,i:integer;
e:real;
begin
clrscr;
write('n='); readln(n);
e:=0;
for i:=1 to n do
e:=e+1/(i*(i+2));
writeln('E=',e:4:2);
readln;
end.