Viết chương trính cho các bài sau:
Bài 1: Gỉai PT bậc nhất một ẩn: ax+b=0.
Bài 2: Nhập ba số thực a, b và c từ bàn phím và máy tính, sau đó kiểm tra ba số đó, có thế là cạnh của tam giác đều, tam giác cân và tam giác vuong hay không và ghi kết quả.
Bài 3: Tính N! N= 1*2.3.n
Bài 4: Tính tổng S= 1+ 2!+ 3!+...+n!
Bài 5: Tính tổng S= 1+ 1/2!+ 1/3!+...+ 1/n!
Bài 6: Tính tổng S= 1+ 1/22 + 1/32+ ...+ 1/22
Bài 7: Tính tổng S= 1+1/1*3+ 1/2*4+...+ 1/n(n+2)
Bài 8: Gỉai bài toán sau:
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó
Tìm số trâu mỗi loại?
Bài 9:
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
Hỏi có bao nhiêu chó, bao nhiêu gà?
Bài 10: Viết PT nhập vào một mảng N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhập.
Bài 11: Nhập điểm số các bạn trong lớp sau đó in ra màn hình số bạn đạt kết quả loại giỏi, khá, TB
Bài 12: Nhâp n số nguyên từ bàn phím và tính tổng các dương
Bài 13: Cho một dãy số gồm n phần tử. Gía trị của các phần tử là sô nguyên. Thực hiên các chương trình sau:
a) Nhập từ bán phím số phần tử và giá trị của từng phần tử
b) Tính tổng các phần tử của dãy
c) Tính tổng âm các phần tử của dãy
d) Tính tổng và TBC của các phần tử chẵn của dãy
e) Tìm các phần tử có giá trị lớn nhất của dãy
f) Tìm các phần tử có giá trị nhỏ nhất của dãy
Bài 14: Tính tổng: S= 1/2+ 2/3+ 3/4+...+n/n+1 với n là số nguyên dương được nhập từ bàn phím
Bài 15: Tính tổng: S= -1+2-3+4-...+(-)nn với n là số nguyên dương được nhập từ bàn phím
HUHU CỨU VỚI T.T
program tamgiac;
var a,b,c,cd,cr,ch: real;
Begin
write('nhap mot canh tam giac vao day'); readln(a)
write('nhap canh thu hai'); readln(b);
write('nhap canh thu ba'); readln(c);
If (a+b>c) and (b+c>a) and (c+a>b) then
If a=b and b=c and a=c then write(' tam giac do la tam giac deu);
If If a=b then write(' tam giac can')
Else If c=b then write(' tam giac can')
Else If a=c then write(' tam giac can');
If \(a\cdot a=b\cdot b+c\cdot c\) then write('tam giac vuong')
Else If \(b\cdot b=a\cdot a+c\cdot c\) then write('tam giac vuong')
else If \(c\cdot c=b\cdot b+a\cdot a\) then write('tam giac vuong');
readln;
End
B3
program B3;
uses crt;
var i,n,s :integer;
begin
clrscr;
s:=1;
write('Nhap so cac so : ');Readln(n);
for i:=1 to n do
begin
s:=s*i;
end;
write('Tich : ',s);
end.
Bài 9 trong sgk toán tập 2 có giải nhé tự dựa vào đó mà viết chương trình
B1
program B1;
uses crt;
var a,b,x:real;
begin
clrscr;
writeln('ax+b=0');
write('Nhap so a : ');readln(a);
write('Nhap so b : ');readln(b);
if a=0 and b=0 then write(' Vo so nghiem ');
if a=0 and b<>0 then write(' Vo nghiem ');
if a<>0 then x:=-b/a
write('x = ',x);
readln;
end.
Bài 4:
program tinhtong;
var S:real; n: longint;
Begin
write('nhap n'); readln(n);
For 1:=1 to n do
begin k:= k*i;
s:=k+s;
end;
readln;
end.
