Sử dụng cấu trúc rẽ nhánh để viết chương trình + Tìm GTLN của 2 số nguyên dương + Tìm nghiệm của phương trình bậc hai
Phần II. Tự luận. Sử dụng ngôn ngữ lập trình Pascal, viết chương trình giải các bài toán: 1. Cấu trúc rẽ nhánh. Bài 1. Tính tổng, hiệu, tích, thương của hai số bất kì được nhập từ bàn phím. Bài 2. Tính chu vi và diện tích của hình chữ nhật, biết chiều dài và chiều rộng được nhập vào từ bàn phím. Bài 3. Tính chu vi và diện tích của hình tròn biết độ dài bán kính được nhập vào từ bàn phím. 2. Cấu trúc rẽ nhánh. Bài 4. Nhập vào hai số bất kì. So sánh và in ra màn hình số lớn, số nhỏ của hai số. Ví dụ: Nhập vào hai số: 56 45 Số lớn là 56, số nhỏ là 45 Bài 5. Nhập vào một số nguyên bất kì. Kiểm tra và in ra màn hình thông báo số đó là số chẵn hay số lẻ. Ví dụ: Nhập vào một số cần kiểm tra: 45 Số vừa nhập là số lẻ. Bài 6. Nhập vào 3 số bất kì. Kiểm tra và in ra màn hình thông báo xem 3 số đó có tạo thành 3 cạnh của một tam giác không? Ví dụ: Nhập vào 3 số cần kiểm tra: 3 4 5 Ba số vừa nhập thỏa mãn là 3 cạnh của một tam giác. Hay: Nhập vào 3 số cần kiểm tra: 8 2 5 Ba số vừa nhập không thỏa mãn là 3 cạnh của một tam giác. 3. Cấu trúc lặp. Bài 7. Tính tổng dãy số: S=1+2+3+…+n (Với n là một số tự nhiên được nhập vào từ bàn phím) (Với n là một số tự nhiên được nhập vào từ bàn phím) 4. Dãy số và biến mảng. Bài 8. Nhập vào họ và tên và điểm trung bình của 36 học sinh lớp 8B. Bài 9. Nhập vào họ và tên, điểm toán, điểm văn của 38 học sinh lớp 8A.
Viết chương trình(cấu trúc rẽ nhánh) tính tổng a+b nếua a;b dương
uses crt;
var a,b:real;
begin
clrscr;
write('nhap a'); readln(a);
write('nhap b'); readln(b);
If a > 0 and b > 0 then write('Tong a va b: ',a+b);
End.
(đưa vào Pascal duyệt CT xem có mắc lỗi gì ko...nếu sai thì tự sửa ^^!)
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2<>0 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else begin
for i:=1 to n do
if i mod 2=0 then write(i:4);
end;
readln;
end.
Viết chương trình tìm nghiệm của phương trình bậc nhất bx+c=0. Với b và c
là 2 số nguyên nhập từ bàn phím.
Ví dụ: Nhập số b: 8
Nhập số c: 4
#include <bits/stdc++.h>
using namespace std;
double b,c;
int main()
{
cin>>b>>c;
if ((b==0) and (c==0)) cout<<"Vo so nghiem";
else if ((b==0) and (c!=0)) cout<<"Vo nghiem";
else cout<<fixed<<setprecision(2)<<-c/b;
return 0;
}
Viết chương trình tìm nghiệm của phương trình bậc nhất bx+c=0. Với b và c
là 2 số nguyên nhập từ bàn phím.
Ví dụ: Nhập số b: 8
Nhập số c: 4
#include <bits/stdc++.h>
using namespace std;
double b,c;
int main()
{
cin>>b>>c;
if ((b==0) and (c==0)) cout<<"Vo so nghiem";
else if ((b==0) and (c!=0)) cout<<"Vo nghiem";
else cout<<fixed<<setprecision(2)<<-c/b;
return 0;
}
Viết chương trình tìm nghiệm của phương trình bậc nhất bx+c=0. Với b và c
là 2 số nguyên nhập từ bàn phím.
Ví dụ: Nhập số b: 8
Nhập số c: 4
#include <bits/stdc++.h>
using namespace std;
double b,c;
int main()
{
cin>>b>>c;
if ((b==0) and (c==0)) cout<<"Vo so nghiem";
else if ((b==0) and (c!=0)) cout<<"Vo nghiem";
else cout<<fixed<<setprecision(2)<<-c/b;
return 0;
}
Viết chương trình pascal sử dụng cấu trúc lặp để in ra màn hình tổng của 10 số tự nhiên đầu tiên
Tham khảo
Var s,i:integer;
begin
S:= 0;
For i:= 1 to 10 do s:=s+1;
Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
Readln
End.
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
hãy cho biết các câu lệnh Pascal thực hiện cấu trúc rẽ nhánh như thế nào? chương trình sẽ kiểm tra cấu trúc này như thế nào?
Cấu trúc rẽ nhánh:
if <điều kiện> do <câu lệnh 1>
else <câu lệnh 2>;