Question

Нужна помощь с задачей по программированию.
Процедура сравнения последовательного файла (имя) и целочисленного массива
структура файла: х-целое, у-вещественное
сравнение осуществляется по-элементно
если все значения совпали, то процедура выводит true,иначе false.
я написал часть и уже запутался...
program failinif;
const n=8;
procedure sravnenie(c: integer);
var mass : array[1..n] of real;
f1:file of integer;
i:integer;
x:integer;
y:real;
begin
assignFile(f1,'f1.dat');
rewrite(f1);
readln(x,y);
write(f1,x,y);
closeFile(f1);
readln(mass[i]);
for i:=1 to n-1 do
if (mass[i]=x)and(mass[i+1]=y) then writeln('true')
else writeln('false');
end;
var a:integer;
begin
sravnenie(a);
end.
(ПАСКАЛЬ)

Answer 1

Листинг программы в приложении Программа считывает файл input.txt вида 123 123.00 87 87.0000 567 87.3 987 882.45 и сравнивает integer и real записанные через пробел.

f12248f20d1c347f84da25d1c895a4d8.pas

Answer 2

Лис копипасту из PascalABC.NET 100% не съедает... переносит всю табуляцию один в один

Answer 3

Съедается иногда копипаста с интернет ресурсов, но это там так странички отдают данные.

Answer 4

понятно. Я делал копипасту с хрома. И то что из хрома попало в Pascal потом перенслось и в Firefox

Answer 5

В Паскале есть автоформатирование... попробуйте им воспользоваться после вставки

Answer 6

автоформатом пользуюсь. Но тут другой случай. Текст ответа то весь мой. Наверное какой-то невидимый символ из хрома скопипастился