Question

câu 1:Viết chương trình giải phương trình bậc nhất dạng tổng quát bx+c=0.Các hệ số b,c được nhập từ bàn phím

câu 2: Viết phương trình nhập số tự nhiên N từ bàn phím .In ra màn hình tổng các số chẳn trong khoảng từ 1->N

câu 3: Viết chương trình Pascal tích lũy thừa bậc n của x vs x là các số thưc, n là các số tự nhiên được nhập từ bàn phím

Answer 1

1:

uses crt;

var b,c:integer;

begin

clrscr;

write('nhap b='); readln(b);

write('nhap c='); readln(c);

if b=0 then

if c=0 then writeln('phuong trinh co vo so nghiem')

else writeln('phuong trinh vo nghiem')

else writeln('phuong trinh co nghiem x='-c/b:4:2);

readln;

end.

2:

uses crt;

var i,s,n:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i mod 2=0 then s:=s+i;

writeln('tong cac so chan trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.

3:

uses crt;

var x,lt:real;

n,i:integer;

begin

clrscr;

write('x='); readln(x);

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

lt:=1;

for i:=1 to n do

lt:=lt*x;

writeln('luy thua cua ',x,'^',n,' la: ',lt:4:2);

readln;

end.