Question

bài 1: viết thuật toán tính tổng các phần tử của dãy n số thực được nhập lần lượt vào máy tính
bài 2: viết chương trình tìm x,biết ax + b = 0 với a,b nhập vào từ bàn phím
bài 3: viết chương trình tính tổng của 199 số tự nhiên đầu tiên,viết kết quả ra màn hình

Answer 1

bài 2: sao ko có cho kiểu dữ liệu của a,b vậy

program bai2;
uses crt;
var a,b,x:real;
begin
write('a='); readln(a);
write('b='); readln(b);
x:=-b/a;
write('gia tri cua x la:',x);
readln
end.

bài 3:

program bai3;
uses crt;
var i,T:integer;
begin
T:=0;
for i:=1 to 199 do T:=T+i;
write('ket qua la:',T);
readln
end.

Answer 2

Bài 1:

-Bước 1: nhập n và dãy số

-Bước 2: i:=1; t:=0;

-Bước 3: t:=t+a[i];

-Bước 4: i:=i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t

-Bước 7: Kết thúc

Bài 2:

Uses crt; Var a,b,x: real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln('------------------------------------------------------------'); Write ('Nhap a= '); readln(a); Write ('Nhap b= '); readln(b); If(a=0) then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2); Readln End. Bài 3: uses crt;
var t,i:longint;
begin
clrscr;
t:=0;
for i:=1 to 199 do
t:=t+i;
writeln('tong cua 199 so tu nhien dau tien la: ',t);
readln;
end.