Предложенные фрагменты программы должны выполнять нахождение и вывод абсолютной величины суммы первых 1, 2, ...8 элементов массива А - всего 8 сумм. В реальности будут восемь раз выведены нули, потому что отсутствует фрагмент, в котором элементам массива А присваиваются какие-либо значения.
Блок-схемы достаточно одной, потому что все три фрагмента определяют одни и те же шаги алгоритма.
1. Pascal
var A: array[1..100] of integer; N, I, J: integer; S: real;
begin N := 8; for I := 1 to N do begin S := 0; for J := 1 to I do S := S + A[J]; S := abs(S); writeln('S=', S:9:2) end; readln; end.
2. QBASIC
DEFINT I-J, N, S DIM A(100) AS INTEGER N = 8 FOR I = 1 TO N S = 0 FOR J = 1 TO I S = S + A(J) NEXT J S = ABS(S) PRINT S NEXT I END
3. Школьный АЯ (КуМИР)
алг слово(рез вещ s) нач цел таб A[1:100] цел n,I,j n:=8 нц для I от 1 до n s:=0 нц для j от 1 до I s:=s+A[j] кц s:=abs(s) вывод s кц кон
Type Route = record station: string[30]; arrival: string[5]; stop: string[5]; cost: real end;
{ Программа для заполнения данными файла } { var F: file of Route; r: Route;
begin writeln('Вводите данные'); writeln(''); Assign(F, 'Route.dat'); Rewrite(F); with r do repeat write('Населенный пункт (*-завершить): '); readln(station); if (station <> '*') then begin write('Время прибытия чч:мм '); readln(arrival); write('Стоянка чч:мм: '); readln(stop); write('Стоимость проезда, руб.коп: '); readln(cost); write(F, r); end until station = '*'; Close(F) end. }
{ Программа для работы с заполненным файлом }
function hhmm2Int(s: string): integer; {переводит время чч:мм в челое число минут} var i, j, ierr: integer;
begin Val(Copy(s, 1, 2), j, ierr); if ierr = 0 then i := 60 * j else i := 0; Val(Copy(s, 4, 2), j, ierr); if ierr = 0 then i := i + j; Result := i end;
var F: file of Route; F2:Text; r: Route; i, ierr, istop, n: integer; s: string; cstop: real;
begin Assign(F, 'Route.dat'); Reset(F); n := 0; cstop:=0; while not Eof(F) do begin read(F, r); istop := hhmm2Int(r.stop); if istop > 0 then begin cstop:=cstop+istop; n := n + 1 end end; cstop := cstop / n; Reset(F); Assign(F2,'screen.dat'); Rewrite(F2); writeln('Населенные пункты, в которых стоянка дольше средней'); writeln(F2,'Населенные пункты, в которых стоянка дольше средней'); writeln('Населенный пункт Прибытие Стоянка,мин Стоимость'); writeln(F2,'Населенный пункт Прибытие Стоянка,мин Стоимость'); with r do while not Eof(F) do begin read(F, r); istop := hhmm2Int(stop); if istop > cstop then begin writeln(station:18, ' ', arrival, ' ', stop, ' ', cost:7:2); writeln(F2,station:18, ' ', arrival, ' ', stop, ' ', cost:7:2); end; end; Close(F); Close(F2) end.
ВНИМАНИЕ: Прикрепленный файл на самом деле RAR-архив с двумя, используемыми в программе файлами. Нужно его скачать к себе и поменять расширение TXT на RAR, а затем распаковать.
Блок-схемы достаточно одной, потому что все три фрагмента определяют одни и те же шаги алгоритма.
1. Pascal
var
A: array[1..100] of integer;
N, I, J: integer;
S: real;
begin
N := 8;
for I := 1 to N do
begin
S := 0;
for J := 1 to I do S := S + A[J];
S := abs(S);
writeln('S=', S:9:2)
end;
readln;
end.
2. QBASIC
DEFINT I-J, N, S
DIM A(100) AS INTEGER
N = 8
FOR I = 1 TO N
S = 0
FOR J = 1 TO I
S = S + A(J)
NEXT J
S = ABS(S)
PRINT S
NEXT I
END
3. Школьный АЯ (КуМИР)
алг слово(рез вещ s)
нач цел таб A[1:100]
цел n,I,j
n:=8
нц для I от 1 до n
s:=0
нц для j от 1 до I
s:=s+A[j]
кц
s:=abs(s)
вывод s
кц
кон
Route = record
station: string[30];
arrival: string[5];
stop: string[5];
cost: real
end;
{ Программа для заполнения данными файла }
{
var
F: file of Route;
r: Route;
begin
writeln('Вводите данные');
writeln('');
Assign(F, 'Route.dat');
Rewrite(F);
with r do
repeat
write('Населенный пункт (*-завершить): ');
readln(station);
if (station <> '*') then
begin
write('Время прибытия чч:мм ');
readln(arrival);
write('Стоянка чч:мм: ');
readln(stop);
write('Стоимость проезда, руб.коп: ');
readln(cost);
write(F, r);
end
until station = '*';
Close(F)
end.
}
{ Программа для работы с заполненным файлом }
function hhmm2Int(s: string): integer;
{переводит время чч:мм в челое число минут}
var
i, j, ierr: integer;
begin
Val(Copy(s, 1, 2), j, ierr);
if ierr = 0 then i := 60 * j else i := 0;
Val(Copy(s, 4, 2), j, ierr);
if ierr = 0 then i := i + j;
Result := i
end;
var
F: file of Route;
F2:Text;
r: Route;
i, ierr, istop, n: integer;
s: string;
cstop: real;
begin
Assign(F, 'Route.dat');
Reset(F);
n := 0;
cstop:=0;
while not Eof(F) do
begin
read(F, r);
istop := hhmm2Int(r.stop);
if istop > 0 then
begin
cstop:=cstop+istop;
n := n + 1
end
end;
cstop := cstop / n;
Reset(F);
Assign(F2,'screen.dat');
Rewrite(F2);
writeln('Населенные пункты, в которых стоянка дольше средней');
writeln(F2,'Населенные пункты, в которых стоянка дольше средней');
writeln('Населенный пункт Прибытие Стоянка,мин Стоимость');
writeln(F2,'Населенный пункт Прибытие Стоянка,мин Стоимость');
with r do
while not Eof(F) do
begin
read(F, r);
istop := hhmm2Int(stop);
if istop > cstop then
begin
writeln(station:18, ' ', arrival, ' ', stop, ' ', cost:7:2);
writeln(F2,station:18, ' ', arrival, ' ', stop, ' ', cost:7:2);
end;
end;
Close(F);
Close(F2)
end.
ВНИМАНИЕ: Прикрепленный файл на самом деле RAR-архив с двумя, используемыми в программе файлами. Нужно его скачать к себе и поменять расширение TXT на RAR, а затем распаковать.