Nội dung của Bài thực hành 4: Sử dụng câu lệnh điều kiện dưới đây nhằm giúp các em luyện tập sử dụng câu lệnh If...then, rèn kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa của thuật toán sử dụng trong chương trình. Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
- Viết được được câu lệnh điều kiện if...then trong chương trình;
- Rèn luyện kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa của thuật toán sử dụng trong chương trình.
Các dạng của câu lệnh điều kiện:
- Câu lệnh điều kiện dạng thiếu
Cú pháp: IF < điều kiện > THEN < câu lệnh >;
- Câu lệnh điều kiện dạng đủ:
Cú pháp:
IF < điều kiện > THEN < câu lệnh 1 >
ELSE < câu lệnh 2 >;
Bài 1. Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm (tăng dần).
Gợi ý làm bài:
Xác định bài toán:
Input: Nhập 2 số nguyên a và b
Output:
Thuật toán:
Chương trình:
program Sap_xep;
uses crt;
var A, B: integer;
begin
clrscr;
write('Nhap so A: '); readln(A);
write('Nhap so B: '); readln(B);
if A
else writeln(B,' ',A);
readln
end.
Bài 2: Viết chương trình nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, dưới dạng "Bạn Long cao hơn", "Bạn Trang cao hơn", "Hai bạn bằng nhau".
Gợi ý làm bài:
Xác định bài toán:
Input: Nhập chiều cao Long và Trang
Output:
In "Bạn Long cao hơn", nếu Long > Trang
In "Bạn Trang cao hơn", nếu Long < Trang
In "Hai bạn bằng nhau", nếu Long = Trang
Thuật toán:
Bước 1: Nhập chiều cao hai bạn Long, Trang;
Bước 2: Nếu Long > Trang in ra màn hình "Ban Long cao hon";
Bước 3: Nếu Lòng < Trắng in ra màn hình "Bạn Trắng cao hơn" ngược lại thì in ra màn hình "Hai bạn cao bằng nhau";
Bước 4: Kết thúc.
Chương trình:
program Ai_cao_hon;
uses crt;
var Long, Trang: Real;
begin
clrscr;
write('Nhap chieu cao cua Long:');
readln(Long);
write('Nhap chieu cao cua Trang:'); readln(Trang);
If Long>Trang then writeln('Ban Long cao hon');
If Long
else writeln('Hai ban cao bang nhau');
readln
end.
Lưu chương trình với tên Aicaohon
Nhập bộ dữ liệu (1.5, 1.6) và (1.6, 1.5) và (1.6, 1.6) để thử chương trình
Bài 3: Nhập ba số dương a, b, và c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba số đó có thể là độ dài các cạnh của một tam giác hay không.
Gợi ý làm bài:
- Xác định bài toán:
+ Input: Nhập ba số dương a, b, và c từ bàn phím
+ Output:
a, b, và c là độ dài các cạnh của một tam giác
a, b, và c không là độ dài các cạnh của một tam giác
- Mô tả thuật toán:
Hình 1. Sơ đồ khối mô tả thuật toán kiểm tra ba số a, b và c có phải là các cạnh của một tam giác hay không?
Chương trình:
Program Ba_canh_tam_giac;
uses crt;
Var a, b, c: real;
Begin
Clrscr;
write('Nhap ba so a, b va c:' ); readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln('a, b va c la 3 canh cua mot tam giac!')
else writeln('a, b, c khong la 3 canh cua 1 tam giac!');
end.
Sau khi học xong Bài thực hành 4: Sử dụng câu lệnh điều kiện, các em cần ghi nhớ các nội dung:
1. Câu lệnh điều kiện dạng thiếu:
If <điều kiện> then ;
2. Câu lệnh điều kiện dạng đầy đủ:
If <điều kiện> then else ;
3. Sử dụng từ khóa and trong câu lệnh If có thể kết hợp nhiều phép so sánh đơn giản thành một phép so sánh phức tạp. Giá trị của phép so sánh này là đúng khi và chỉ khi tất cả các phép so sánh đơn giản đều đúng. Ngược lại, nó có giá trị sai.
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 4 cực hay có đáp án và lời giải chi tiết.
Các câu lệnh Pascal sau đây được viết đúng?
If ... Then ... Else là loại nào?
Câu 3- 5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Các câu lệnh Pascal sau đây được viết đúng?
If ... Then ... Else là loại nào?
IF a>8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị nào?
Chương trình sau cho kết quả là gì?
Program vd;
Var a, b,: real; x,: integer ;
Begin readln(a, b);
If a>b then x:=a else x:=b;
Write(x);
End.
Chọn câu lệnh Pascal hợp lệ trong các câu sau:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Viết chương trình nhập cân nặng của hai bạn a và b in ra màn hình kết quả so sành cân nặng của hai bạn
Câu trả lời của bạn
Program Ai_nặng_hơn;
var a,b : real;
begin
writeln ('Nhập cân nặng cảu bạn a :'); readln(a);
writeln ('Nhập cân nặng cảu bạn b :'); readln(b);
if a>b then writeln ('Bạn a nặng hơn bạn b')
else if a<b then writeln ('Bạn b nặng hơn bạn a')
else writeln ('Hai bạn a và b nặng bằng nhau');
readln
end.
Viết chương trình nhập vào 3 cạnh a,b,c(số dương),sau đó kiểm tra xem có thành lập được 1 tam giác hay không ?
Câu trả lời của bạn
program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('nhap ba canh cua tam giac'); readln(a,b,c);
if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');
readln
end.
Program ba_canh_cua_tam_giac;
uses crt;
var a,b,c: real;
BEGIN
Write('nhap do dai canh a'); Readln(a);
Write('nhap do dai canh b'); Readln(b);
Write('nhap do dai canh c'); Readln(c);
If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')
else write('do khong la do dai cua mot tam giac');
Readln;
END.
Thanks
mô tả thuật toán và vt chương trình tính tiền điện cho 1 hộ gđ vs mức giá như sau nếu dùng ít hơn 100kw vs giá 1200đ nếu từ 100kw trở lên thì moi chu gia 2000đ giúp mk vs
Câu trả lời của bạn
* Mô tả thuật toán:
- Nhập a;
- Nếu a<100 then với giá 1200đ ngược lại với giá 2000đ;
- In kết quả ra màn hình và kết thúc.
* Viết chương trình:
program Tien_dien;
uese crt;
var a,S:integer;
begin
clrscr;
write('Hay nhap KW tiêu thụ');readln(a);
if a<100 then S:=100*1200 else S:=100*2000;
writeln('So tien ho gia dinh can tra:',S);
readln
end.
(mk hk chắc nha bạn mk chỉ pk nhiêu đây thôi)
Nhập 3 loại tiền và số tiền cần đổi. Hãy tìm tất cả các tổ hợp có được của 3 loại tiền trên cho số tiền vừa nhập
Câu trả lời của bạn
Bạn có thể tham khảo nha :P
viết chương trình kiểm tra 1 tam giác có phải là tam giác cân hay không
Câu trả lời của bạn
Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;
Write('nhap a =');
readln(a);
Write ('nhap b =');
readln(b); Write('nhap c =');
readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
if (a=b) or (b=c) or (c=a) then
Writeln('la tam giac can ');
End
Else
Writeln('a,b,c khong phai la ba canh cua tam giac') ;
Readln;
End.
Viết chương trình nhập vào 3 số tự nhiên a,b,c sau đó in ra màn hình cho biết ba số đó có phải là đọ dài của ba cạnh của một tam giác
Nếu là độ dài của tam giác thi hãy cho biết là tam giác gì?
Các bạn giúp mình nha. Thank you very much
Câu trả lời của bạn
progam ban_tu_chon;
uses crt;
var a,b,c :real;
BEGIN
clrscr;
write('nhap canh a thu nhat'); Read(a);
write('nhap canh b thu hai:'); Readln(b);
write('nhap canh c thu ba'); Readln(c);
if (a>=b+c) or (b>=c+a) or (c>=a+b) then write('ba canh tren khong phai cua mot tam giac')
else
if (a=b) or (b=c) or (c=a) then write('tam giac tren la tam giac can');
else
if a=b=c then write('tam giac tren la tam giac deu')
else
if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write('tam giac tren la tam giac vuong');
readln;
END.
program ba_canh_tam_giac;
uses crt;
var a,b,c: longint;
begin
clrscr;
writeln('nhap 3 do dai: '); readln(a,b,c);
if (a<(b+c)) then writeln('khong la do dai 3 canh cua tam giac') else
if (a=b) and (b=c) and (c=a) then writeln('do la tam giac deu') else
if (a=b) or (b=c) or (c=a) then writeln('la tam giac can') else
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('la tam gia vuong');
readln
end.
Bạn tham khảo nhé!!!
Đọc ngày tháng năm , sau đó viết ra màn hình đó là ngày thứ mấy trong tuần .
Câu trả lời của bạn
Var Thu , Ngay , Thang : Byte ;
Nam : Integer ;
BEGIN
Write (` Doc Ngay Thang Nam : `) ;
Readln ( Ngay , Thang , Nam ) ;
Nam := 1900 + ( Nam mod 1900 ) ;
If Thang < 3 Then
Begin
Thang := Thang + 12 ;
Nam := Nam - 1 ;
End ;
Thu := Abs ( Ngay + Thang * 2 + ( Thang + 1 ) * 3
div 5 + Nam + Nam div 4 ) mod 7 ;
Case Thu Of
0 : Writeln (` Chu Nhat `) ;
1 : Writeln (` Thu Hai `) ;
2 : Writeln (` Thu Ba `) ;
3 : Writeln (` Thu Tu `) ;
4 : Writeln (` Thu Nam `) ;
5 : Writeln (` Thu Sau `) ;
6 : Writeln (` Thu Bay `) ;
7:Writeln('Chu nhat');
End ;
Readln ;
END .
Nhập bốn số a , b , c , d . Hãy tìm giá trị lớn nhất của chúng và gán giá trị lớn nhất đó cho biến Max .
Câu trả lời của bạn
Var Max , a , b , c , d : Real ;
BEGIN
Writeln (` Nhap gia tri cua 4 so : `) ;
Write (` a = `) ; Readln ( a ) ;
Write (` b = `) ; Readln ( b ) ;
Write (` c = `) ; Readln ( c ) ;
Write (` d = `) ; Readln ( d ) ;
Max := a ;
If Max < b Then Max := b ;
If Max < c Then Max := c ;
If Max < d Then Max := d ;
Writeln (` Gia tri lon nhat la : `, Max ) ;
Readln ;
END .
viết chương trình pascal tìm số lớn nhất trong 2 số nguyên
Câu trả lời của bạn
Program bai1;
uses crt;
var a,b: longint;
begin
clrscr;
write('nhap so thu nhat = '); readln(a);
write('nhap so thu hai ='); readln(b);
if a > b then writeln(a , ' la so lon nhat ');
if a < b then writeln(b , 'la so lon nhat ');
if a = b then writeln('khong co so nao lon nhat ');
readln;
end.
Nhập N số bất kì .
Đếm các số lớn hơn 10 và nhỏ hơn 20 và tính tổng của chúng . Sau đó , đưa ra màn hình :So cac so >10 và <20 la : ( gia tri ) ;Tong cua chung la : ( gia tri )
Câu trả lời của bạn
Var Tong , So : Real ; I , N , Dem : Integer ;
BEGIN
Write (` Bao nhieu so : `) ; Readln ( N ) ;
Tong := 0 ; Dem := 0 ;
For I := 1 To N Do
Begin
Write (` So = `) ; Readln ( So ) ;
If ( So > 10 ) and ( So < 20 ) Then
Begin
Tong := Tong + So ;
Dem := Dem + 1 ;
End ;
End ;
Writeln (` So cac so >10 va <20 la : `, Dem ) ;
Writeln (` Tong cua chung la :`, Tong ) ;
Readln ;
END .
Nhập hai số a,b .In ra màn hình UCLN(a,b)BCNN(a,b)
Câu trả lời của bạn
c3:
function ucln(x,y:integer):integer;1. Viết chương trình nhập vào 3 cạnh của tam giác kiểm tra và đưa ra màn hình:tam giác thường,tam giác cân,tam giác đều, tam giác vuông
2.Viết chương trình tính diện tích của hình tam giác vs độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên đc nhập vào từ bàn phím
3.Viết chương trình tính chu vi,diện tích,của hình tròn vs bk đc nhập vào từ bàn phím
4.Viết chương trình giải phương trình bậc nhất ax+b=0 với a#0 và a,b nhập từ bàn phím
5.Viết chương trình tìm số lớn nhất trong 2 số nguyên a,b
Các bạn giúp mk vs mk sắp ktra rồi các bạn trả lời được câu nào thì các bạn trả lời mk sẽ tick cho
Câu trả lời của bạn
1.
Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;
Write('nhap a =');
readln(a);
Write ('nhap b =');
readln(b); Write('nhap c =');
readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
if (a=b) and (b=c) then write('la tam giac deu') else
if (a=b) or (b=c) or (c=a) then write('la tam giac can') else if (a*a = b*b+c*c) or (b*b =c*c+a*a) or ( c*c= b*b+a*a) then write('la tam giac vuong');
End
Else
Writeln('a,b,c khong phai la ba canh cua tam giac') ;
Readln;
End.
1.Viết chương trình của 1 tam giác có phải là tam giác cân hay không biết 3 cạnh được nhập từ bàn phím
2. Viết chương trình nhập số A thì cho biets số đó chẳng hay lẻ
3. Viết chương trình so sánh chiều cao của 2 bạn
4. Viết chương trình tìm số lớn nhất của số tự nhiên được nhập từ bàn phím
5. Viết chương trình thông báo điểm . Nếu điểm bé hơn 5 thì đáng hỏng ngược lại thì đánh đậu
Câu trả lời của bạn
3.
program So_sanh_chieu_cao;
uses Crt;
var Van, Nguyen: Real;
begin
clrscr;
write('Nhap chieu cao cua Van:'); readln (Van);
write('Nhap chieu cao cua Nguyen:'); readln (Nguyen);
If Van>Nguyen then writeln ('Ban Van cao hon') else
If Van<Nguyen then writeln ('Ban Nguyen cao hon')
else writeln ('Hai ban cao bang nhau');
readln
end.
B1: VCT tính tổng tiền đi xe taxi biết rằng 1km đầu tên giá 13000 VND. Từ km thứ hai đến km thứ ba mươi giá 12000 và trên 30km giá 11000 VND. Biết rằng số km được nhập từ bàn phím
B2: VCT nhập hai số thực rồi hỏi phép tính và thực hiện phép tính đó và in kết
B3: VCT nhập bán kính của hai đường tròn và khoảng cách giữa hai tâm của đường tròn là d. Xác định vị trí tương đối của hai đường tròn.
Câu trả lời của bạn
Bài 3:
Program Khao_Sat_Hai_Duong_Tron; Var R1, R2 ,x1, y1,x2,y2, Kc, Tong, Hieu: Real; BEGIN Writeln('KHAO SAT 2 DUONG TRON'); Writeln('----------------------------------------------------'); Writeln; Writeln('*Duong tron thu nhat'); Write(' +Ban kinh: '); Readln(R1); Write(' +Toa do x: '); Readln(x1); Write(' +Toa do y: '); Readln(y1); writeln; Writeln('*Duong tron thu hai'); Write(' +Ban kinh: '); Readln(R2); Write(' +Toa do x: '); Readln(x2); Write(' +Toa do y: '); Readln(y2); Kc:=Sqrt(Sqr(x1 – x2) + Sqr(y1 – y2)); Tong:=R1 + R2; Hieu:=ABS(R1 – R2); If (Kc = 0) AND (Hieu = 0) Then Writeln('-Hai duong tron trung nhau') Else If (Hieu > Kc) Then Writeln('-Hai duong tron long nhau') Else If (Tong = Kc) OR (Hieu = Kc) Then Writeln('-Hai duong tron tiep xuc nhau') Else If (Tong > Kc) AND (Hieu < Kc) Then Writeln('-Hai duong tron cat nhau ') Else If (Tong < Kc) Then Writeln('-Hai duong tron o ngoai nhau-'); Readln End.viết chương trình tính biểu thức x=a+b*2 và so sánh x bé hơn hay lớn hơn 10. Dùng lệnh if........then..........else......để so sánh ?
Câu trả lời của bạn
uses crt;
var x,a,b:integer;
begin
clrscr;
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);
x:=a+b*2;
if x>10 then write('X lon hon 10')
else write('X be hon 10');
readln;
end.
Câu 1 : Viết chương trình nhập vào 1 số nguyên dương c từ bàn phím. Hãy viết chương trình pascal xác định số a chia hết cho 2 hay không? In kết quả ra màn hình.
Câu 2: Viết chương trình lập 3 số nguyên a,b,c từ bàn phím. Em hãy viết chương trình pascal tính tổng 3 số trên. In kết quả ra màn hình.
Câu 3: viết chương trình pascal nhập 3 số nguyên từ bàn phím. Em hãy viết chương trình pascal kiểm tra xem số vừa nhập là chẵn hay lẻ và in kết quả ra màn hình.
Câu trả lời của bạn
Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.
Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.
Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.
Viết chương trình bằng NNLT Pascal : " Cho hai biến x và y, hoán đổi giá trị của các biến nói trên để x và y theo thứ tự có giá trị không giảm ".
(Dựa vào mô tả thuật toán sau:
Input: 2 biến x và y
Output: 2 biến x và y có giá trị không giảm
B1: Nhập giá trị x,y
B2: Nếu x>y thì z <- x; x <- y; y <- z
B3: Thông báo kết quả và kết thúc thuật toán.
(:< thật ra tớ viết được CT r nhưng mak biến z thì phải khai báo biến sao...và có cần gán z:=0 hay không)...
Mơn nhìu nà :* <3
Câu trả lời của bạn
không cần cho z:=0 đâu nha :)
bạn có thể tham khảo:
viết chương trình nhập vào một điểm kiểm tra. Kiểm tra vừa nhập ở loại nào.(giỏi, khá, trung bình).
Câu trả lời của bạn
var n : real;
begin
write('Nhap diem kiem tra : '); readln(n);
if n<6.5 then write('Loai Trung binh')
else if n<8 then write('Loai kha')
else write('Loai gioi');
readln
end.
Viết chương trình tìm ước chung lớn nhất của 3 số nguyên a,b, c nhập từ bàn phím
Câu trả lời của bạn
var a,b,c,i,min,ucln:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
min:=a;
if a>b then min:=b;
if a>c then min:=c;
for i:=1 to min do
if (a mod i=0) and (b mod i=0) and (c mod i=0) then ucln:=i;
writeln(' uoc chung lon nhat cua a,b,c la: ',ucln);
readln;
end.
viết chương trình pascal để xác định 3 số nguyên a,b,c nhập từ bàn phím là độ dài 3 cạnh của 1 tam giác vuông.
viết chương trình pascal để xác định 3 số nguyên a,b,c nhập từ bàn phí là độ dài 3 cạnh của 1 tam giác cân.
Đề thi nên mik cần trả lời gấp.
Câu trả lời của bạn
program kiem_tra;
ues crt;
var a,b,c:integer;
begin
write('nhap so a');readln(a);
write('nhap so b');readln(b);
write('nhap so c');readln(c);
if(a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=b*b+a*a)then writeln('day la tam giac vuong')else writeln('day la tam giac thuong');
readln;
end.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *