Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2009, 15:59   #1
[silver beast]
 
Аватар для [silver beast]
 
Регистрация: 20.01.2009
Сообщений: 7
По умолчанию нужно разобраться в коде паскаля. in, out из файла

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.
[silver beast] вне форума Ответить с цитированием
Старый 21.01.2009, 16:09   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну и чего не понятно?
Тут же написано:

Код:
writeln(OutF,'koli4estvo zaglavnih simvolov= ',zagl);
writeln(OutF,'koli4estvo propisnih simvolov= ',prop);
writeln(OutF,'koli4estvo cifr= ',numb);
writeln(OutF,'koli4estvo other= ',other);
Прога читает файл и выводит о его содержимом эту инфу
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.01.2009, 16:36   #3
[silver beast]
 
Аватар для [silver beast]
 
Регистрация: 20.01.2009
Сообщений: 7
По умолчанию

что означает, например, вот это
reset (InF);
[silver beast] вне форума Ответить с цитированием
Старый 21.01.2009, 16:48   #4
pomoshnic
Форумчанин
 
Аватар для pomoshnic
 
Регистрация: 16.11.2008
Сообщений: 192
По умолчанию

Цитата:
Сообщение от [silver beast] Посмотреть сообщение
что означает, например, вот это
reset (InF);
Открытие файла связанного с переменной InF с помощью assign(InF,'put k failu'); на чтение.
pomoshnic вне форума Ответить с цитированием
Старый 21.01.2009, 16:48   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Открыть файл, ассигнированный в переменку InF на чтение с начала файла
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.01.2009, 06:01   #6
[silver beast]
 
Аватар для [silver beast]
 
Регистрация: 20.01.2009
Сообщений: 7
По умолчанию

reset - открыть файл в режиме чтения,
rewrite- в режиме редактирования. так?
[silver beast] вне форума Ответить с цитированием
Старый 22.01.2009, 08:42   #7
pomoshnic
Форумчанин
 
Аватар для pomoshnic
 
Регистрация: 16.11.2008
Сообщений: 192
По умолчанию

Цитата:
Сообщение от [silver beast] Посмотреть сообщение
rewrite- в режиме редактирования. так?
Да файл создается или если но уже существует тогда перезаписуется и затем открывается в режиме редактирования.
pomoshnic вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПОмогите разобраться в коде программы на С++ 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