Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
kentttt
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 1
#1

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

26.12.2010, 20:01. Просмотров 292. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сравнение массива с файлом, внесите пару строк (Pascal):

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

Сравнение строк - Pascal
Оч мало времени, по этому прошу помощи. Есть задача: Программа должна проверять орфографию(правильное написание) слов в некоторой...

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

Сравнение строк по буквам - Pascal
Здравствуйте, помогите, пожалуйста, с кодом. Пользователь задает строку, происходит инверсия(это я сделал). Подскажите, как сравнить...

Построчное сравнение строк массива с остальными строками - PascalABC.NET
Здравствуйте, уважаемые участники форума. Напишите, пожалуйста, программу. Прочитать прямоугольную матрицу из файла. Прогнать 1-ю строку...

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

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

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

Сравнение строк двумерного массива - C#
Здравствуйте. Есть проблема: Имеется двумерный массив к примеру(2,6) состоящий из элементов (1 и 0) нужно сравнить количество...

Сравнение двумерного массива созданного из двух строк - C++
Вот первая проблема,если при вводе первого предложения поставить пробел то второе он вводить уже не требует а сразу работает далее, почем...

Считывание txt, разбиение строк, создание массива из результата, сравнение - Visual C++
На сервере есть txt со следующем содержанием: Вася | 09.02.2013 Петя | 09.04.2013 Гриша | 01.07.2013 ......... нужно...


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

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

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