![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 20.01.2009
Сообщений: 7
|
![]()
program Project1;
{$APPTYPE CONSOLE} uses SysUtils; const r='Kolichestvo strok v in.txt = '; var //BRU: array ['1'..'3'] of char; c:char; i,j,Zagl,prop,numb,other:integer; s:string; InF,OutF:text; begin try i:=0; zagl:=0; prop:=0; numb:=0; other:=0; assign (InF,'O:\VT075\demon\6\in.txt'); reset (InF); assign (OutF,'O:\VT075\demon\6\out.txt'); rewrite (OutF); { while not EOF(InF) do begin readln(InF,s); inc(i); end; close(InF); assign (InF,'O:\VT075\demon\6\in.txt'); reset (InF); } while not EOF(InF) do begin readln(InF,s); inc(i); for j:= 1 to length(s) do if s[j] in ['A'..'Z'] then zagl:=zagl+1 else if s[j] in ['a'..'z'] then prop:=prop+1 else if s[j] in ['0'..'9'] then numb:=numb+1 else other:=other+1; end; writeln(OutF,r,i); writeln(OutF,'koli4estvo zaglavnih simvolov= ',zagl); writeln(OutF,'koli4estvo propisnih simvolov= ',prop); writeln(OutF,'koli4estvo cifr= ',numb); writeln(OutF,'koli4estvo other= ',other); except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; close(InF); close (OutF); writeln ('Press any key to finish compile'); readln; end. |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Ну и чего не понятно?
Тут же написано: Код:
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 20.01.2009
Сообщений: 7
|
![]()
что означает, например, вот это
reset (InF); |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
![]()
Открытие файла связанного с переменной InF с помощью assign(InF,'put k failu'); на чтение.
|
![]() |
![]() |
![]() |
#5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Открыть файл, ассигнированный в переменку InF на чтение с начала файла
I'm learning to live...
|
![]() |
![]() |
![]() |
#6 |
Регистрация: 20.01.2009
Сообщений: 7
|
![]()
reset - открыть файл в режиме чтения,
rewrite- в режиме редактирования. так? |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
![]()
Да файл создается или если но уже существует тогда перезаписуется и затем открывается в режиме редактирования.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ПОмогите разобраться в коде программы на С++ | Ajanami | Помощь студентам | 4 | 26.11.2008 15:24 |
Вылетает Out of Bounds в коде помогите разобраться | Airou | Общие вопросы Delphi | 5 | 24.07.2008 09:56 |
Нужно перевести задачу с паскаля на DELPHI | VDK23RUS | Помощь студентам | 8 | 16.06.2007 15:38 |