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

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

26.12.2010, 20:01. Просмотров 296. Ответов 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
Другие темы раздела
Pascal Дан массив B[1:n]. Поменять местами... http://www.cyberforum.ru/pascal/thread220821.html
1)Дан массив B. Поменять местами его максимальный отрицательный и минимальный положительный элемент. 2)Дан массив A. Удалить из него путем сдвига положительные элементы, кратные 3. Я новичек в...
Pascal Составьте программу вычисления суммы элементов от первого положительного и до конца Составьте программу вычисления суммы элементов от первого положительного и до конца http://www.cyberforum.ru/pascal/thread220812.html
СТРОКИ И БУКВЫ! Pascal
1.Введена строка маленьких латинских букв. Преобразовать ее, превратив маленькие буквы в большие. 2.Обратить введенную строку: abcd -> dcba.
Задание в университет)) Pascal
Задан массив C(m),M<=(меньше либо равно)25,содержащий несколько нулевых элементов.Сжать его,выбросив эти элементы.Распечатать исходный массив и переформированный. Решите пожалуйсто) Зараннее...
Pascal Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами http://www.cyberforum.ru/pascal/thread220598.html
Задан массив размером K. Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами. Именуйте темы...
Pascal Выделить из каждой строки и напечатать подстроки Дано k литерных строк. Каждая строка содержит латинские и русские буквы, цифры а также все возможные разделители. Требуется: 1)Выделить из каждой строки и напечатать подстроки: ограниченные с обеих... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru