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

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

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

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

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

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

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

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

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

1
Cyborg Drone
Модератор
5293 / 3171 / 2442
Регистрация: 17.08.2012
Сообщений: 10,186
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

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

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

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


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

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

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