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.
Chương trình chuẩn sau khi sửa:
Program KT_HK1;
Const
g = 9.8;
Var
h, v : real;
Begin
Writeln('Nhap h = ');
Readln(h);
v := sqrt(2 * g * h);
Writeln('v = ', v:0:3);
End.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu End.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) write(‘nhap ban kinh r = ‘);
d) Thiếu End.
a) uses crt;
b) var dt, r: real;
c) Thiếu Begin
d) dt:= pi*sqr(r);
Đoạn chương trình nào bạn
nếu là đoạn chương trình ở dưới là đúng rồi , không bị lỗi gì cả
Lỗi 1: Sai từ khóa(Programe)
Lỗi 2: Dùng cú pháp hằng mà lại dùng từ khóa khai báo biến(Var a=real;)
Lỗi 3: Dùng sai từ đọc dữ liệu(Realn)
Lỗi 4: Thiếu dấu : ở cú pháp gán
Lỗi 5: End là từ khóa để kết thúc bài mà lại có dấu;
uses crt: thư viện crt;
var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực
d,x1,x2: real là khai báo d,x1,x2 kiểu số thực
begin: bắt đầu
write('a,b,c:'); : viết(a,b,c)
readln(a,b,c); : đọc(a,b,c)
d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c
if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')
else: ngược lại
gán x1,x2 lần lượt là hai nghiệm của phương trình
xuất hai nghiệm đó ra màn hình
xong rồi readln; end. có nghĩa là kết thúc chương trình
KTC_HK1;
S: real;
Writeln('Nhap a=');
- Program KTCHK1;
- Program KTC_HK1;
- Uses crt;
- Var a, S: Integer;
- Writeln('Nhap a = ');
- Writeln('S = ' , S);
Đây là bài hoàn chỉnh, em tự dò lại từng câu lệnh nhé!
Program KTC_HK1;
Uses crt;
begin
writeln('Nhap a = ');readln(a);
s:=sqrt(a);
writeln('s = ',s);
readln;
end.