Найти ошибку в коде, не записывает данные в файл. условие: создайте два файла, содержащих сведения о десяти хоккейных команд: «динамо» и «спартак» соответственно: имена , число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время. program hockey; uses crt; type hk = record name : string[20]; shyiba: record gol_per : integer; gol : integer; straf_time : integer; end; end; var hokiyarray : array[1..100] of hk; hokiyarray01 : array[1..100] of hk; i, n : integer; f, f1: text; s : string; begin assign(f, 'd: /test.txt'); rewrite(f); write('динамо '); write('введите количество : '); readln(n); for i: =1 to n do begin writeln(''); writeln(' введите данные ', i, ''); write(' введите имя : '); readln( hokiyarray[i].name); writeln(''); writeln; write(' количество заброшеніх шайб : '); readln( hokiyarray[i].shyiba.gol_per); write('количество голевіх передач '); readln( hokiyarray[i].shyiba.gol); write(' количество штрафного времени '); readln(hokiyarray[i].shyiba.straf_time); writeln; end; writeln; with hokiyarray[i] do for i: =1 to n do begin writeln('динамо', f, name, ' ', shyiba.gol_per, ' ', shyiba.gol, ' ', shyiba.straf_time); close(f); end; begin assign(f1, 'd: /test01.txt'); rewrite(f1); write('спартак '); write('введите количество : '); readln(n); for i: =1 to n do begin writeln(''); writeln(' введите данные ', i, ''); write(' введите имя : '); readln( hokiyarray01[i].name); writeln(''); writeln; write(' количество заброшеніх шайб : '); readln( hokiyarray01[i].shyiba.gol_per); write('количество голевіх передач '); readln( hokiyarray01[i].shyiba.gol); write(' количество штрафного времени '); readln(hokiyarray01[i].shyiba.straf_time); writeln; end; writeln; with hokiyarray01[i] do for i: =1 to n do begin writeln('спартак', f1, name, ' ', shyiba.gol_per, ' ', shyiba.gol, ' ', shyiba.straf_time); close(f1); end; end; end.
Ответы
(*объявление переменных*)
var
var1,var2,var3, result: real;
begin
(*ввод значений*)
readln(var1, var2, var3);
(*считаем натуральный лог. от квадрата суммы var1 и var3 *)
result : = ln((var1 + var2) * (var1 + var2));
(*выводим результат*)
writeln('результат = ', result: 2);
(*выводим все введенные числа*)
writeln('число 1 = ', var1: 2);
writeln('число 2 = ', var2: 2);
writeln('число 3 = ', var3: 2);
end.
fpc 3.0.0 - compiler
алгоритм - система последовательных операций.
конечность алгоритма - означает расчлененность определяемого алгоритмом вычислительного процесса на отдельные этапы, возможность выполнения которых исполнителем (компьютером) не вызывает сомнений; конечность.
понятность алгоритма - означает, что алгоритм должен содержать только те команды, которые входят в набор команд, который может выполнить конкретный исполнитель.
точность алгоритма - детерминированность (определенность, точность, однозначность) . это свойство заключается в том, что при одних и тех же исходных данных несколько раз алгоритм будет выполняться абсолютно одинаково и всегда будет получен один и тот же результат.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Назовите три основных аспекта компьютерного моделирования
Составить программу возведения числа а в n степень
Решите задачу по информатике
