Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Klawik
0 / 0 / 0
Регистрация: 03.12.2015
Сообщений: 16
#1

Вывести начальные буквы строк, которые есть в каждом из данных файлов - Turbo Pascal

01.02.2016, 15:34. Просмотров 211. Ответов 1
Метки нет (Все метки)

помогите пожалуйста решить, надо использовать только последовательные файлы:
Даны два текстовых файла. Вывести начальные буквы строк, которые есть в каждом из данных файлов
http://www.cyberforum.ru/turbo-pascal/thread229737.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.02.2016, 15:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести начальные буквы строк, которые есть в каждом из данных файлов (Turbo Pascal):

С помощью множества нужно вывести на экран строку в который идут по порядку цифры и буквы из строк которые ввел пользователь
Всем привет!! Не могли бы написать программу ?? Пользователь вводит 2 строки...

Распечатать буквы, которые встречаются в каждом слове текста только один раз
Здравствуйте. Как распечатать буквы, которые встречаются в каждом слове...

Распечатайте буквы, которые встречаются в каждом слове текста только один раз
Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове...

Определить количество строк массива, которые не содержат чисел из первой строки, вывести номера строк на экран
Определить количество строк массива, которые не содержат чисел из первой...

Вывести те элементы, которые стоят на каждом пятом месте в исходном массиве.
Сформировать целочисленный массив на отрезке , содержащий 40 элементов....

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,070
01.02.2016, 21:26 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var f1, f2: text;
    s1, s2: string;
begin
  assign(f1, '1.txt');
  reset(f1);
  assign(f2, '2.txt');
  reset(f2);
  while not eof(f1) do
    begin
      readln(f1, s1);
      reset(f2);
      while not eof(f2) do
        begin
          readln(f2, s2);
          if s1 = s2
            then begin
              write(s1[1]);
              break
            end
        end
    end;
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.02.2016, 21:26
Привет! Вот еще темы с решениями:

Найти буквы, которые входят только в одну из трех строк
Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые...

Напечатать те латинские буквы, которые входят только в одну из строк.
Привет всем!!! Люди помогите решить задачи на паскале. Я решала но у меня не...

Множества. Напечатать латинские буквы, которые есть/которых нет в данной последовательности символов
Всем привет. Помогите пожалуйста решить задачку. Вот условие И второй...

Найти все буквы заданных строк, которые встречаются во всех этих строках
Найти все буквы заданных строк, которые встречаются во всех этих строках.


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

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

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