Создан заказ №5594477
27 октября 2020
Перевести программу из Pascal в Python
Как заказчик описал требования к работе:
Дан файл, компонентами которого являются вещественные числа. Удалить из него компоненты, модуль которых меньше заданного числа.
var
i, j, k: integer;
x, y: real;
f: file of real;
begin
assign(f, 'file');
rewrite(f);
writeln('Введите в файл вещественные числа, окончание ввода 0');
i :
= 0;
repeat
inc(i);
write('Элемент N', i, ': ');
readln(x);
if x <> 0 then write(f, x);
until x = 0;
reset(f);
writeln('Исходный файл');
repeat
read(f, x);
write(x, ' ');
until eof(f);
writeln;
write('Введите число для сравнения y=');
readln(y);
reset(f);
k := 0;//количество элементов удалить
i := 0;//начало файла
while i < filesize(f) - k - 1 do
begin
seek(f, i);
read(f, x);
if x >= y then inc(i) //пропускаем большие
else
begin
k := k + 1; //считаем меньшие
for j := i to filesize(f) - 2 do //сдвигаем на них конец файла
begin
seek(f, j + 1);
read(f, x);
seek(f, j);
write(f, x)
end;
end
end;
seek(f, filesize(f) - 1 - k);//проверим последний
read(f, x);
if x < y then k := k + 1;//если меньше, то +1
seek(f, filesize(f) - k);//встаем в конец
truncate(f);//обрезаем файл
reset(f);
writeln('Удаление меньших ', y:0:2);
repeat
read(f, x);
write(x, ' ');
until eof(f);
close(f);
end
подробнее
Заказчик
заплатил
заплатил
200 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
30 октября 2020
Заказ завершен, заказчик получил финальный файл с работой
5
Перевести программу из Pascal в Python.docx
2020-11-02 09:23
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
замечательный автор! оперативно и качевтенно выполнил заказ! обязательно буду обращаться еще!
Хочешь такую же работу?
300 ₽
