Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm Hải Anh

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

híp
25 tháng 3 2020 lúc 19:04

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.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
25 tháng 3 2020 lúc 19:31

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.
Khách vãng lai đã xóa

Các câu hỏi tương tự
Hắc Phong
Xem chi tiết
Ma Phan Đức
Xem chi tiết
duyy
Xem chi tiết
Nguyễn Công Vinh
Xem chi tiết
Long Triệu
Xem chi tiết
Nhân lê
Xem chi tiết
Quỳnh
Xem chi tiết
Kiki :))
Xem chi tiết
Nguyễn Ally
Xem chi tiết