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);

24 tháng 6 2018

a) Program chuvi_duongtron;

b) const pi = 3.14;

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

d) Thiếu End.

10 tháng 7 2017

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) readln(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);

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

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;

Chọn đáp án đúng 1, thông tin nào không phải là hằng số học : a, -2,23E01 b, 54 . c, -23.25 d, 45' 2, biểu thức nhận giá trị là True hoặc False là : a, toán học thực và logic. b, logic và quan hệ c, toán học và lôgic . d, quan hệ và toán học 3, Biến t có thể nhận các giá trị là 1;100;12.55;-46.1 có thể khai báo biến t có kiểu là : a, integer và real. b, byte và integer . c, real và byte d, real 4, Phần mở rộng của Pascal là : a, ( .txt )...
Đọc tiếp

Chọn đáp án đúng 1, thông tin nào không phải là hằng số học : a, -2,23E01 b, 54 . c, -23.25 d, 45'

2, biểu thức nhận giá trị là True hoặc False là :

a, toán học thực và logic. b, logic và quan hệ c, toán học và lôgic . d, quan hệ và toán học

3, Biến t có thể nhận các giá trị là 1;100;12.55;-46.1 có thể khai báo biến t có kiểu là : a, integer và real. b, byte và integer . c, real và byte d, real

4, Phần mở rộng của Pascal là : a, ( .txt ) b, ( .dos ) c, (.gas ) d, ( .xls )

5, thủ tục để nhập dữ liệu vào biến là :

a, write và readln b, real và writeln. c, write và writeln d, real và readln

6, xét biểu thức ( n mod 2<>0) and ( m div 2 >= 5 ) với giá trị nào của m dưới đây để biểu thức trên cho giá trị là True : a, 5 B, 500 c, 455. D, 6

7, Biến n chỉ nhận một trong hai giá trị là '1' và '0' hãy cho biết khai báo nào sau đây là đúng : a, Var N : Clar b, Var N : Byte c, Var N : Boolean d, Var N : Real

8, hàm số căn bậc hai của P là : a, Abs (P) b, Sqr ( P ) c, Sqr ( P ) d, Sqrt ( P )

9, biểu thức ( 2*2 <1+1 ) or ( Abs (-3) <= 3 ) trong Pascal sẽ nhận giá trị là : a, đúng . b, sai c, True d, False.

10, hãy chọn ra kiểu dữ liệu có kích thước bộ nhớ lớn nhất trong các kiểu sau : a, integer b, byte . C, longint d, real

Phần tự luận :

1, hãy phân biệt kiểu giống và khác nhau của tên dành riêng và tên chuẩn

2, cho hình thoi ABCD có độ dài hai đường chéo AC và BD lần lượt là d1 và d2 dữ liệu được nhập từ bàn phím . Em hãy viết chương trình tính diện tích hình thoi ABCD

3, Em hãy viết biểu thức logic để ba số a,b, c tạo thành : - ba cạnh của tam giác. - ba cạnh của tam giác cân. - ba cạnh của tam giác đều . - ba cạnh của tam giác vuông

4, A, Tìm lỗi sai trong đoạn Pascal sau : Var so1,so2,hieu:=integer; Begin writeln ( ' chung trinh thuc hien phep tru so hoc ' ) So1:=400 So2:=250 ; Hieu:= so1-so2; Writeln('ketqua=',hieu:5); Readln; End b, cho biết kết quả xuất ra màn hình của chương trình trên sau khi đã sửa lỗi sai

5, viết chương trình tính trung bình cộng của 4 số bất kì dữ liệu nhập từ bàn phím với điều kiện sử dụng 4 biến .

1
12 tháng 10 2019

tự luận bài 5

uses crt;

var a,b,c,d:integer;

tbc:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

tbc:=(a+b+c+d)/4;

writeln('trung binh cong cua 4 so la: ',tbc:4:2);

readln;

end.