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

работа с файлами

19.10.2009, 21:22. Показов 930. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
создать файл. внести в него прописные и строчные символы. Считать все символы по одному, заменить все прописные строчными.
похожая задача: https://www.cyberforum.ru/pasc... post275170

Добавлено через 2 минуты
надо сделать процедурой или функцыей)))
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.10.2009, 21:22
Ответы с готовыми решениями:

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

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

работа с файлами
нужно создать что=то (файл наверное) "яхты". Характеристики такие: название, страна, водоизмещение, срок эксплуатации. Вывести на экран...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
19.10.2009, 22:22
denis92, Пишешь слово файл, это вообще ничего не значит, пиши тип файла, текстовый, типизированный, без типа.
0
0 / 0 / 0
Регистрация: 10.10.2009
Сообщений: 30
19.10.2009, 23:53  [ТС]
текстовый
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
20.10.2009, 07:05
Программа написана для работы с файлами, заполненными латиницей.
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
uses crt;
function LowCase(c:char):char;
begin
if c in ['A'..'Z'] then c:=chr(ord(c)+32);
LowCase:=c;
end;
var f,g:text;
    namef,nameg:string;
    s:char;
begin
clrscr;
write('Введите имя файла для изменений:  ');
readln(namef);
namef:=namef+'.txt';
assign(f,namef);
reset(f);
write('Введите имя файла для записи:  ');
readln(nameg);
nameg:=nameg+'.txt';
assign(g,nameg);
rewrite(g);
while not eof(f) do
 begin
  read(f,s);
  s:=LowCase(s);
  write(g,s);
 end;
close(f);
close(g);
write('Файл переписан!');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.10.2009, 07:05
Помогаю со студенческими работами здесь

Работа с файлами
Дан файл f, компоненты которого являются целыми числами. Используя вспомогательный файл h, переписать компоненты файлы f в файл g так,...

Работа с файлами
как записать в файл такую строку: nsd asd vsd ads и как потом прочитать из файла эту же строку

Работа с файлами
Дан файл, в котором записаны цифры, например: 24_25_78 Подсчитать эти цифры и заново записать в файл, результат: 6_7_15

Работа с файлами
Создать файл и записать в него информацию Program Zad; Uses Crt; Type m=array of integer; F=file of m; h=file of...

Работа с файлами
1.Построить файл данных, компонентами которого являются вещественные числа. Найти сумму квадратов компонентов файла. 2.Построить...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru