Câu 1.Tìm giá trị nhỏ nhất trong một dãy số a1,a2…aN Câu2: giải phương trình bậc nhất bx+c=0(b khác 0)

0 bình luận về “Câu 1.Tìm giá trị nhỏ nhất trong một dãy số a1,a2…aN Câu2: giải phương trình bậc nhất bx+c=0(b khác 0)”

1. câu 2:thuật toán

   Bước 1 : nhập a,b ;

   Bước 2: xét a,nếu a<>0 thì đến bước 3

   Nếu a= 0 xét b

   Nếu b= 0 thì thì đi phương trình vô số nghiệm

   Nếu b<>0 thì phương trình vô nghiệm

   Bước 3 : nghiệm x=-b/a khi a<>0

   Bước 4: kết luận

   Bước 5: kết thúc chương trình

   chương trình

   Program giaiohuongtrinh;

   Uses crt;

   Var a,b,x : integer ;

   Begin

   Write(‘ nhap haang so a’,a);

   Readln(a)

   Write( ‘ nhap so b’,b)

   Readln(b)

   If a<> 0 then

   x:= -b/a;

   Write( ‘ phuong trinh co nghiem la x =’,x);

   Readln(x)

   If a=0 then

   If b= 0 then

   Write( ‘ phuobg trinh vo so nghiem’)

   Else writeln( ‘ phuong trinh vo nghiem’);

   Readln

   End.

   Bình luận

2. Câu 1:

   program GIATRINHONHAT;

   uses crt;

   var n,i,min:integer;

   a:array[1..1000] of integer;

   begin

   clrscr;

   i:=0;

   write(‘Nhap n: ‘); readln(n);

   write(‘Nhap so thu 1: ‘); readln(a[1]);

   min:=a[1];

   for i:=2 to n do

   begin

   write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);

   if min>a[i] then min:=a[i];

   end;

   writeln(‘Gia tri nho nhat la: ‘,min);

   readln;

   end.

   Câu 2:

   program GIAIPHUONGTRINHBACNHAT;

   uses crt;

   var a,b:real;

   begin

   clrscr;

   write(‘Nhap he so a: ‘); readln(a);

   write(‘Nhap he so b: ‘); readln(b);

   if a=0 then writeln(‘Khong hop le (a khac 0). Nhap lai!!!’)

   else writeln(‘Phuong trinh co nghiem duy nhat: x=’,-b/a:2:4);

   readln;

   end.

   Bình luận