Sửa
Program Tam_giac;
Var a, b, c, h, Cv, Dt: Integer;
Begin
Clrscr;
Write('nhap canh tuong ung a=');
Readln(a);
Write('nhap chieu cao h=');
Readln(h);
Dt:=1/2*a*h;
Cv:=a+b+C;
Writeln('Dt=',Dt);
Writeln('Cv=',Cv);
Readln;
End.
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Sửa lỗi cho chương trình sau :
( Chương trình tìm chu vi và diện tích của hình tam giác có 3 cạnh a , b , c và đường cao h ứng với cạnh a; nhập từ bàn phím )
Use crt;
Var a,b,c,h : integer ;
Begin
clrscr;
Readln(a,b,c);
Writeln( a + b + c= '; 'met');
Write ( a*h/2= ','met vuong');
Readln;
End.
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ?
Program Tong_hai_so;
Begin
Writel(‘Hay nhap hai so’); Readln(a,b);
Write(‘Tong cua hai so la: ‘,a+b);
Var a,b: Integer;
End.
Giúp mik vs mai mik thi r
1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu)
2) Cho đoạn chương trình sau:
Program sua loi;
var a,b,s =real
Begin
write ('nhap a=') , readln('a');
write (nhap b=') , readln(b')
s:= (a*b)/2;
write ('s=s);
readln
End.
đoạn chương trình sau có mấy chỗ sai
Const c:= 3;
Var a, b:= integer;
Begin
Readln(a)
…….b= a/c;
…….Writeln(b);
Readln;
End
giúp em với
Mn người ơi giúp mình giải các bài này nha mai mik thi tin rồi
Câu 1:Chương trình sau đây có hợp lệ không?Nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tingtong;
Begin
Writeln('nhap sp nguyen duong a:'); Readln(a)
Writeln('nhap sp nguyen duong b:'); readln(b)
S:=a+b
Writeln('tong hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S:real
End.
Câu 2: viết chương trình tính chu vi và diện tích hình tròn,biết bán kính đc nhập từ bàn phím.
Câu 3:chương trình sau đây có hợp lệ không?nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tinhhieu;
Begin
Writeln('nhap sp nguyen duong a:'); readln(a);
Writeln('nhap sp nguyen duong b:');
readln(b);
S:=a-b
Writeln('hieu hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S: real;
End.
Câu 4: viết chương trình tính diện tích hình thang, biết rằng chiều cao bằng 5, đáy lớn và đáy bé đc nhập từ bàn phím
Câu 5:viết chương trình cho biết chữ số hàng trăm ,hàng chục ,hàng đơn vị của một số có ba chữ số.Ví dụ khi nhập số 357 thì máy in ra:
-chữ số hàng trăm:3
-chữ số hàng chục:5
-chữ số hàng đơn vị:7
Câu 6: viết chương trình giải phóng phương trình ax+b=0(các hệ số a,b đc nhập từ bàn phím)
Câu 7:viết chương trình nhập vào ba số thực dương và thông báo ra màn hình kết quả là ba số đó có phải là ba cạnh của tam giác không?
Cảm ơn trước luôn nha
Trong chương trình Pascal sau hãy tìm lỗi sai và sửa lại cho đúng
1. Program Hinh tron
2. Var cr , dt , r : = integer
3. Begin
4. r : = 2
5. cv = 2 * pi * r
6. dt : pi * r * r
7. Writeln ( ' Chu vi la : = cv ' )
8. Writeln ( ' Dien tich la : ' = dt )
9. Readln
10 . End
Viết CT kiểm tra xem 1 số nguyên được nhập từ bàn phím có tính chất đối xứng hay ko.
Sửa lỗi cho ct viết theo đề bài trên:
uses crt;
var a,n,i:integer;
begin
write('nhap so: ');readln(a);
n:=length(a);
for i:=1 to n do
if a[i] = a[n-i+1] then write('co') else write('khong');
readln
end.
Tìm lỗi sai và sửa lại cho đúng trong các chương trình sau:
a) Begin
Program vd
Uses crt;
Clrscr;
Writeln('Chao cac ban!')
End.
Readln
b) Var a,b :=integer;
Const c:=3;
Begin
a:=200
b:=a/c;
Writeln(b)
Readln
End.
