viết chương trình sử dụng ngôn ngữ lập trình pascal để: 1. đưa ra số lớn hơn trong hai số a, b được nhập từ bàn phím 2. giải phương trình ax + b = 0

0 bình luận về “viết chương trình sử dụng ngôn ngữ lập trình pascal để: 1. đưa ra số lớn hơn trong hai số a, b được nhập từ bàn phím 2. giải phương trình ax + b = 0”

1. program oken;

   uses crt;

   var a,b:longint;

         x:real;

   begin

   clrscr;

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

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

   if a>b then writeln(a,’ lon hon ‘,b)

   else if b>a then writeln(b,’ lon hon ‘,a)

        else writeln(‘hai so bang nhau’);

   writeln(‘giai phuong trinh: ‘,a,’x+’,b’= 0′);

   x:=-b/a;

   writeln(‘x: ‘,x:0:3);

   readln;

   end.

   Trả lời

2. Bài 1:

   Program FNG;
   Uses crt;
   Var a,b: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           If a>b then Write(a,’ lon hon ‘,b)
           Else If b>a then Write(b,’ lon hon ‘,a);
           Readln
   End.

   Bài 2:

   Program FNG;
   Uses crt;
   Var a,b: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           If a=0 then
                   If b=0 then Write(‘Vo so nghiem’)
           Else
                   Write(‘Vo nghiem’)
           Else
                   Write(‘x = ‘,-b/a:0:2);
           Readln
   End.

   Trả lời