Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 17.06.2011
Сообщений: 5

файл с элементами из букв

17.06.2011, 19:50. Показов 1082. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите пожалуйста составить программу на задачу:
Имеется текстовый файл, в каждой строке которого первые два символа являются буквами. Получить:
а) слово, образованное первыми буквами каждой строки;
б) слово, образованное вторыми буквами каждой строки;
в) последовательность символов, образованную s-ми символами каждой строки.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.06.2011, 19:50
Ответы с готовыми решениями:

Имеется файл, элементами которого являются отдельные слова. Переписать их в другой файл
Имеется файл, элементами которого являются отдельные слова. Переписать их в другой файл. Размер заданного файла неизвестен. Прошу...

Файл: Сформировать файл, элементами которого являются числа а1, а1 * а2, а1 * а2 *а3, ..., а1 *а2 * а3 * ... * аN.
Записать в файл последовательность натуральных чисел: а1, а2, ..., аn (числа получить с помощью генератора случайных чисел). Сформировать...

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

1
code code
 Аватар для Шутка
128 / 123 / 77
Регистрация: 11.10.2009
Сообщений: 375
18.06.2011, 05:35
Лучший ответ Сообщение было отмечено krime как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
f:text;
rez,s:string;
i:integer;
c:char;
begin
assign(f,'C:\111.txt');
reset(f);
while not eof(f) do begin
readln(f,c); ;
 rez:=rez+c;
end;
writeln(rez);
close(f);
end.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
f:text;
rez,s:string;
i:integer;
c:char;
begin
assign(f,'C:\111.txt');
reset(f);
while not eof(f) do begin
read(f,c); readln(f,c); ;
 rez:=rez+c;
end;
writeln(rez);
close(f);
end.
Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
f:text;
rez,s:string;
k,i:integer;
c:char;
begin
readln(k);
assign(f,'C:\111.txt');
reset(f);
while not eof(f) do begin
readln(f,s);
 for i:=1 to length(s) do
  if i=k then c:=s[i];
 rez:=rez+c;
end;
writeln(rez);
close(f);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.06.2011, 05:35
Помогаю со студенческими работами здесь

Скопировать текстовый файл в новый файл, указав после каждой строки количество встретившихся в ней букв «Р»
Скопировать текстовый файл в новый файл, указав после каждой строки количество встретившихся в ней букв «Р» и заменив в каждой строке...

Создать текстовый файл, состоящий из 5 стpок: в пеpвой стpоке шесть букв 'A', во втоpой - пять букв B' и т.д.
23. Создать текстовый файл, состоящий из 5 стpок: в пеpвой стpоке шесть букв 'A', во втоpой - пять букв B' и т.д.

Файл: Сформировать новый файл, элементами которого являются числа а1, а1•а2, а1•а2•а3,..., al•a2•a3•...•an.
Записать в файл последовательного доступа n натуральных чисел: a1, a2,..., an (числа получить с помощью датчика случайных чисел)....

Файл: Сформировать файл, элементами котого являются числа a1, a1*a2, a1*a2*a3,..., a1*a2*a3*...*an
привет всем, помогите пожалуйста решить задачку. Записать в файл N натуральных чисел: a1,a2,...,an(числа получить с помощью датчика...

Поиск удвоения букв в словах которые являются элементами массива
Добрый день! Вот возникла такая проблема. Есть три массива: list1 = list2 = ('carrot', 'potato','lettuce') list3 = {'milk',...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru