PQ
2
K
Khách
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ác câu hỏi dưới đây có thể giống với câu hỏi trên
13 tháng 12 2019
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.
5 tháng 12 2016
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.
21 tháng 9 2020
program bai1;
uses crt;
Begin
writeln ('Chao ban');
writeln('Rat vui duoc lam quen voi ban');
writeln('Rat han hanh');
Readln
End.
GN
21 tháng 12 2017
program bai3;
uses crt;
begin
clrscr;
writeln('rat vui 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.
GN
21 tháng 12 2017
program bai1;
uses crt;
begin
clrscr;
writeln('=75 mod 6');
writeln('=99 div 5');
readln;
end.
NQ
Nguyễn Quốc Đạt
CTVVIP
9 tháng 11 2023
Program HOC24;
uses crt;
var s: real;
i,n,j,l: integer;
begin
clrscr;
s:=2014;
for i:= 1 to 2012 do
for j:= 4 to 2015 do
for l:=2 to 2013 do
s:=s+(i*j)/(l*(l+1));
write('S = ',s:6:2);
Readln;
end.
4 tháng 12 2016
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
8 tháng 12 2016
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.
20 tháng 3 2020
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.
20 tháng 3 2020
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.
BK
18 tháng 10 2016
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
bai hoc bổ x
Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!