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
CÁC BN GIÚP MIK NHÉ nhập vào đồng thời 2 số nguyên ? nếu nhập vào là 2 số chẳn thì thông báo ra màn hình "cả hai đều là số chẳn ", nếu nhập cả hai đều là số lẽ thì thông báo "cả hai đều là số lẽ ", nếu nhập vào 1 số lẽ hoặc 1 số chẳn thì thông báo "bạn vừa nhập một số chẳn và một số lẽ "
Câu trả lời của bạn
program chan_le;
uses crt;
Var so1, so2: integer;
Begin
write('Nhap so thu nhat: '); readln(so1);
write('Nhap so thu hai: '); readln(so2);
if (so1 mod 2 = 1) and (so2 mod 2 = 0) then
write('Ban vua nhap vao mot so chan va mot so le')
else if (so1 mod 2 = 0) and (so2 mod 2 = 0)
then write('Ca hai deu la so chan')
else if (so1 mod 2=1) and (so2 mod 2 = 1)
then write('Ca hai deu la so le');
readln;
end.
viết chương trình tìm ucln và bcnn trong pascal
Câu trả lời của bạn
Dung roi
tính UCLN của a và b
program uoc_chung;
uses crt;
var a,b: integer;
begin
writeln('nhap a='); readln(a);
writeln('nhap b='); readln(b);
while a>b do then a:=a-b
else b:=b-a;
if a=b then write ('uoc chung lon nhat la',a)
readln;
end.
BCNN tương tự
viết chương trình kiểm tra xem 1 số có phải là số chính phương không
Câu trả lời của bạn
Program so_chinh_phuong;
uses crt;
Var n,x: integer;
BEGIN
clrscr;
write('Nhap so can kiem tra: n = ');
readln(n);
x:=trunc(sqrt(n);
IF sqr(x)=n then write(n,'la so chinh phuong);
ELSE write(n,' khong phai la so chinh phuong.');
readln;
END.
Tìm số lớn nhất trong 3 số a, b, c chỉ được dùng hàm if vs and
Các bạn giỏi tin giúp mình giải bài toán hàm IF với nhé!cảm ơn các bạn
Câu trả lời của bạn
Program So_Lon_Nhat;
Uses crt;
Var a,b,c:integer;
Begin
Clrscr;
Write(' Nhap ba so nguyen:');
Readln(a,b,c);
If (a>b) and (a>c) then Write(' So lon nhat la:',a);
If (b>a) and (b>c) then Write(' So lon nhat la:',b);
If (c>a) and (c>b) then Write(' So lon nhat la:',c);
Readln;
End.
1. Viết chương trình in ra số lớn hơn trong 2 số được nhập từ bàn phím.
2. Viết chương trình in ra số lớn hơn trong 4 số được nhập từ bàn phím
Câu trả lời của bạn
1.Program solonhon;
ues crt;
var a,b:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
if a>b then writeln('a lon hon');
if b> a then write('b lon hon')
else writeln('a=b');
readln
end.
2.program solonhon;
uses crt;
var a,b,c,d:real;
begin
clrscr;
write('nhap bon so a,b,c,d:'); readln(a,b,c,d);
if (a>b) and (a>c) and (a>d) then writeln('a lon hon')
else if (b>a) and (b>c) and (b>d) then writeln('b lon hon')
else if (c>a) and (c>b) and (c>d) then writeln('c lon hon')
else if (d>a) and (d>b) and (d>c) then writeln('d lon hon')
else write('a=b=c=d');
readln
end.
Viết chương trình nhập 3 số và so sánh số nào lớn nhất, xét 4 trường hợp: a lớn nhất, b lớn nhất, c lớn nhất, a=b=c
Câu trả lời của bạn
program thefirstprograms;
uses crt;
var a,b,c:longint;
begin
clrscr;
write('Nhap so thu nhat ');readln(a);
write('Nhap so thu hai ');readln(b);
write('Nhap so thu ba ');readln(c);
if (a>b) and (a>c) then writeln(a,' la so lon nhat')
else if (b>a) and (b>c) then writeln(b,' la so on nhat')
else if (c>a) and (c>b) then writeln(c,' la so lon nhat')
else (a=b=c) then writeln('Ba so bang nhau');
readln
end.
Viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình kết quả so sánh của 2 số --giúp với mai nộp cho thầy rồi
Câu trả lời của bạn
Program bai1;
uses crt;
var a,b: longint;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
if a > b then writeln('a lon hon b ');
if a < b then writeln('a nho hon b ');
if a = b then writeln('a bang b ');
readln;
end.
Nhập 3 số dương a,b,c từ bàn phím. Viết chương trình kiểm ra 3 số đó có thể là độ dài của 3 cạnh 1 tam giác hay không. Nếu là 3 cạnh thì cho biết tam giác đó thuộc loại gì ( vuông, cân , đều ) và tính diện tích tam giác đó
Câu trả lời của bạn
chúc học tốt
Viết chương trình kiểm tra xem một số nguyên là chẵn hay lẻ, nếu là chẵn thì cộng 5, nếu là lẻ thì cộng 4
Câu trả lời của bạn
Program chanle;
Var
a:Integer;
Begin
Write('nhap a ');
Readln(a);
If (a mod 2=0) then
a:=a+5
Else
a:=a+4;
Writeln('So a la ',a);
Readln;
End.
Viết chương trình nhập vào 3 số nguyên a,b,c. Xét điều kiện để tìm ra số lớn nhất trong 3 số đó và in ra màn hình
~~~ Đang cần gấp để thi học kì ~~~
Mọi người giúp với ạ :3
~ Cảm ơn ~
Câu trả lời của bạn
program so_lon_nhat;
uses crt;
var a,b,c:integer;
begin
writeln ('Nhap so nguyen a='); readln(a);
writeln ('Nhap so nguyen b='); readln(b);
writeln ('Nhap so nguyen c='); readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
writeln ('So lon nhat trong 3 so la:',max);
readln
end.
viết chương trình nhập vào 3 số nguyên a, b, c khác nhau từ bàn phím. In ra màn hình 3 số đó theo thứ tự tăng dần
Câu trả lời của bạn
var a, b, c: real;
begin
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if a>=b then
begin
if b>=c then {a ≥ b ≥ c}
writeln(a:20:4, b:20:4, c:20:4)
else if c>=a then {c ≥ a ≥ b}
writeln(c:20:4, a:20:4, b:20:4)
else { a ≥ c ≥ b}
writeln(a:20:4, c:20:4, b:20:4);
end
else { b > a, coi như điều kiện b ≥ a đúng }
begin
if a>=c then { b ≥ a ≥ c}
writeln(b:20:4, a:20:4, c:20:4)
else if c>=b then {c ≥ b ≥ a}
writeln(c:20:4, b:20:4, a:20:4)
else {b ≥ c ≥ a}
writeln(b:20:4, c:20:4, a:20:4);
end;
readln;
end.
Viết chương trình tính tổng của n số tự nhiên đầu tiên sao cho tổng nhỏ hơn hoặc bằng Q
Câu trả lời của bạn
const
nhap='tong.inp';
xuat='tong.out';
var
i,s,Q:longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
read(Q);
s:=0; i:=1;
while s<Q do
begin
s:=s+i;
i:=i+1;
end;
if s>Q then s:=s-i+1;
write(s);
close(input); close(output);
end.
Bài 1: Cho 2 số nguyên m và n. Tính tổng các số chia hết cho 3 hoặc chia hết cho 5 trong phạm vi từ m đến n. Viết chương trình
Bài 2: Hãy tìm tất cả những số mà thỏa mãn số đó chia cho 3 dư 2 và tổng các chữ số của nó là 26 rồi hiển thị chúng ra
.Tin học 8 ạ. Cần gấp, mai ktra @Trương Quang Dũng, @duong nguyenvan, @Hà Ngân Hà, @Nguyễn Thị Bích Thiên, @@Giao Huỳnh, @Nguyễn Trần Thành Đạt, @Dương Thu Hiền
.P/s: nhanh ạ, e camon trc
Câu trả lời của bạn
Bài 1
Program bai1;
Uses crt;
Var m,n,i,s:longint;
Begin
Clrscr;
Write ('nhap m:'); readln (m);
Write ('nhap n:'); readln (n);
While n <m do
Begin
Write ('nhap lai n:');
Readln (n);
End;
S:=0;
For i:=m to n do
If (i mod 3=0) or (i mod 5=0) then s:=s+i;
Write (s);
Readln;
End.
viết chương trình tìm số nhỏ nhất trong 3 số nguyên a, b, c.
Câu trả lời của bạn
program bai1;
var a,b,c:longint;
begin
write('Nhap so a= ');readln(a);
write('Nhap so b= ');readln(b);
write('Nhap so c= ');readln(c);
min:=a;
if min>b then min:=b
else if min>c then min:=c;
writeln('So nho nhat la ',min);
readln
end.
Viết chương trình tìm nghiệm của phương trình
ax + b= 0
a) a,b nhập từ bàn phím
b) Nghiệm x mang giá trị âm và dương. Viết hiển thị biến x
MỌI NGƯỜI ƠI GIÚP DÙM MÌNH VỚI!!!!
Câu trả lời của bạn
program b1;
uses crt;
var a,b:longint;
begin
clrscr;
writeln('Nhap he so a');read(a);
writeln('Nhap he so b');read(b)
if (a<>0) then write('Phuong trinh',a:10:2,'x+',b:10:2,' co nghiem x= ',-b/a:10:2)
else if (a=0) and (b=0) then write('Co vo so nghiem')
else write('Phuong trinh vo nghiem');
readln
end.
viết chương trình giải phương trình bậc nhất một ẩn ax+b=0
Câu trả lời của bạn
program giaipb1;
uses crt;
var a,b:real;
begin
clrscr;
writeln('Chuong Trinh Giai PT bac 1: ax+b=0');
writeln('Nhap a va b'); readln(a,b);
If (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
If (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
If (a<>0) and(b<>0) then writeln('Phuong trinh co nghiem x=',(-b)/a:4:2);
readln;
end.
Viết chương trình nhập vào một số dương bất kì in ra màn hình một số chẵn hay lẻ?
Câu trả lời của bạn
Program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n = '); readln(n);
if n mod 2 = 0 then writeln('la so chan ')
else writeln('la so le ');
readln;
end.
em hãy viết chương trình nhập vào 1 số nguyên dương n(1000=<n<=3000) và dưa ra màn hình các chữ số của nó
Câu trả lời của bạn
uses crt;
var n,a,b,c:integer;
begin
clrscr;
writeln('nhap vao so n la');readln(n);
writeln('cac chu so trong so n la');
if (n>=1000) and (n<=3000) then begin
a:=n mod 10; writeln(a:4);
n:=n div 10;
b:=n mod 10; writeln(b:4);
n:=n div 10;
c:=n mod 10; writeln(c:4);
n:=n div 10; writeln(n:4);end
else writeln('khong xac dinh');readln;end.
các bạn giúp mình nhé , VCT nhập phần tử của dãy số , tìm max , và số lần so sánh các phần tử đưa ra phần tử max
Câu trả lời của bạn
mình bổ xung xí là các bạn giúp mình hãy sử dụng free pascal nha
Viết chương trình nhập vào tuổi của bố và tuổi của con năm nay.
-Kiểm tra xem bao nhiêu năm nữa thì tuổi của bố gấp 3 lần tuổi con.
Câu trả lời của bạn
program demtuoi;
uses crt;
var bo,con:integer;
begin
writeln ('nhap tuoi bo');readln (bo):
writeln ('nhap tuoi con');readln (con);
if bo=3*con then writeln ('tuoi cua bo hien nay gap 3 lan tuoi con') else
if 3*con<bo then writeln ('sau ',bo-3*con,' nam nua tuoi bo gap 3 lan tuoi con') else
if 3*con>bo then writeln ('truoc day ',3*con-bo,' nam thi bo gap 3 lan tuoi con');
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 *