Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Kolbasa
0 / 0 / 0
Регистрация: 29.06.2011
Сообщений: 8
1

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

29.06.2011, 22:17. Просмотров 1005. Ответов 9
Метки нет (Все метки)

1) Имеется типизированный файл, элементами которого являются отдельные буквы, составляющие последовательность кадировко. Получить новый файл, в котором буквы слова кодировка будут расположены правильно.
Вот я нафурычила:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type fails=record
     s:string;
     end;
var
t,tt:file of fails;
st,ts:fails;
 {ГЄГ*äèðîâêî  ГЄ_äèðîâê_ }
begin
assign(t,'fail.txt');
assign(tt,'fail2.txt');
reset(t);
 
ts.s:=st.s[2];     {Г*}
st.s[9]:=st.s[2];  {Г* Г§Г*ìåГ*ГЁГІГ±Гї Г*Г* Г®}
st.s[2]:=ts.s[9];     {Г® Г§Г*ìåГ*ГЁГІГјГ±Гї Г*Г* Г*}
  close(t);
rewrite(tt);
write(tt,st);
close(tt);
end.
2) Удалить из текстового файла всю информацию. Дополнительный файл не использовать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
type fails=record
      s:string;
      end;
var
  t:file of fails;
  st:fails;
begin
 assign(t,'fail.txt');
 Rewrite(t);
 write(t,st);
 close(t);
end.
ну вот как то так... помогите кто чем может.))
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2011, 22:17
Ответы с готовыми решениями:

Получить новый массив, в котором буквы будут расставлены по алфавиту
3. Дан одномерный массив, который содержит не более 60 английских букв....

Файл: Создать новый файл, в котором будут содержаться фамилии с итоговой оценкой
Дан файл со списком класса и несколькими оценками на каждого в виде: Иванов 3...

Получить текстовый файл, в котором будут содержаться данные для excel, чтобы построить графики
Помогите срочно, прошу. нужно написать в паскале программу чтобы получился файл...

Напечатать те слова, которые отличны от последнего и симметричны / буквы слова расположены по алфавиту
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1...

Работа с файлами. Записать в новый файл все слова из исходного, начинающиеся с заданной буквы
Дан символ С – строчная (маленькая) русская буква и текстовый файл. Создать...

9
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
29.06.2011, 22:22 2
А что нужно-то? Во второй 10 строку удалите, и будет ок
2
Vovcheg
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
29.06.2011, 22:24 3
Цитата Сообщение от Kolbasa Посмотреть сообщение
ts.s:=st.s[2]; * * {а}
st.s[9]:=st.s[2]; *{а заменится на о}
st.s[2]:=ts.s[9]; * * {о замениться на а}
В задачу не вдавался, нашел одну ошибку.
Правильно так:
Pascal
1
2
3
ts.s:=st.s[2]; *  *
st.s[2]:=ts.s[9]; * * 
ts.s[9]:=ts.s;
2
Kolbasa
0 / 0 / 0
Регистрация: 29.06.2011
Сообщений: 8
29.06.2011, 22:42  [ТС] 4
Цитата Сообщение от iama Посмотреть сообщение
А что нужно-то? Во второй 10 строку удалите, и будет ок
в первой нужно чтобы буквы в правильном порядке располагались... чтобы в другом файле появилось "кодировка"

Добавлено через 32 секунды
спасибо за вторую))
0
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
29.06.2011, 22:45 5
Kolbasa, насчет первой вам тоже подсказали
0
Kolbasa
0 / 0 / 0
Регистрация: 29.06.2011
Сообщений: 8
29.06.2011, 22:58  [ТС] 6
в первой теперь выдает "попытка присвоить переменной типа char выражение типа string "
0
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
29.06.2011, 23:08 7
Kolbasa, вы что-то где-то потеряли, копипастьте опять код
0
Kolbasa
0 / 0 / 0
Регистрация: 29.06.2011
Сообщений: 8
29.06.2011, 23:10  [ТС] 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type fails=record
     s:string;
     end;
var
t,tt:file of fails;
st,ts:fails;
 
begin
assign(t,'fail.txt');
assign(tt,'fail2.txt');
reset(t);
 
ts.s:=st.s[2];     
st.s[2]:=st.s[9]; 
st.s[9]:=ts.s;    
  close(t);
rewrite(tt);
write(tt,st);
 close(tt);
 end.
вот
0
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
29.06.2011, 23:12 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type fails=record
     s:string;
     end;
var
t,tt:file of fails;
st:fails;
  ts: char;
 
begin
assign(t,'fail.txt');
assign(tt,'fail2.txt');
reset(t);
 
ts:=st.s[2];     
st.s[2]:=st.s[9]; 
st.s[9]:=ts;    
  close(t);
rewrite(tt);
write(tt,st);
 close(tt);
 end.
1
Kolbasa
0 / 0 / 0
Регистрация: 29.06.2011
Сообщений: 8
29.06.2011, 23:34  [ТС] 10
Спасибо!!
0
29.06.2011, 23:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2011, 23:34

Переписать в новый файл все слова, которые содержат только буквы латинского алфавита.
Переписать в новый файл все слова, которые содержат только буквы латинского...

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

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


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

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

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