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.

KTC_HK1;

S: real;

Writeln('Nhap a='); 

14 tháng 1 2022

- Program KTCHK1;

- Program KTC_HK1;

- Uses crt;

- Var a, S: Integer;

- Writeln('Nhap a = ');

- Writeln('S = ' , S);

10 tháng 7 2017

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) readln(r);

d) Thiếu End.

24 tháng 6 2018

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) write(‘nhap ban kinh r = ‘);

d) Thiếu End.

31 tháng 10 2017

a) uses crt;

b) var dt, r: real;

c) Thiếu Begin

d) dt:= pi*sqr(r);

Đề bài yêu cầu gì vậy bạn?

Đ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ả

6 tháng 5 2020

Bn sửa giúp mình luôn dc kh... Cảm ơn bn

\n

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