a) uses crt;
b) var dt, r: real;
c) Thiếu Begin
d) dt:= pi*sqr(r);
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Cho chương trình Pascal sau:Program chuvi_duongtron :uses crt;const pi : 3.14;var cv, r: real;Beginclrscr;write(‘nhap ban kinh r ‘); writeln(r);cv: 2*pi*r;writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);readlnHãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Đọc tiếp
Cho chương trình Pascal sau:
Program chuvi_duongtron :
uses crt;
const pi := 3.14;
var cv, r: real;
Begin
clrscr;
write(‘nhap ban kinh r = ‘);
writeln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Cho chương trình Pascal sau:Program chuvi_duongtron:uses crt;const pi 3,14; var cv, r: real;Begin clrscr; write(nhap ban kinh r ); readln(r); cv: 2*pi*r; writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’); readlnHãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Đọc tiếp
Cho chương trình Pascal sau:
Program chuvi_duongtron:
uses crt;
const pi = 3,14;
var cv, r: real;
Begin
clrscr;
write(nhap ban kinh r = );
readln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses : crt;
const pi = 3.14;
var dt, r = real;
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng
1. tìm và sửa lỗi cú pháp cho chương trình sau: ( nếu có )
PI= 3.14;
R=float(input('Nhap ban kinh: ')
S : PI*R**2
Print('Diện tích hình tròn bán kính', r ' là: ',S)
mọi người giúp mình với!. Cảm ơn ạ
Sửa lỗi cú pháp cho chương trình sau nếu có Program KT HK1 Const g:= 9.8; Var h, v:read; Begin Writeln('Nhap h=) Readln(N); V= sqrt(2*g* h); Writeln( V = ', v); End. b. Cho biết giá trị của v sau khi thực hiện chương trình đã sửa với h = 20.
Cho chương trình sau:Program kiemtra;Uses crt;Var a,b:integer;Procedure Hoandoi(Var x,y:integer);Var tg: integer;BeginTg:x;x:y;y:tg;End;BEGINClrscr;a:8;b:16;writeln(a,’ ‘,b);readlnend. Trả lời các câu hỏi sau:a, Nêu các khái niệm:-Tham số hình thức ? ví dụ?-Tham số thực sự? ví dụ?-Biến cục bộ? ví dụ?-Biến toàn cục ? ví dụ?-Lời gọi chương trình con? ví dụ? ví dụ đã có trong chương trình hãy nêu cụ thểb, Chương trình con có tên là gì ?Thực hiện công việc gì?Kết quả trên màn hình là gì?
Đọc tiếp
Cho chương trình sau:
Program kiemtra;
Uses crt;
Var a,b:integer;
Procedure Hoandoi(Var x,y:integer);
Var tg: integer;
Begin
Tg:=x;
x:=y;
y:=tg;
End;
BEGIN
Clrscr;
a:=8;b:=16;
writeln(a,’ ‘,b);
readln
end.
Trả lời các câu hỏi sau:
a, Nêu các khái niệm:
-Tham số hình thức ? ví dụ?
-Tham số thực sự? ví dụ?
-Biến cục bộ? ví dụ?
-Biến toàn cục ? ví dụ?
-Lời gọi chương trình con? ví dụ?
< ví dụ đã có trong chương trình hãy nêu cụ thể>
b, Chương trình con có tên là gì ?Thực hiện công việc gì?Kết quả trên màn hình là gì?
program tuluan;
var n,t: integer;
begin
real (n);
if n mod 2 khác 0
then t:=n*n
else t:=n*n*n
write('t=' t:5);
readln
end.
1. sửa lỗi cú pháp cho đoạn chương trình trên nếu có
2. khi cho n=3 thì sau khi kết thúc ct, t bằng bao nhiêu?
cho chương trình: program vd ; var a,b,c:integer; begin readln(a,b,c); writeln((a+b)/2:2:0,a+b+c,(a*b)); end
Chuyển sang C++ giúp mình với ạ 1: uses crt;var a,b,i,tsc,tsl:integer;beginclrscr;write(nhap a); readln(a);write(nhap b); readln(b);if (a0) and (b0) thenbeginif ab thenbegintsc:0;tsl:0;for i:a to b doif i mod 20 then tsc:tsc+ielse tsl:tsl+i;writeln(tong cac so chan trong khoang tu ,a, toi ,b, la: ,tsc);writeln(tong cac so le trong khoang tu ,a, toi ,b, la: ,tsl);endelse writeln(vui long nhap a be hon b);endelse writeln(vui long nhap hai so duong);readln;end.
Đọc tiếp
Chuyển sang C++ giúp mình với ạ 1:
uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
end.