PROGRAM BAI10;PROGRAM BAI10; PROGRAM BAI10;PROGRAM BAI10;USES...
Bài 10.
program bai10;
program bai10;
uses crt;
uses crt;
const g= 9.8;
const g= 9.8;
var v, h:real;
var v, h:real;
begin
begin
clrscr;
clrscr;
repeat
repeat
write('Nhap do cao: ');
write('Nhap do cao: ');
readln(h);
readln(h);
if h<0 then writeln('Nhap lai!');
if h<0 then writeln('Nhap lai!');
until h>0;
until h>0;
v:=sqrt(2*g*h);
v:=sqrt(2*g*h);
write('Van toc
write('Van toc: ',v:8:3);
: ',v:8:3);
: ',v:8:3);
: ',v:8:3);
readln
readln
end
end.
.
.
.
Ví Dụ
Ví Dụ
Great by: Nguyễn Trọng Hoàng Email: [email protected]
Ch−ơng 3
Ch−ơng 3
:
:
:
:
Ch−ơng 3
Ch−ơng 3
C
C
C
C
ấu trúc rẽ nhánh và lặp
ấu trúc rẽ nhánh và lặp
Bài Thực Hành Số 2
Bài Thực Hành Số 2
---
---
---*****
---
*****
*****
*****---
---
---
---
1. SGK
2. Cõu lệnh ghộp là một cõu lệnh ủược hợp thành từ nhiều cõu lệnh thành
phần. Cõu lệnh ghộp nhằm thực hiện thao tỏc gồm nhiều thao tỏc thành
phần. Mỗi thao tỏc thành phần ứng với một cõu lệnh ủơn hoặc một cõu lẹnh
ghộp khỏc. Cõu lệnh ghộp là một trong cỏc yếu tố ủể tạo khả năng chương
trỡnh cú cấu trỳc. Cỏc cõu lệnh ủặt giữa begin và end;