viết chương trình cho máy tính thực hiện phép tính A= 1+2+3... với a > or < 1500 pascal
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
24 tháng 3 2022
a. Thuật toán 1 :
Máy tính sẽ thực hiện 10 vòng lặp , khi kết thúc thuật toán giá trị của S = 5.0
Đoạn chương trình Pascal tương ứng:
Quảng cáo
S := 10; x := 0.5;
While S > 5.2 do
S := S – x;
Writeln(S);
b. Thuật toán 2 :
Máy tính sẽ không thực hiện vòng lặp nào do điều kiện không thỏa mãn, khi kết thúc thuật toán giá trị của S = 10
Đoạn chương trình Pascal tương ứng:
S := 10; n := 0;
While S < 10 do
Begin
n := n + 3;
S := S – n
End;
Writeln(S);
*Khi A lớn nhất và A >=1500
Var i,A: integer;
Begin
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
Write('Tong cua A la: ',A); [Hoặc Write('Tong cua A la:',A,' va can co ',i,' so') {Để in ra màn hình cần bao nhiêu số để có tổng >1500 ]
Readln
End.
*Khi A lớn nhất và A<1500
Var i,A:integer;
Begin
i:=0; A:=0;
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
A:=A-i;
i:=i-1;
Writeln('Tong A= ',A,' );
Readln;
End.
*Dòng lệnh in đậm mình ghi thêm và khác với bài kia có nghĩa là khi A>1500 thì phải trừ tổng A đi số (hoặc nhiều số) cuối cùng đã cộng cho tổng cho đến khi tổng A<1500. Vd như: A=1+2+3+4+5= 15 (tức A>10; A phải lớn nhất).Muốn cho A=10 thì trừ đi số cuối cùng là 5 = 15-5=10. Còn nếu muốn A<10 thì trừ hai số cuối cùng đi hai số cuối cùng là : 15-5-4=6
Good luck for you! :D