Program bai4;
Const pi:= 3.1416;
Var cv,dt,r:real;
Begin
R:=5.5;
cv:=2*Pi*r;
dt:=pi*r*r;
Writeln('chu vi hinh tron la:',cv);
Writeln('Dien tich hinh tron la:',dt);
readln
End.
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
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.
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.
Câu 1 . Hãy đánh dấu x vào ô ở cột mà em chọn :
Cho phương trình viết trong Pascal :
\(Program\) Hinh_tron ;
\(Var\) ban_kinh , chu_vi , dien_tich : real ;
\(Const\) Pi = 3.14 ;
\(Begin\)
Writeln (' Cho biet ban kinh : ') ; readln ( ban_kinh) ; chu_vi:=2*Pi*ban_kinh;
dien_tich:=Pi*ban_kinh*ban_kinh;
Writeln ('C=' , chu_vi , 'S=' , dien_tich );readln.
End
Hãy phân biệt Từ khóa , tên , hằng , biến trong chương trình trên và đánh dấu X vào bảng sau :
| \(Hằng\) | \(Biến\) | \(Từ Khóa\) | \(Tên\) | |
| Program | ||||
| Pi | ||||
| Hinh_tron | ||||
| Const | ||||
| chu_vi | ||||
| dien_tich | ||||
| writeln | ||||
| End |
Viết chương trình tính diện tích , chu vi hình chữ nhật
Help me :"}
Minh co 3 de thi thuc hanh ne . minh hoc ko gioi mon nay lam ban nao bt giup minh voi:
1, Viet chuong trinh nhap 2 so la chieu dai va chieu rong cua hinh chu nhat.tinh chu vi va dien tich .sau do in ra man hinh chu vi va dien tich cua hinh chu nhat do
2,Viet chuong trinh nhap ban kinh cua duong tron sau do tinh dien tich cua duong tron do. in kq cua dien tich h tron do ra man hinh
3, Viet cong thuc nhap lai 2 so a va b . sau do tinh tong,hieu,tich,thuong cua 2 so do . In kq ra man hinh
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.
đ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
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
Program tong_so_le;
Uses crt;
Var S,N,I:Integer;
Xữa chương trình sau( nếu sai)
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do If (I mod 2<>0) then
S:=S+I;
Writeln('Tong cac so le la ',S); Readln;
End.
Giup mik nha các bn
Thanks
