Каждый четный элемент в файле заменить результатом его целочисленного деления на 5

09.01.2014, 14:56. Показов 697. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Ввести файл. Каждый четный элемент в файле заменить результатом его целочисленного деления на 5. Файл вывести до и после преобразования
Доброго времени суток, форумчане!
Код написал. Не работает. выдает один и тот же файл до преобразования и после.
в чем моя ошибка? Заранее спасибо!

Pascal

program abc;
var b,i,p:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('Введите первую компоненту файла F или признак конца ввода : "111")');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>111 do
begin
write(f,b);
i:=i+1;
writeLn('введите ',i,'-ю компоненту файла f');
readLn(b);
end;
//вывод файла до изменения
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
reset(f);
while not EOF(f) do
begin
read(f,b);
if b mod 2 = 1 then
b:= b div 5;
end;
//вывод файла после изменения
reset(f);
writeLn('файл f после изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeln ;
close(f);
readln();
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.01.2014, 14:56

Ответы с готовыми решениями:

Каждый отрицательный элемент матрицы заменить результатом его целочисленного деления на 3
Ввести двумерный массив A NxM. Каждый отрицательный элемент в массиве заменить результатом его...

Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3
Выполняю условие задачи в паскале: Ввести двумерный массив ANxM. Каждый отрицательный элемент в...

Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3
Помогите пожалуйста написать программу с циклами repeat и while по следующему условию: Ввести...

Каждый четный элемент в массиве заменить результатом его целочисленного деления на 5
Ввести двумерный массив A (NxM). Каждый четный элемент в массиве заменить результатом его...

	09.01.2014, 14:56

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.01.2014, 14:56

Помогаю со студенческими работами здесь

Ввести файл. Каждый четный элемент в файле заменить результатом его целочисленного деления на 5. Файл вывести до и после преобразования
Доброго времени суток, форумчане! Код написал. Не работает. выдает один и тот же файл до...

Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3
Ввести двумерный массив A(N x M). Каждый отрицательный элемент в массиве заменить результатом его...

Обработка элементов файла.Каждый отрицательный элемент в файле заменить результатом его целочисленного деления на 3
Ввести файл F. Каждый отрицательный элемент в файле заменить результатом его целочисленного деления...

Каждый отрицательный элемент массива заменить результатом его целочисленного деления на 3
10. Ввести одномерный массив из элементов. Каждый отрицательный элемент в массиве заменить...

Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3
Ввести одномерный массив A из N элементов. Каждый отрицательный элемент в массиве заменить...

Каждый элемент в файле больший 7 домножить на результат целочисленного деления этого элемента на 7
Ввести файл F . Каждый элемент в файле больший 7 домножить на результат целочисленного ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх