Форум программистов, компьютерный форум CyberForum.ru

Text file - C++

Войти
Регистрация
Восстановить пароль
 
MerlinLegend
1 / 1 / 0
Регистрация: 11.04.2011
Сообщений: 109
20.05.2011, 21:19     Text file #1
Здравствуйте. помогите программу переделать на Паскаль.

puts("Ошибка! Используйте ./text1 filename N M");
puts("Где filename - название входного файла");
puts("Где M-макс.длина строки N-абзацный отступ");
clock=time(NULL);
fprintf(flog,"%s:Ошибка открытия входного файла\n",ctime(&clock));
clock=time(NULL);
fprintf(flog,"%s:Работа завершена\n",ctime(&clock));
fclose(flog);
puts("Нажмите Enter!");
getchar();
exit(0);
N=atoi(argv[2]);
M=atoi(argv[3]);
}

if(N<3 || N>10) N=8;
if(M<30 || M>100) M=60;
fprintf(flog,"%s:Неверно введены данные\n");

if ((fin=fopen(argv[1],"r"))==NULL)
{

clock=time(NULL);
fprintf(flog,"%s:Ошибка открытия входного файла %s\n",ctime(&clock),argv[1]);
fclose(flog);
puts("Ошибка открытия входного файла");
exit(0);
}
else
{
clock=time(NULL);
fprintf(flog,"%s:Входной файл %s открыт успешно\n",ctime(&clock),argv[1]);
}
if ((fout=fopen("out.txt","w"))==NULL)
{
clock=time(NULL);
fprintf(flog,"%s:Ошибка открытия выходного файла\n",ctime(&clock));
puts("Ошибка открытия выходного файла");
exit(0);
}
else
{
clock=time(NULL);
fprintf(flog,"%s:Выходной файл открыт успешно\n",ctime(&clock));
}
while (!feof(fin))
{
fgets(ch,298,fin);
clock=time(NULL);
kol_vo=strlen(ch);j=0;
if(strncmp(ch," ",3)==0){j=N;
for(i=1;i<=N-3;i++)
fprintf(fout," ");}


for(i=j;i<kol_vo;i++)
{fprintf(fout,"%c",ch[i]);if(((i%M)==0)&&i!=0)fprintf(fout,"\n");}




}

fprintf(flog,"%s:- out.txt\n",ctime(&clock),ch);
fclose(fin);
clock=time(NULL);
fprintf(flog,"%s:Входной файл закрыт\n",ctime(&clock));
fclose(fout);
clock=time(NULL);
fprintf(flog,"%s:Выходной файл закрыт\n",ctime(&clock));
clock=time(NULL);
fprintf(flog,"%s:Работа завершена\n",ctime(&clock));
fclose(flog);
puts("Нажмите Enter!");
getchar();
exit(0);
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2011, 21:19     Text file
Посмотрите здесь:

C++ Text -> File.txt -> Console
Static Text в visual c++ C++
Очистка Text у ComboBox C++
C++ OpemGL Text draw
C++ Text file
Sublime Text 2 и C++ C++
C++ как подключить mingv к Sublime Text 2?
Sublime text 2 + MinGW не получается настроить C++
Sublime text 2 как установить компилятор c++ ? C++
Считывание текста из файла text в массив char C++
C++ Получить текст по ссылке, plain text
Text to midi & midi to text C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 15:22. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru