Создать файл X компонентами которого являются элемента массива M. Переписать из файла X в файл Y все компоненты, которые стоят на четных местах. Прочитать файл Y.
M = (0,1; 5,6; 0.8; 2,4; 7,3; 6,8; 0,5; 2,3;)
Решение
Описание переменных:
M - массив-константа;
x, y - переменные, связанные с типизированными файлами;
n - считанное из файла очередное число;
i - счетчик.
Алгоритм решения задачи:
Создать константу-массив, присвоив ей заданные значения массива.
Связать файловые переменные с соответствующими файлами.
Открыть файл X на запись. Записать в него все элементы массива. Закрыть файл.
Открыть файл X на чтение, а файл Y на запись. Присвоить счетчику значение 1. Пока не будет достигнут конец файла X, считывать из него очередное число. Если при этом счетчик имеет четное значение, то записывать число в файл Y. После считывания и проверки на четность номера очередного числа, увеличивать счетчик на 1. После того как файл X будет прочитан, закрыть оба файла.
Открыть файл Y на чтение. Пока не будет достигнут его конец, считывать из него очередное число и выводить его на экран. После завершения цикла закрыть файл.
Программа на языке Паскаль:
const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);
var
x,y : file of real;
n: real;
i: byte;
begin
assign(x,'x.dat');
assign(y,'y.dat');
rewrite(x);
for i:=1 to 8 do
write(x, M[i]);
close(x);
reset(x);
rewrite(y);
i := 1;
while not EOF(x) do begin
read(x, n);
if not odd(i) then
write(y, n);
i := i + 1;
end;
close(x);
close(y);
reset(y);
while not EOF(y) do begin
read(y, n);
write(n:5:1);
end;
writeln;
close(y);
Объяснение:
№1:
Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.
101 = 2^{2}*1 + 2^{1}*0 + 2^{0}*1 = 4 + 0 + 1 = 5
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда
101 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 = 0.625
Аналогично:
№2
101 = 2^{2}*1 + 2^{1}*0 + 2^{0}*1 = 4 + 0 + 1 = 5
101000 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 + 2^{-4}*0 + 2^{-5}*0 + 2^{-6}*0 = 0.625
№3
11001 = 2^{4}*1 + 2^{3}*1 + 2^{2}*0 + 2^{1}*0 + 2^{0}*1 = 16 + 8 + 0 + 0 + 1 = 25
101000 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 + 2^{-4}*0 + 2^{-5}*0 + 2^{-6}*0 = 0.625
№4
10100 = 2^{4}*1 + 2^{3}*0 + 2^{2}*1 + 2^{1}*0 + 2^{0}*0 = 16 + 0 + 4 + 0 + 0 = 20
101 = 2^{-1}*1 + 2^{-2}*0 + 2^{-3}*1 = 0.625
Если не понятен значок ^{ } - это степень.
Вложение к следующему заданию
