Hãy xác định bài toán, xây đựng thuậ toán và viết chương trình giải bài toán sau đây: a, Tính diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên dc nhập vào từ bàn phím) b, Tính kết quả của phép chia lấy phần dư của hai số nguyên a và b ( với a và b là các số dc nhập vào từ bàn phím)
2 câu trả lời
a)
* Xác định bài toán :
Input : độ dài cạnh a, chiều cao tương ứng h
Output : diện tích tam giác
* Thuật toán :
Bước 1 : Nhập a, h
Bước 2 : S <-- (a * h) /2;
Bước 3 : Xuất S ra mà hình
Bước 4 : Kết thúc
* Viết chương trình
program tam_giac;
uses crt;
var a, h, s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai chieu cao h :');readln(h);
s := (a * h) /2;
writeln('dien tich cua tam giac la :', s:8:2);
readln
end.
b)
* Xác định bài toán :
Input : số a, b
Output : phép chia phần dư hai số nguyên a và b
* Thuật toán :
Bước 1 : Nhập số nguyên a
Bước 2 : Nhâp số nguyên b
Bước 3 : d <--- a mod b
Bước 4 : Xuất ra d
Bước 5 : Kết thúc
* Viết chương trình
program tinh;
uses crt;
var a, b, d : integer;
begin
clrscr;
write('nhap so nguyen a :');readln(a);
write('nhap so nguyen b :');readln(b);
d := a mod b ;
writeln('phep chia phan du cua a va b la :', d);
readln
end.
$#QLinkVNxWCDI$
Thuật toán của 2 câu hỏi:
a) INPUT: Hai giá trị của đường cao - "h" và cạnh đáy - "a"
OUTPUT: Diện tích của tam giác cần tính.
B1: Nhập giá trị của đường cao - "h" và cạnh đáy - "a"
B2: Thực hiện phép tính diện tích tam giác đó theo công thức với giá trị của 2 cạnh vừa nhập.
B3: In kết quả ra màn hình.
B4: Kết thúc chương trình.
(Hoặc có thể lồng ghép giữa bước 2 bằng cách gán S là công thức diện tích tam giác cần tìm, không hiểu xem phần chương trình phía dưới)
b) INPUT: Hai giá trị a và b nguyên.
OUTPUT: Kết quả của phép chia lấy phần dư của hai số nguyên a và b
B1: Nhập giá trị của a và b.
B2: Thực hiện phép chia lấy phần dư với hai giá trị trên.
B3: In kết quả ra màn hình.
B4: Kết thúc chương trình:
Chương trình Pascal của 2 đề bài:
a)
program qlinkvn;
uses crt;
var a,h,S: integer;
begin
clrscr;
writeln('Nhap do dai canh day: '); readln(a);
writeln('Nhap do dai duong cao: '); readln(h);
S:=1/2*a*h;
write(Dien tich cua tam giac la: ',S);
readln;
end.
b)
program wcdi;
var a,b: integer;
begin
clrscr;
writeln('Nhap gia tri a: '); readln(a);
writeln('Nhap gia tri b: '); readln(b);
writeln('Ket qua cua phep chia lay phan du cua a voi b la: ', a mod b);
readln;
end.