0 / 0 / 0
Регистрация: 16.03.2011
Сообщений: 10
1

Дан символьный файл f, получить файл j образованный из файла f заменой всех его прописных(больших) букв одноименными строчными(малыми).

14.08.2011, 22:03. Показов 4227. Ответов 5
Метки нет (Все метки)

Дан символьный файл f, получить файл j образованный из файла f заменой всех его прописных(больших) букв одноименными строчными(малыми).Помогите пожалуйста очень срочно надо
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.08.2011, 22:03
Ответы с готовыми решениями:

Получить файл g, образованный из файла f заменой всех его прописных (больших) букв одноименными строчными (малыми)
Сделайте, пожалуйста, задачку. Дан символьный файл f. Получить файл g, образованный из файла f...

Дан символьный файл f. Получить файл g, образованный из файла f заменой всех его прописных одноименными строчными
Дан символьный файл f. Получить файл g, образованный из файла f заменой всех его прописных...

Получить файл j образованный из файла f заменой всех его прописных (больших) букв одноименными строчными
Дан символьный файл f, получить файл j образованый из файла f заменой всех его прописных (больших)...

Получить файл j образованный из файла f заменой всех его прописных (больших) букв одноименными строчными
Дан символьный файл f, получить файл j образованый из файла f заменой всех его прописных (больших)...

5
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
15.08.2011, 04:52 2
как то так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
f,j:file of char;
c:char;
begin
assign(f,'input');
reset(f);
assign(j,'output');
rewrite(j);
repeat
read(f,c);
if c in ['A'..'Z','a'..'z','а'..'я','А'..'Я'] then begin
c:=upcase(c);
c:=chr(ord(c)+32);
write(j,c);
end
else write(j,c);
until eof(f);
close(f);
close(j);
end.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
15.08.2011, 07:42 3
Цитата Сообщение от Gxost Посмотреть сообщение
как то так
Вот именно, как-то... Лень писать нормально, не пиши, не пудри мозги человеку, он и так запудренный...

Добавлено через 14 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
var f,j:file of char;
    c:char;
begin
assign(f,'fileF');
rewrite(f);
assign(j,'fileG');
rewrite(j);
writeln('Введите в файл различные буквы, окончание ввода точка:');
repeat
c:=readkey;
write(c);
write(f,c);
until c='.';
clrscr;
reset(f);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
  if c in ['A'..'Z','А'..'Я']then c:=chr(ord(c)+32)
  else if c='Ё' then c:='ё';
  write(j,c);
 end;
close(f);
writeln;
reset(j);
writeln('Замена прописных букв строчными:');
while not eof(j) do
 begin
  read(j,c);
  write(c);
 end;
close(j);
end.
2
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
17.08.2011, 02:12 4
Я только учусь. Хотелось бы узнать в чем я допустил ошибку? Обьясните пожалуйста..
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
17.08.2011, 08:42 5
Gxost, Условие

Цитата Сообщение от Alexti Посмотреть сообщение
заменой всех его прописных(больших) букв одноименными строчными(малыми).
1. Upcase наоборот преобразует маленькие латинские в большие.
2. Да и вообще для чего это здесь, если все равно все переводится в строке
c:=chr(ord(c)+32);
3.В условии не нужно перечислять маленькие буквы, они и так маленькие.
4. Буквы Ё,ё стоят в таблице не на месте и их нужно переводить отдельно.
0
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
18.08.2011, 06:31 6
Использовал upcase чтобы сделать все буквы одного типа то есть большими.
c:=chr(ord(c)+32) делает большие(в моем случае все буквы) буквы маленькими то что и требовалось.
по поводу 4 пункта я просто забыл про то что букву 'ё' надо указвать отдельно.
Я понял условие так есть файл f (Привет Как дела?) в файле j должно получиться(привет как дела?)
в этом случае программа работает правильно надо только добавить условие на букву Ё.
возможно что я не правильно понял условие.
Puporev, спасибо за ответ.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.08.2011, 06:31
Помогаю со студенческими работами здесь

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

Получить файл g, образованный из файла f заменой всех его прописных букв одноименными строчными
1. Дан символьный файл f. Получить файл g, образованный из файла f заменой всех его прописных...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru