Xác định Input , Output và trình bày thuật toán bằng 2 cách để giải các bài toán sau : 1) Tính diện tích S hình chữ nhật , khi biết chiều rộng a , chiều dài b 2) Tìm số lớn nhất trong ba số khác nhau a , b , c 3) Tính tổng S = 1 + 2 + ........+ n ( n ≥1 ; n nhập bất kỳ từ bàn phím ) VD : Nhập n = 4 , Tính S = 1 + 2 + 3 + 4 5) Tính tổng S = 1 + 3 + 5 + ........... + 2n-1 ( n ≥1 ; n nhập bất kỳ từ bàn phím ) VD : Nhập n = 4 , Tính S = 1 + 3 + 5 + 7 6) Cho dãy A gồm 5 số nguyên a1 , a2 , a3 , a4 , a5. Cho biết dãy số nguyên vừa nhập có bao nhiêu số âm ? 9) Giải PT : ax2 + bx + c = 0 ( a≠ 0 ) 10 ) Giải PT ax + b = 0 ( ( a≠0 ) Mọi người giúp mình với ạ >< , T7 mình thi HK rồi.
2 câu trả lời
1) var a,b,s:longint;
begin
write('Nhap CD: '); readln(a);
write('Nhap CR: '); readln(b);
write('Dien tich la: ',a*b);
readln;
end.
2)var a,b,c:longint;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(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>b) and (c>a) then write('So lon nhat la: ',c);
readln;
end.
3) var i,n,s:longint;
begin
write('Nhap n: ); readln(n);
for i:=1 to n do
s:=s+i;
write('Tong la: ',s);
readln;
end.
5)
var i,n,s:longint;
begin
write('Nhap n: ); readln(n);
for i:=1 to n do
s:=s+(2*i-1);
write('Tong la: ',s);
readln;
end.
1.Xác định bài toán
- Input: Số nguyên dương N và dãy N số nguyên a1,..., aN. - Output: Giá trị lớn nhất Max của dãy số.
2. Ý tưởng:
– Khởi tạo giá trị Max = a1.
– Lần lượt với i từ 2 đến N, so sánh giá trị số hạng ai với giá trị Max, nếu ai > Max thì Max nhận giá trị mới là ai.
3. Thuật toán.
Thuật toán giải bài toán này có thể được mô tả theo cách liệt kê như sau:
Bước 1. Nhập N và dãy a1,…, aN;
Bước 2. Max := a1, i := 2;
Bước 3. Nếu i > N thì đưa ra giá trị Max rồi kết thúc;
Bước 4.
Bước 4.1. Nếu ai > Max thì Max := ai;
Bước 4.2. i := i + 1 rồi quay lại bước 3;
4. Lưu đồ
cho 5 sao
