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. program Bai_1;

   uses crt;

   var a, b, S: real;

   const h = 50;

   Begin

      clrscr;

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

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

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

      writeln(‘Dien tich hinh thang (cm2): ‘, S:2:4);

      readln;

   End.

   program Bai_2;

   uses crt;

   var b, P, S: real;

   const a = 60;

   Begin

      clrscr;

      write(‘Nhap do dai chieu rong (cm): ‘); readln(b);

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

      writeln(‘Chu vi hinh chu nhat (cm): ‘, P:2:4);

      writeln(‘Dien tich hinh chu nhat (cm2): ‘, S:2:4);

      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