---

char*        SStruct::DataToString(){
  char*out; // выходная строка.
  size = CountResSize(SStruct.data[]); // считаю, сколько знакомест займут данные в структуре, плюс пробелы и прочее.
  out = new char[size+1];
  strcpy(out,data[0]);
  strcat(out," ");
  strcat(out,IntToString(data[1]));
  .
  .
  .
  return out; // тут всё замечательно. строка корректная.
};

main(){
 char*d;
 for (int i=0;i<ALOT!;i++){
    d= MyS.DataToString()
    delete [] d; // убиваю строку, которая находится по этой ссылке.
    // Debug Error; DAMAGE: after Normal Block (#67) at 0xsomeaddr
    delete d; // тоже самое, пишу на всякий случай ;).
 }
}

---

---

//----------------------------------------------
// atoms.cpp
char* IntToString(int num){
        int dim = 1;
        bool minus;
        int tmp = num;
        if (num < 0)
                {
                minus = 1;
                tmp = -num;
        }
        else minus = 0;

        // определить разрядность
        while (tmp/10 != 0){
                tmp = tmp/10;
                dim++;
        };

        // выделить память
        char* str;
        int index = 0;
        str = new char [dim+1 + minus];
        // копировать каждую цифру в массив
        if (minus) tmp = -num; else tmp = num;

        for (int i = dim+minus ; i>0+minus; i--)
        {
                switch (tmp%10){
                        case 0: str[i-1]='0'; break;
                        case 1: str[i-1]='1'; break;
                        case 2: str[i-1]='2'; break;
                        case 3: str[i-1]='3'; break;
                        case 4: str[i-1]='4'; break;
                        case 5: str[i-1]='5'; break;
                        case 6: str[i-1]='6'; break;
                        case 7: str[i-1]='7'; break;
                        case 8: str[i-1]='8'; break;
                        case 9: str[i-1]='9'; break;
                }
                tmp = tmp / 10;
        }

        if (minus) str[0] = '-';
        str[dim+minus] = 0;
        return str;
}
/////
char*        SLecture::DataToString(){

        // Выделяем переменные
        char*out; // выходная строка.
        int        size = 0; // вычисление размера этой строки, согласно совокупному количеству знаков, которые занимают записи.
        int ITEMS = 6; // количество полей в данной записи.
        int SPACES = ITEMS -1; // количество пробелов в записи.

        // Вычисляется общая длина записи.
        size += strlen(IntToString(Day));
        size += strlen(IntToString(Group));
        size += strlen(IntToString(Lector));
        size += strlen(IntToString(Number));
        size += strlen(IntToString(Room));
        size += strlen(IntToString(Subject));       
               
        // Выделяется строка, в которой вместятся все символы из записей, разделяющие пробелы, нуль-знак
        out = new char[size + 1 + SPACES ];

        strcpy(out,IntToString(Day));
        strcat(out," ");
        strcat(out,IntToString(Group));
        strcat(out," ");
        strcat(out,IntToString(Lector));
        strcat(out," ");
        strcat(out,IntToString(Number));
        strcat(out," ");
        strcat(out,IntToString(Room));
        strcat(out," ");
        strcat(out,IntToString(Subject));
       
        out[size + 1 + SPACES] = 0;
        return out;
}
//----------------------------------------------
// main
#include <iostream>
#include "atoms.h"
#include <vector>
#include <windows.h>
using namespace std;

void main(){
        // SLector
        // SLecture
        // SRoom
        // SSubject
#define TEST SLecture

        TEST x[2];
        x[0].Set(1,1,1,1,1,1);
        x[1].Set(x[0].DataToString());

        vector <TEST> vec;
        vec.push_back(x[0]);
        vec.push_back(x[1]);

        char*d =0;
        for (int i =0;i<10000; i++){
                d = vec[0].DataToString();  // здесь очень сильная утечка памяти
                d=0;
        }
        ::CharToOem(d,d);
        cout<<d<<endl;
}

---

Вложения

ИАСК сортировка.rar (45.1 Кб)

Вложения

Программа.rar (386.4 Кб)

---

uses crt;
var xn,xk,h,x,t,e,s:real;
    i:integer;
begin
clrscr;
repeat
write('Введите начало интервала |x|<1 xn=');
readln(xn);
until abs(xn)<1;
repeat
write('Введите конец интервала x>',xn:0:1,' x<1 xk=');
readln(xk);
until (xk>xn)and(xn<1);
repeat
write('Введите шаг табуляции h >0 и <',xk-xn:0:1,' h=');
readln(h);
until (h>0)and(h<xk-xn);
repeat
write('Введите точность (0;1) e=');readln(e);{точность типа 0,0001}
until (e>0)and(e<1);
writeln('Табулирование функции y=Arth(x) для |x|<1');
writeln('на интервале [',xn:0:1,';',xk:0:1,'] с шагом ',h:0:1);
writeln('-------------------------------');
writeln('|  x  |    S    |    Ln  | N |');
writeln('-------------------------------');
x:=xn;
while x<=xk+h/2 do
 begin
  s:=x;
  t:=x;
  i:=0;{нулевое значение}
  while abs(t)>e do
  begin
    i:=i+1;
    t:=t*x*x;
    s:=s+t/(2*i+1);
  end;
  writeln('|',x:4:1,' |',s:8:4,' |',0.5*ln((1+x)/(1-x)):8:4,' |',i+1:3,'|');
  x:=x+h;
 end;
writeln('---------------------------------');
readln
end.

---

Изображения

	№1.jpg (63.6 Кб)
	2(моя задача).jpg (11.3 Кб)

Вложения

1.txt (1.0 Кб)

---

Uses CRT;
Var a,b: real;
begin
clrscr;
writeln('vvedite coordinati tichki a');Read(a,b);
if (a>1/a) and ((sqr(a)+sqr(b))<4)
then write ('Prinadlegit')
else write ('Ne Prinadlegit');
Readln;
readln;
end.

---