1/ viết chương trình nhập 3 số a,b,c vào từ bàn phím tìm số max 2/ viết chương trình giải pt ax+b=0(a khác 0)

0 bình luận về “1/ viết chương trình nhập 3 số a,b,c vào từ bàn phím tìm số max 2/ viết chương trình giải pt ax+b=0(a khác 0)”

1. Bài 1:

   Program NhatNgu;
   Uses crt;
   Var a,b,c,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           Write(‘Nhap c: ‘); Readln(c);

           max:=a;
           If b>max then max:=b;
           If c>max then max:=c;
           Write(‘Max = ‘,max);
           Readln
   End.

   Bài 2:

   Program NhatNgu;
   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.

   Bình luận

2. Program NhatNgu;
   Uses crt;
   Var a,b,c,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap b: ‘); Readln(b);
           Write(‘Nhap c: ‘); Readln(c);

           max:=a;
           If b>max then max:=b;
           If c>max then max:=c;
           Write(‘Max = ‘,max);
           Readln
   End.

   Bài 2:

   Program NhatNgu;
   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.

   Nhớ cho mik CTLHN nha

   Bình luận