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
Nhập 2 số nguyên.
In ra màn hình số lớn hơn.
In ra màn hình tổng của chúng.
Kiểm tra tích của chúng có chia hết cho 3 không.
Câu trả lời của bạn
*Cái này mới đúng nha
Program bai1;
uses crt;
var a,b,s: longint;
begin;
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
if a > b then writeln('so lon nhat la : ' , a);
if a < b then writeln('so lon nhat la : ', b);
if a = b then writeln('khong co so nao lon nhat ');
s:=a+b;
write('tong cua 2 so =' ,s);
if s mod 3 = 0 then writeln('tong cua chung chia het cho 3 ')
else
writeln('tong cua chung khong chia het cho 3');
readln;
end.
1.Viết chương trình Nhập vào 2 số nguyên X, Y. Tìm số lớn nhất trong 2 số X và Y
2.Viết chương trình Nhập vào 2 số nguyên. Thông báo kết quả so sánh của hai số đó
Câu trả lời của bạn
program solonnhat;
uses crt;
var x,y: real;
begin
clrscr;
write(' nhap so x'); readln(x);
write('nhap so y'); readln(y);
if x>y then write('so lon nhat la',x) else write('so lon nhat la',y);
end.
cho 2 số thực a và b. Hãy cho biết kết quả so sánh 2 số đó?
Câu trả lời của bạn
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a:');readln(a);
write('nhap b:');readln(b);
if a>b then write('a>b')
else if a<b then write('a<b')
else write('a=b');
readln;
end.
chúc bạn học tốt
Câu 1: Viết chương trình xét xem một tam giác đều hay không khi biết ba cạnh của tam giác đó.
Câu 2: Viết phương trình, giải phương trình ax + b = 0 biết các hệ số a, b được nhập từ bàn phím.
Các bạn giúp mình với, mình dốt môn này lắm!
Câu trả lời của bạn
cách viết nhập vào 3 số a,b,c từ bàn phím ktra xem 3 cạnh đo có là độ dài tam giác đều hay ko
program Tam-giac-deu;
uses crt;
var a,b,c:integer;
begin
writeln(' Nhap so a '); readln(a);
writeln('Nhap so b' ); readln(b);
writeln('Nhap so c'); readln(c);
if (a=b) and (b=c) then writeln('do la ba canh tam giac deu')
else writeln('đó ko phải ba cạnh tam giác đều');
readln
end.
Viết chương trình nhập vào từ bàn phím một dãy số có N số nguyên khác nhau (N nhập từ bàn phím) và in ra màn hình các số lẻ của dãy số và tổng của các số lẻ đó
Câu trả lời của bạn
trả lời dùm mk đi
Viết chương trình tính tổng các số chẵn nhỏ hơn 50
Giúp mình với mai mình thi rồi!! TvT
Câu trả lời của bạn
Var i : integer;
S : real;
Begin
For i:=1 to 50 do
S:=0;
If i mod 2 = 0 then S := S+ i;
Write (S);
Readln;
End.
Viết chương trình tính điểm trung bình 3 môn (toán, lí, hóa) theo hệ số 2:1:1
Câu trả lời của bạn
https://cnttqn.com/threads/pascal-viet-chuong-trinh-tinh-diem-trung-binh-va-xep-hang.2223.html tham khảo
Vui lòng hướng dẫn giúp:
Theo qui định bộ TT-TT, tất cả các số điện thoại có 11 chữ số sẽ được đổi thành 10 chữ số. Với mạng MobiPhone các đầu số sẽ được đổi như sau: 4 số đầu là 0120, 0121, 0122, 0126, 0128 sẽ được đổi thành 3 chữ số tương ứng là 070,079, 077,076, 078. Các số còn lại giữ nguyên không thay đổi. Em hãy viết chương trình để chuyển đổi đầu số điện thoại của mạng mobiphone theo qui định như trên.
LƯU Ý: Khi viết chương trình. Dùng biến real để lưu số điện thoại. Khi xuất hiện biến write (‘so dien thoai sau khi doi’,a:0); // Thêm:0 sau biến để xuất ra đầy đủ số.
Câu trả lời của bạn
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 *