Tham khảo: 

program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

s:=(a+b)/2*h;

writeln(s:4:2);

readln;

end.

a) Học sinh tự thực hiện tạo chương trình như Hình 4.

b) Chạy thử với bộ dữ liệu thử: a = 0, b = 2 và a = 0, b = 0.

c) Gỡ lỗi:

- Học sinh tự tạo chương trình theo Hình 2.

- Chương trình đưa ra kết quả sai khi giá trị a, b bằng nhau.

- Gỡ lỗi: Thay đổi đoạn chương trình so sánh hai số a, b với 3 trường hợp như sau

Theo em khi thực hiện chương trình này không ra kết quả như mong muốn vì khi khởi tạo giá trị ban đầu cho biến S là 0 trong điều kiện lặp khiến cho giá trị của S trở lại thành 0 sau mỗi lần lặp. Điều này dẫn đến kết quả sai.

#include <bits/stdc++.h>

using namespace std;

int main()

{

double dai=25.67; 

double rong=23.45;

cout<<fixed<<setprecision(2)<<dai<<endl;

cout<<fixed<<setprecision(2)<<rong;

return 0;

}

giúp em với

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do

  if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

uses crt;

var

a,b,p,s:integer;

begin

readln(a,b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi va dien tich cua hcn lan luot la: ',p,s);

readln

end.

Program HOC24;

var r,s: real;

begin

write('Nhap ban kinh: '); readln(r);

writeln('Dien tich la: ',r*r*3.14:6:2);

write('Chu vi la: ',r*2*3.14:6:2);

readln

end.