作业帮 > 综合 > 作业

编程pascal语言 阅读训练（read.pas） 描述如下

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/18 16:25:23
编程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
这个题蛮简单的：
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.
两道编程题目（Pascal语言） pascal语言编程题 Free Pascal语言编程 用pascal语言编程, 单词连接 （link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容 Pascal语言编程告诉进 用pascal语言编程(两道题) pascal编程打印如下星号图形 pascal语言编程 有几个题帮忙 用pascal语言编程：输出n(n pascal语言蛇形矩阵程序 如下 ： 计算式子的值：s=1+2+3+...+100（编程 pascal语言 for语句）