编程pascal语言 阅读训练(read.pas) 描述如下第二题 阅读训练(read)一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/13 03:56:22
![编程pascal语言 阅读训练(read.pas) 描述如下第二题 阅读训练(read)一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.](/uploads/image/z/12820969-1-9.jpg?t=%E7%BC%96%E7%A8%8Bpascal%E8%AF%AD%E8%A8%80+%E9%98%85%E8%AF%BB%E8%AE%AD%E7%BB%83%EF%BC%88read.pas%EF%BC%89+%E6%8F%8F%E8%BF%B0%E5%A6%82%E4%B8%8B%E7%AC%AC%E4%BA%8C%E9%A2%98+%E9%98%85%E8%AF%BB%E8%AE%AD%E7%BB%83%EF%BC%88read%EF%BC%89%E4%B8%80%E5%A4%A9%E6%99%A8%E6%99%A8%E5%9C%A8%E5%81%9A%E9%98%85%E8%AF%BB%E8%AE%AD%E7%BB%83.%E5%A5%B9%E6%8B%BF%E4%BA%86%E4%B8%80%E6%9C%AC%E5%8C%85%E6%8B%ACn%E7%AF%87%E6%96%87%E7%AB%A0%E7%9A%84%E5%B0%8F%E8%AF%B4%E9%9B%86%2C%E7%AC%ACi%E7%AF%87%E6%96%87%E7%AB%A0%E5%8C%85%E6%8B%ACbi+%281%E2%89%A4bi%E2%89%A4100%29%E9%A1%B5%2C%E5%B7%B2%E7%9F%A5%E6%99%A8%E6%99%A8%E6%AF%8F%E8%AF%BB%E4%B8%80%E9%A1%B5%E9%83%BD%E8%A6%81%E8%8A%B1%E4%B8%80%E5%88%86%E9%92%9F.)
编程pascal语言 阅读训练(read.pas) 描述如下第二题 阅读训练(read)一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.
编程pascal语言 阅读训练(read.pas) 描述如下
第二题 阅读训练(read)
一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.假设晨晨开始阅读小说第一页的时间起点为0,她读第一篇文章从时间点0到时间点b1-1,第二篇文章从时间点b1到时间点b1+b2-1,依此类推…,阅读第n篇文章的时间点b1+b2+…+bn-1到时间点b1+b2+…+bn-1+bn-1.那么,当在时间点t时(0≤t
编程pascal语言 阅读训练(read.pas) 描述如下第二题 阅读训练(read)一天晨晨在做阅读训练.她拿了一本包括n篇文章的小说集,第i篇文章包括bi (1≤bi≤100)页,已知晨晨每读一页都要花一分钟.
这个题蛮简单的:
program Project1;
var
N, Q, i, j: Word;
P, T: array[0..100] of Word;
begin
Readln(N, Q);
P[0] := 0;
for i := 1 to N do
begin
Readln(j);
P[i] := P[i - 1] + j
end;
for i := 0 to Q - 1 do
Readln(T[i]);
for i := 0 to Q - 1 do
begin
if T[i] < P[N] then
begin
j := 0;
while T[i] > P[j] do Inc(j);
if T[i] = P[j] then Inc(j);
Writeln(j);
end
else Writeln(0);
end;
Readln;
end.