\(-3x^2+7x-4=0\)

<=>\(-3x^2+3x+4x-4=0\)

<=>\(-3x\left(x-1\right)+4\left(x-1\right)=0\)

<=>\(\left(x-1\right)\left(4-3x\right)=0\)

<=>\(\left[{}\begin{matrix}x-1=0\\4-3x=0\end{matrix}\right.\)<=>\(\left[{}\begin{matrix}x=1\\x=\dfrac{4}{3}\end{matrix}\right.\)

Câu 1:

program bt;

uses crt;

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

i,n,tong,tich:integer;

begin

clrscr;

write('Do dai cua day la:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write('tong cac so tu nhien nhap tu ban phim:',tong);

writeln;

write('tich cac so tu nhien nhap tu ban phim:',tich);

readln

end.

Câu 2:

program bt;

uses crt;

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

i,n:integer;

begin

clrscr;

write('nhap do dai day so:'); readln(n);

writeln('nhap cac phan tu cua day:');

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

readln

end.

ct1:

program (tự đặt tên);

uses crt;

var max,i,n:integer;

begin

clrscr;

max:=0; i:=1;

while i<=10 do

begin

write('n',i,'='); readln(n);

if n>max then max:=n;

i:=i+1;

end;

write('so lon nhat la:',max);

readln

end.

ct2:

program bt;

uses crt;

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

max,i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to 10 do

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

write('so lon nhat trong cac so la:',max);

readln

end.

Sự khác nhau giữa hai ct:

- Khác nhau về cách khai báo

- Khác nhau ve cách trình bày

Bạn hãy chạy thử chương trình trước nha