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.
a. Chương trình 1 là chương trình Pascal đầy đủ và hoàn toàn hợp lệ, mặc dù chương trình này chẳng thực hiện điều gì cả. Phần nhất thiết phải có trong chương trình là phần thân chương trình được đảm bảo bằng hai từ begin và end. (có dấu chấm).
b. Chương trình 2 là chương trình Pascal không hợp lệ vì câu lệnh khai báo tên chương trình program CT_thu; phần khai báo tên trương trình không được nằm ở phần thân chương trình mà phải nằm ở đầu chương trình.
Dễ thôi:
program I_challenge_all;
uses crt;
begin
writeln('Ho va ten');
writeln('So dien thoai');
writeln('Email & Dia chi');
readln
end.
Please upvote for me!
program ....(tên bạn đặt cho chương trình);
uses crt;
begin
clrscr;
writeln (' ten của bạn ');
writeln (' sdt của bạn ');
writeln (' email của bạn');
writeln (' địa chỉ ');
readln
end.
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.
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.
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal