Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
olol
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 1
#1

задание по курсовой.в с++ особо не соображаю. исправьте пожалуйста ошибки,хотя бы те,которые видимы сразу - C++

26.05.2012, 17:11. Просмотров 268. Ответов 0
Метки нет (Все метки)

void __fastcall TForm5::Button4Click(TObject *Sender)
{
int min,i,kfor,n;
file f1;
char *s;
f1=fopen("Temp","wt");
n=Memo1->Lines->Count-1;
for (i=0;i< n;i++)
{
s=Memo1->Lines->Strings[i].c_str;
{
min=strlen(s)+1;
kfor=posstr(s,';');
if ((kfor>-1) && (min>kfor))
min=kfor;
kfor=posstr(s,'{');
if ((kfor>-1) && (min>kfor))
min=kfor;
kfor=posstr(s,'}');
if ((kfor>-1) && (min>kfor))
min=kfor;
kfor=posstr(s,')');
if ((kfor>-1) && (min>kfor))
min=kfor;
if (min==strlen(s)+1)
fprintf(f1,"%s",s);
else
{
fprintf(f1,"%s\n",copystr(s,1,min));
s=copystr(s,min+1,strlen(s)-min);
}
}
while (min!=strlen(s)+1);
}
fclose(f1);
Memo->Lines->LoadFromFile("temp.txt");
Memo1->Lines->SaveToFile("temp.txt");

}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button5Click(TObject *Sender)
{ char *kn,*kb,*per,*s,*s2;
file f1,f2;
int min,i,kfor,keq,kto,kdo,n;
f1=fopen("Temp","rt");
f2=fopen(fn2,"wt");
n=Memo1->Lines->Count-1;
for (i=0;i< n;i++)
{
s=Memo1->Lines->Strings[i].c_str;
/*Определяем положение for*/
kfor=strstr(s,"for")-s;
if (kfor>-1)
{
/*Определяем положение :=*/
keq=strstr(s,":=")-s;
if ((keq>-1) && (keq>kfor+1))
{
/*Определяем положение to*/
kto=strstr(s,"to")-s;
if ((kto>-1) && (kto>keq+1))
{
/*Определяем положение do*/
kdo=strstr(s,"do")-s;
if ((kdo>-1) && (kdo>kto+1))
{
fl=1;
/*Выделяем переменную цикла*/
per=copystr(s,kfor+4,keq-kfor-4);
/*Выделяем начальное значение*/
kn=copystr(s,keq+2,kto-keq-3);
/*Выделяем конечное значение*/
kb=copystr(s,kto+3,kdo-kto-4);
/*Формируем while*/
fprintf(f2,"%s:=%s-1;\n",per,kn);
fprintf(f2,"while %s<%s do\n",per,kb);
fscanf(f1,"%s",s2);
/*Если у while есть {*/
if (strstr(s2,"begin")-s2>-1)
{
fprintf(f2,"%s",s2);
fprintf(f2,"%s:=%s+1;\n",per,per);
}
else
{
fprintf(f2,"begin\n");
fprintf(f2,"%s:=%s+1;\n",per,per);
fprintf(f2,"%s",s2);
fprintf(f2,"end;\n");
}
}
}
}
}
}
fclose(f2);
fclose(f1);
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2012, 17:11
Здравствуйте! Я подобрал для вас темы с ответами на вопрос задание по курсовой.в с++ особо не соображаю. исправьте пожалуйста ошибки,хотя бы те,которые видимы сразу (C++):

Исправьте пожалуйста ошибки - C++
Есть задача: создать массив данных о студентах группы. Записать имя, фамилию, год рождения каждого студента, оценки по пяти экзаменах. В...

Исправьте,пожалуйста, ошибки в коде :) - C++
Не пойму почему всё горит красным. Я не подключил библиотеку какую-то?Если нет,то в чём ошибке? Исправьте,пожалуйста. Спасибо! ...

исправьте ошибки в задаче пожалуйста - C++
в общем условие.. Сгенерировать целое число N і набор с N ненулевых целых чисел, в диапазоне (-40,50). Вывести в номера все непарные...

Задача из книги Р.Лафоре содержит ошибки, исправьте пожалуйста - C++
#include &lt;iostream&gt; using namespace std; int main() { int age; for(int j=0;j&lt;4;j++) { cout&lt;&lt;&quot;BBedite Bo3pacT:&quot;; ...

Исправьте ошибки! задание само: массив из 20 чисел случайных (функция random) вывести минимальное - C++
#include &quot;stdafx.h&quot; #include &quot;stdio.h&quot; #include &quot;conio.h&quot; #include &quot;iostream&quot; void main() { setlocale(0,&quot;&quot;); int a; int i; ...

исправьте ошибки . задание по текстовым файлам - Delphi
program Project1; {$APPTYPE CONSOLE} uses SysUtils; Function StrToIntDef(S:String; Default: Integer):Integer; begin ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2012, 17:11
Привет! Вот еще темы с ответами:

Исправьте пожалуйста ошибки - MS Access
DLookup(&quot;Last-Результат&quot;, &quot;Результат_приема&quot;, &quot;N_страхового_полиса= '&quot; &amp; N_страхового_полиса &amp; &quot; '&quot; AND '=&quot;терапевт&quot;') до AND функция...

Исправьте пожалуйста ошибки - MS Access
DLookup(&quot;Last-Результат&quot;, &quot;Результат_приема&quot;, &quot;N_страхового_полиса= '&quot; &amp; N_страхового_полиса &amp; &quot; '&quot; AND...

Исправьте, пожалуйста, ошибки - Pascal ABC
Нужно вычислить A,B,C. d ввести с клавиатуры. известно, что d&gt;0, при x=..., y=..., z=..., и d&lt;=0, при ... так же дано, что A= , B= ,...

Пожалуйста, исправьте ошибки в программе - Pascal ABC
var n:integer; a:array of string; //Переменная типа string, который будет пройден в след. уроке buf: string; i,j:integer; ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.