_{INPUT: cạnh a, chiều cao tương ứng h}

_{OUTPUT: diện tích tam giác S}

_code:

_{uses crt;}

_{var a,b,s:real;}

_{begin clrscr;}

_{write('nhap canh:');readln(a);}

_{<thực hiện nhập cạnh>}

_{write('nhap chieu cao:');readln(h);}

_{<thực hiện nhập chiều cao>}

_s:=a*h/2;

_{<tính diện tích>}

_{write('dien tich la:',s:8:2);}

_{<in ra diện tích>}

_readln;

_end.

Ví dụ: Đổi giá trị của hai biến x, y

Xác định bài toán:

Mô tả thuật toán:

Input: 3 cạnh của tam giác

Output: diện tích tam giác đó

#include <bits/stdc++.h>

using namespace std;

long long p,q;

int main()

{

cin>>p>>q;

cout<<p+q<<" "<<p-q;

return 0;

}

a: Input: a,b,c

Output: a+b+c và a*b*c

Tham khảo

Đề bài: Ba số dương a, b c là độ dài ba cạnh của một tam giác khi và chỉ khi a+b>c, b+c>a, a+c>b

Em hãy thực hiện ác yêu cầu sau:

c) Mô tả thuật toán để giả quyết bài toán

Tham khảo

c. Thuật toán (2đ)

Bước 1: Nhập ba số dương a, b và c

Bước 2 : Nếu a + b > c và b + c > a và c + a > b thì thông báo ba số a, b và c tạo thành 3 cạnh của tam giác ngược lại thông báo ba số a, b và c không tạo thành ba cạnh của tam giác.

Bước 3: Kết thúc thuật toán

Thuật toán:

B1. Nhập ba số dương a,b,c

B2. Nếu a+b>c và b+c>a và c+a>b thì in ra màn hình a,b,c là ba cạnh của tam giác. Ngược lại in ra a,b,c không là ba cạnh của tam giác.

B3. Kết thúc.

Chương trình:

var a,b,c: real;

begin

writeln('Nhap ba canh lan luot: '); read(a,b,c);

if (a<0) or (b<0) or (c<0) then

repeat

writeln('Khong hop le. Nhap lai ba canh lan luot: '); read(a,b,c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (b+c>a) and (c+a>b) then writeln('Ba so nay la do dai ba canh tam giac') else writeln('Ba so nay khong la ba canh cua tam giac');

end.

Khùng

Sos

Input: Dãy số từ 0 đến 99
Output: tổng của dãy

Môtả thuật toán:

Bước 1: t←0; i←0

Bước 2: i←i+1; t←t+i;

Bước 3: nếu i<=99 thì quay lại bước 2

Bước 4: Xuất t

Bước 5: Kết thúc

Câu 1 :

Tham khảo

Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được

Input : Dãy A gồm N số nguyên a1....aN;

Output : Trung bình cộng của  các số dương;

B1 : Nhập N số nguyên a1.... aN;

B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;

B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];

B4 : dem <--- dem + 1;

B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;

B 6 : i <--- i + 1 rồi quay lại B3;

Câu 2 :

Tham khảo

Ta nhận thấy rằng, bội số chung nhỏ nhất của hai số nguyên dương a, b có thể được tính theo công thức:

ab/d

trong đó d là ước chung lớn nhất của a và b.

Bởi vậy:

Nên viết hàm để tính bội chung nhỏ nhất của hai số nguyên dương vì chương trình con cần trả ra một giá trị;

- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b cần sử dụng hàm tính ước chung lớn nhất của a và b.

- Hàm tính ước chung lớn nhất của hai số nguyên dương a, b:

function ucln (a, b: integer): integer;

var r: integer;

begin

while b>0 do begin

r: = a mod b ,a : = b ; b:= r; end; ucln:= a; and;

- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b:

This is a modal window.

lunction bcnn(a, b: integer): integer;

begin

bcnn:= a*b div ucln(a, b);

end;

Khi đó, chương trình con tính bội số chung nhỏ nhất của hai số nguyên dương a, b như sau:

program bai4_chuong6;

use crt ;

vai

X y: integer;

function ucln(a, b: integer): integer;

var r: integer;

begin

while b>0 do begin

r:= a mod b; a: = b ,b:= r;

end; ucln:= a;

end;

txnction bcnn(a, b: integer): integer;

begin

bcnn:= a*b div ucln(a, b);

end;

Begin

clrscr;

writeln('Nhap vao hai so can tim BCNN');

write ('x=') , readln(x); write ('y=') , readln(y);

writeln('bcnn cua hai so',x:4,'va',y:4,'la',bcnn(a,b)

readln

End.

Câu 3 : chịu