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.
uses crt;
begin
clrscr;
writeln('rat vui khi duoc lam quen voi cac ban');
writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8');
writeln('chuong trinh Turbo Pascal rat la hay');
readln;
end.
1.
A) Tên không hợp lệ, vì tên không được bắt đầu bằng số
B) Tên hợp lệ
C) Tên không hợp lệ, vì tên không được có các ký tự đặc biệt
D) Tên không hợp lệ, vì tên không được trùng với từ khóa
E) Tên hợp lệ
F) Tên không hợp lệ, vì tên không được chứa dấu cách
G) Tên hợp lệ
H) Tên hợp lệ
I) Tên hợp lệ
Câu 2:
program chương trình (Tên sai, thiếu đấu ";")
wrte('Chao cac ban khoi 8'); (Viết sai "write")
writeln('chuc cac ban lam bai that tot') (Thiếu dấu ";")
end (thiếu dấu ".")
Sửa:
program chuong_trinh;
begin
write('chao cac ban khoi 8');
writeln('Chuc cac ban lam bai that tot');
end.
Bài 1:
a) Tên không hợp lệ. Bởi vì tên được bắt đầu bằng chữ số
b) Tên hợp lệ
c) Tên không hợp lệ. Bởi vì tên chứa kí tự đặc biệt là @
d) Tên không hợp lệ. Bởi vì tên trùng với từ khóa
e) Tên hợp lệ
f) Tên không hợp lệ. Bởi vì tên có khoảng cách
g) Tên hợp lệ
h) Tên hợp lệ
i) Tên hợp lệ
Bài 2:
*Lỗi:
-Program chương trình(tên sai vì được viết bằng tiếng việt; thiếu dấu ;)
-Wrte('chao cac ban khoi 8');(sai từ khóa vì thiếu chữ i)
-Writeln('chuc cac ban lam bai that tot')(sai vì thiếu dấu ;)
-End(sai vì thiếu dấu .)
*Sửa lại
Program chuong_trinh;
Begin
Write('chao cac ban khoi 8');
Writeln('chuc cac ban lam bai that tot');
End.
de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
de 3,
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
program dgv;
uses crt;
var x,y,z,n,i: integer;
p,S,A: real;
begin
clrscr;
writeln('Nhap x: '); read(x);
writeln('Nhap y: '); read(y);
writeln('Nhap z: '); read(z);
writeln('Nhap n: '); read(n);
if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');
if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');
if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');
if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');
if n mod 3 <> 1 then writeln('Tong khong co quy luat') else
begin
S:=0;
for i:= 0 to (n-1)/3 do
S:= S+(3i+1);
writeln('S = ',S);
A:=0;
p:=1;
for i:=1 to n do
begin
p:= p*(x/(x+y));
A:=A+p;
end;
writeln('A = ',A);
readln
end.
*Thuật toán là một phần của chương trình thể hiện được các thủ thuật thông minh của người lập trình để máy chạy đúng nhất, ít lãng phí bộ nhớ và thời gian nhất.
* Các bước để giải một bài toán trên máy tính:
+ Xác định bài toán
+ Lựa chọn hoặc thiết kế thuật toán
+ Viết chương trình
+ Hiệu chỉnh
+ Viết tài liệu.
uses crt;
var i,n:integer; S:real;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do S:=S+1/(i*(i+2));
writeln('Tong la: ',S:3:1);
readln
End.
program vantoc;
uses crt;
var v,s,t:real;
begin
writeln('nhap quang duong km');
readln(s);
writeln('nhap thoi gian h');
readln(t);
v:=s/t;
writeln('thoi gian la',v:4:2);
readln
end.
câm mồm
skibidi tolet