1.Viết CT pascal tính diện tích của hình thang, chiều cao h = 50cm đáy lớn a, đáy nhỏ b nhập từ bàn phím 2.Viết CT pascal tính chu vi, diện tích của h

0 bình luận về “1.Viết CT pascal tính diện tích của hình thang, chiều cao h = 50cm đáy lớn a, đáy nhỏ b nhập từ bàn phím 2.Viết CT pascal tính chu vi, diện tích của h”

1. Bài 1:

   uses crt;

   var a, b, S: real;

   Begin

      clrscr;

      write(‘Nhap do dai day nho: ‘); readln(a);

      write(‘Nhap do dai day lon: ‘); readln(b);

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

      writeln(‘Dien tich hinh thang la: ‘, S:3:3);

      readln;

   End.

   Bài 2:

   uses crt;

   var b, P, S: real;

   Begin

      clrscr;

      write(‘Nhap chieu rong hinh chu nhat: ‘); readln(b);

      P:=(6+b)*2; S:=6*b;

      writeln(‘Chu vi hinh chu nhat la: ‘, P:3:3);

      writeln(‘Dien tich hinh chu nhat la: ‘, S:3:3);

      readln;

   End.

   Bình luận

2. Bài 1:

   program kaito;

   uses crt;

   var a, b, s: real;

   begin

      clrscr;

      write(‘nhap day lon: ‘); readln(a);

      write(‘nhap day be: ‘); readln(b);

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

      writeln(‘dien tich hinh thang la: ‘,s);

      readln;

   end.

   Bài 2:

   program kaito; 

   uses crt;

   var b, c, s: real;

   begin

      clrscr;

      write(‘nhap chieu rong: ‘); readln(b);

      c:=(b+6)*2;

      s:=6*b;

      writeln(‘chu vi hinh chu nhat la: ‘,c);

      writeln(‘dien tich hinh chu nhat la: ‘,s);

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận