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)

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.

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.