Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
kentttt
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 1
1

Сравнение массива с файлом, внесите пару строк

26.12.2010, 20:01. Просмотров 302. Ответов 0
Метки нет (Все метки)

Добрый вечер. Задачка такая:
Вводится одномерный массив, его числа сравниваются со значением текстового файла и на экран выводятся совпавшие числа. Но суть в том чтобы программа совпадающие числа выводила один раз, а не столько сколько их в файле. К примеру в файле числа:
1
2
3
4
5

В массив введём:
1
2
2
0
2

Результат программа выдаёт: 1 2 2 2
а нужно чтоб выдала один раз число: 1 2

Исправьте пожалуйста программу:

uses crt;
var f:text;
m:array[1..5] of integer;
i,ch:integer;
begin
clrscr;
for i:=1 to 5 do
begin
writeln('Vvedite ',i,' chislo massiva');
readln(m[i]);
end;
Assign(f,'3.txt');
reset(f);
writeln;
write('Te chisla kotorie ravnbI - ');
while not eof(f) do
begin
read(f,ch);
for i:=1 to 5 do
begin
if ch=m[i] then write(ch:5);
end;
end;
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2010, 20:01
Ответы с готовыми решениями:

Двумерный массив: Определить пару строк, содержащих наибольшее число общих символов
Помогите с задачей пожалуйста. Дан двумерный массив символов. Определить...

Сравнение строк
Подскажите процедуру, которая будет искать сколько букв различаются в 2х словах...

Сравнение строк
Оч мало времени, по этому прошу помощи. Есть задача: Программа должна...

Сравнение двух строк
Даны две строки Str1 и Str2. Выясните, можно ли строку Str2 получить из строки...

Сравнение строк по буквам
Здравствуйте, помогите, пожалуйста, с кодом. Пользователь задает строку,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2010, 20:01

Построчное сравнение строк массива с остальными строками
Здравствуйте, уважаемые участники форума. Напишите, пожалуйста, программу....

Сравнение строк txt файлом
Здраствуйте, мне нужно сделать так чтобы: допустим создал 2 файла txt в 1-й...

В редакторе создайте два текстовых файла, внесите в каждый файл 10 строк произвольного текста
- В редакторе создайте два текстовых файла, внесите в каждый файл 10 строк...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru