1
 В заданном массиве, состоящем из n вещественных элементов (размерность задается именованной константой), вычислить:
•   Сумму элементов массива с нечетными номерами;
•   Сумму элементов массива, расположенных между первым и последним отрицательными элементами.
Сжать массив, удалив из него все элементы, модуль которых не превышает 1.
Освободившиеся в конце массива элементы заполнить нулями.

2
Дана целочисленная прямоугольная матрица. Определить произведение элементов в тех строках, которые не содержат отрицательных элементов.

program fil;
uses crt;
var
i: integer;
a: string ;
c: char;
ft:text;
begin
clrscr;
assign (ft,'e:\t.txt');
reset(ft);
read(ft,a);
write(a);
close(ft);
writeln;
for i:= 1 to trunc(length(a)/2) do
begin
c:=a[i];
a[i]:=a[length(a)+1-i];
a[length(a)+1-i]:=c;
write(a[i]);
end;

readln;
end.

program fil;

uses crt;

var i: integer;
    a: string ;
    ft:text;

begin
  clrscr;
  assign (ft,'e:\t.txt');
  reset(ft);
  read(ft,a);
  write(a);
  close(ft);
  writeln;
  for i:=length(a) downto 1 do
    if a[i] <> ' ' then  //Чтоб пробелы не "удалялись", убери это условие
      write (a[i]);
  readln;
end.

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <math.h>
#include <graphics.h>
#include <iostream>



#define N 11
#define Nmax 1300




int i;
float U=50, Um=50, Un=0, U1=2, U2=100, U3=80, U4=85, t1=20, tk=50, tn=0;



void table(void);
void output(int, float, float, float);
void input_Uout(int, float, float);
void input_t(int, float);
void input_Uin(int, float, float);
void graphic(float,float,int);
void pogreshnost(float, float, float);
void SaveArrayToFile(float, char, int);
float raznost(int,float);



void input_t(int n, float *pmast)
{
  clrscr();
  int i;
  for(i=0;i<n;i++)
  {
  *(pmast+i)=tn+i*fabs(tk-tn)/(n-1);
  }
  return;
}




void input_Uin(int n, float *pmast, float *pmasUin)
{
      int i;
      for(i=0;i<n;i++)
      {
      if (*(pmast+i)<=t1)
      *(pmasUin+i)=U*(*(pmast+i))/(t1-tn)-U*tn/(t1-tn);
      else *(pmasUin+i)=-U*(*(pmast+i))/(tk-t1)+U*tk/(tk-t1);
      }
      return;
}


      /*void input_dU(int n, float *pmasdU)
      {
      int i;
      for(i=0;i<n;i++)
      {
      *(pmasdU+i)=Un+i*fabs(Um-Un)/(N-1);
      }
      return;
      } */



void input_Uout(int n, float *pmasUin, float *pmasUout)
{
   int i;
   for(i=0;i<n;i++)
   {
   if(*(pmasUin+i)<U1 && *(pmasUin+i)>=0)
   *(pmasUout+i)=U3/U1*(*(pmasUin+i));
   else if (U1<=*(pmasUin+i) && *(pmasUin+i)<=U2)
   (*(pmasUout+i))=(U4-U3)/(U2-U1)*(*(pmasUin+i))+(U3*U2-U1*U4)/(U2-U1);
   }
   return;
}




void graphic(float U[],float t[],int n)
{
   int Xmax =619 , Ymax = 430;
   int gd = DETECT, gm;
   initgraph(&gd,&gm,"");

   setbkcolor(WHITE);
   setcolor(BLACK);
   setlinestyle(SOLID_LINE,0,THICK_WIDTH);

   float Umax=U[0], Umin = U[0];
   for(int k=0;k<21;k++)
   {
   if(Umax<U[k]) Umax = U[k];
   if(Umin>U[k]) Umin = U[k];
   }

   float Ind=40, mY=(Ymax-Ind)/(Umax-Umin), mX=(Xmax-Ind)/21;

   setlinestyle(DASHED_LINE,0,NORM_WIDTH);
   setcolor(BLUE);


   line(Ind,Ind,Ind,Ymax);
   line(Ind,Ind,Xmax,Ind);
   line(Xmax,Ymax,Xmax,Ind);
   line(Ind,Ymax,Xmax,Ymax);

   for(k=1;k<21;k=k+1)
   {
   line(Ind+k*mX,Ind,Ind+k*mX,Ymax);
   }


   for(k=1;k<(Umax-Umin);k+=3)
   {
   line(Ind,Ind+k*mY,Xmax,Ind+k*mY);
   }

   float osY=Ind+Umax*mY, osX=Ind+(fabs(tn))*mX;

   setlinestyle(SOLID_LINE,0,THICK_WIDTH);
   setcolor(BLUE);
   line(Ind/2,osY,Xmax+20,osY);
   line(Xmax,osY+10,Xmax+20,osY);
   line(Xmax,osY-10,Xmax+20,osY);


   line(osX,Ind/2,osX,Ymax+20);
   line(osX,Ind/2,osX-10,Ind-3);
   line(osX,Ind/2,osX+10,Ind-3);

   setlinestyle(SOLID_LINE,0,THICK_WIDTH);
   setcolor(RED);

   moveto(Ind,Ind+(Umax-U[0])*mY);

   for(k=1;k<20;k++)
   {
       lineto(Ind+k*mX,Ind+(Umax-U[k])*mY);
       moveto(Ind+k*mX,Ind+(Umax-U[k])*mY);
   }



   setcolor(GREEN);
   char*  st;

   outtextxy(Ind+3,osY-10,"0");
   outtextxy(Ind+3+5*mX,osY-10,"12.5");
   outtextxy(Ind+3+10*mX,osY-10,"25");
   outtextxy(Ind+3+15*mX,osY-10,"37.5");
   outtextxy(Ind+19*mX,osY-10,"50");


   for(k=0;k<20;k++)
   {
   sprintf(st,"%.0f",Umax-k*(Umax-Umin)/20);
   outtextxy(osX+5,Ind+k*(Ymax-Ind)/20,st);
   }


   getch();

   closegraph();
        return;
}




float raznost(int n,float *pUout)
{
   float Umin, Umax, R;
   int i;

   Umin=*pUout;
   Umax=*pUout;
   i=0;
   while (i<n)
   {
   if(*(pUout+i)>Umax)
   Umax=*(pUout+i);
   if (*(pUout+i)<Umin)
   Umin=*(pUout+i);
   i++;
   }
   R=Umax-Umin;

   return R;
}




void output(int n, float *pmast, float *pmasUin, float *pmasUout)
{
   for(i=0;i<n;i++)
   {
   printf("       |    %2d    |     %6.3f   |      %6.3f     |      %6.3f     |\n",i, *(pmast+i), *(pmasUin+i), *(pmasUout+i));
   }
   return;
}





void table()
{
   printf("       |----------|--------------|-----------------|-----------------|\n");
   printf("       |     i    |  *(pmast+i)  |   *(pmasUin)    |  *(pmasUout+i)  |\n");
   printf("       |----------|--------------|-----------------|-----------------|\n");
   return;
}






void pogreshnost(float *pt, float *pUin, float *pUout)
{
  int n=20, k=0, E=0.018;
  float W=0, V=pow(10,11),p;

  while(n<Nmax)
  {

  input_t(n,pt);
  input_Uin(n, pt, pUin);
  input_Uout(n,pUin ,pUout);
  W=raznost(n,pUout);

  p=fabs(W-V);
  if (p>E)
  {
  n=2*n;
  V=W;
  k++;

  }
  else
  {
   printf("Trebuemaya tochnost ne dostignuta");
   break;
  }
  }
    printf("\n\n\n\n\tRaznost mezdu max i min znach vhodnogo signala = %f\n", W);
    printf("\tTochnost E = 0.018\n");
    printf("\tPogreshnost P=%f\n",p);
    printf("\tKol-vo udvoenii k=%d, dostignuto pri n=%d",k,n/2);

}



int menu()
{
    clrscr();
    printf("\n\n\n\n\n\n\t\t\t\tMENU:\n");
    printf("\t\t\t\t  1.Table\n");
    printf("\t\t\t\t  2.Graphics\n");
    printf("\t\t\t\t  3.3dr kod\n");
    printf("\t\t\t\t  4.Save array to file\n");
    printf("\t\t\t\t  ESC - exit\n");
    return getch();
}




void SaveArrayToFile(float *Array, char* fn, int n)
{
   FILE *f;

   f = fopen(fn,"w+");
   if (f==NULL)
   {
   printf("\nOshibka zapisi v fail ");
   printf(fn);
   exit(1);
   }

   for(int i =0; i<n; i++)
   {
   fprintf(f,"%f\n",*(Array+i));
   }
   fclose(f);
   return;
}




int main()
{

float t[Nmax], Uin[Nmax],  Uout[Nmax];
clrscr();
printf("\n\n\n\n\n");
FILE *f;
f = fopen("D:\\Vlad\\titul.txt","r");
if (f==NULL)
{
printf("\nOshibka otkritia faila titul.txt\n");
exit(1);
}
char ch;
while(!feof(f))
{
ch = getc(f);
printf("%c",ch);
}
fclose(f);

getch();


  int i = 0;
  while(i!=1)
  {
  switch(menu())
  {
      case 49:
         input_t(N,t);
         input_Uin(N, t, Uin);
         input_Uout(N, Uin, Uout);
         table();
         output(N,t,Uin,Uout);
         getch();
         break;

      case 50:
         input_t(20,t);
         input_Uin(20, t, Uin);
         input_Uout(20, Uin, Uout);

         graphic(Uout,t,20);
         graphic(Uin,t,20);

        break;
      case 51:
         pogreshnost(&t[0],&Uin[0],&Uout[0]);
         getch();
         break;
      case 52:
         input_t(N,t);
         input_Uin(N, t, Uin);
         input_Uout(N, Uin, Uout);
         SaveArrayToFile(t,"D:\\Vlad\\t.txt",N);
         SaveArrayToFile(Uin,"D:\\Vlad\\Uin.txt",N);
         SaveArrayToFile(Uout,"D:\\Vlad\\Uout.txt",N);

         printf("\n\n\n\n\n\n\n\nZapis' v faili proizvedena uspeshno!!!");
         getch();
       break;
      case 27: i=1;
  }
  }
  return 1;
}

#include<stdio.h>
#include<string.h>
#include<conio.h>
#include<alloc.h>
void main(void)
{
char **text;
char *s;
char key,ch;
int str=0;
int col=0;
int k,h,d=0,c=0,z=0,t=0;
clrscr();
printf("Wwedite text");
printf("\n Priznak konca - . \n");
do
   {
   fflush(stdin);
   key=(char)getche();
   if (key=='\r')
      {
      text[str][col]='\0';
      str++;
      col=0;
      printf("\n");
      }
   else
      {
      text[str][col]=(char)malloc(1);
      text[str][col]=key;
      col++;
      }
   }
while(key!='.');
text[str][col]='\0';
k=str;
h=col;
for(str=0;str<=k;str++)
      {
      for(col=0;col<=h;col++)
      {
      if(text[str][col]=='a')
         {
           if(text[str][col+1]=='a')
             {
            text[str][col+1]=' ';
            t++;
             }
         }
      }
      }
printf("\n poluch text \n");
for(str=0;str<=k;str++)
   {
   puts(text[str]);
   }
getch();
}

char **text;
...
text[str][col]=(char)malloc(1);
text[str][col]=key;

  char **mas; int i;
  const int N=100,M=200; /* N - кол. строк, M - макс длина каждой строки */
  mas = (char**) malloc( sizeof(char*) * N );
  for( i=0; i < N; i++ )
      mas[i] = (char*) malloc ( sizeof(char) * M );
     
  /* работаем ... */

  for( i=0; i < N; i++ )
      free( mas[i] );
  free(mas);

 #include "stdio.h"
#include "conio.h"
#include "string.h"

struct bd{
   char mar[15];
        char mod[15];
        char comlpekt[15];
   short int data;
        char eng[15];
   char adr[15];
   char adres[15];
   };

bd s[100];
int Count;

void zapis(){
        FILE* f;
        if((f=fopen("C:\\bd.db","w"))==NULL){
                printf("File coldn't create");
                getch();
                return;
                }
   fwrite(&s,sizeof(s),1,f);
        printf("File saved. Press any key");
        getch();
   fclose(f);
        }

void alfavit(){
   bd temp;
   for(int i=0; i<Count-1;i++)
      for(int j=i+1; j<Count;j++)
         if((strcmp(strupr(s[j].mar),strupr(s[i].mar))<0)&&(strcmp(s[i].mar,"")==0)){
            temp=s[j];
            s[j]=s[i];
            s[i]=temp;
         }
   return;
}

void print_head(){
printf("--------------------------------------------------------------------------------");
printf("| # | Marka  |  ModeL  | comlplekt | Data | Engine | AdRes     |");
printf("--------------------------------------------------------------------------------");
return;
}

void print(int i){
        printf("| %1d |",i+1);
        printf(" %8s |",s[i].mar);
        printf(" %6s |",s[i].mod);
        printf(" %9s |",s[i].comlpekt);
        printf(" %4d |",s[i].data);
        printf(" %9s |",s[i].eng);
        printf(" %21s |",s[i].adr);
        printf("-------------------------------------------------------------------------------\n");
return;
}

void print_all(){
clrscr();
print_head();
for(int i=0; i<Count;i++)
        print(i);
printf("\n");
return;
}

void dob(){

        Count++;
        clrscr();
        printf("\nNovaya zapis\n\n");
   printf("Vvedite Marky (no more 15 symbols):");
        scanf("%s",s[Count-1].mar);
        strupr(s[Count-1].mar);
        printf("Vvedite model (no more 15 symbols):");
        scanf("%s",s[Count-1].mod);
        strupr(s[Count-1].mod);
        printf("Vvedite comlpektacyy (no more 15 symbols):");
        scanf("%s",s[Count-1].comlpekt);
   strupr(s[Count-1].comlpekt);
        do {
   printf("Vvedite datu :");
   scanf("%d",&s[Count-1].data);
}while(s[Count-1].data<1);
        printf("Vvedite engine (no more 15 symbols):");
        scanf("%s",s[Count-1].eng);
        strupr(s[Count-1].eng);
        printf("Vvedite Adres (no more 15 symbols):");
        scanf("%s",s[Count-1].adr);
   strupr(s[Count-1].adr);

        alfavit();
        printf("New record is added\n");
        getch();
return;
}

void udal(){
   int num=0;
   clrscr();
   printf("\nUdalenie modely\n\n");
   print_all();
   while(num<1||num>Count){
      printf("Vvedite nomer ctpoku na ydalenye:");
      scanf("%d",&num);
   }
   print_head();
   print(num-1);
   printf("deucTbuTeJlHo ydaJIuTb? (Y\\N)\n");
   if((getch()=='y')||(getch()=='Y')){
      strcpy(s[num-1].mar,'\0');
             strcpy(s[num-1].mod,'\0');
      strcpy(s[num-1].comlpekt,'\0');
             strcpy(s[num-1].eng,'\0');
      strcpy(s[num-1].adr,'\0');
      s[num-1].data=0;
      alfavit();
      Count--;
      printf("YdaJIeHo!.\n Press any key");
                getch();
   }
   return;
}

void redact(){
   bd temp;
   int num=0,i;
   clrscr();
   printf("\nRedaktirovanie zapisi\n\n");
   print_all();
   while(num<1||num>Count){
      printf("Enter number record for edit:");
      scanf("%d",&num);
   }
   clrscr();
   printf("You chosen record:\n");
   print_head();
   print(num-1);
        printf("\nEDIT\n\n");
   printf("Vvedite marky (no more 15 symbols):");
        scanf("%s",temp.mar);
        strupr(temp.mar);
        printf("Vvedite model (no more 15 symbols):");
        scanf("%s",temp.mod);
        strupr(temp.mod);
        printf("Vvedite comlpektacyy (no more 15 symbols):");
        scanf("%s",temp.comlpekt);
   strupr(temp.comlpekt);
do {
      printf("Vvedite datu:");
      scanf("%d",&temp.data);
   } while(temp.data<1);
        printf("Vvedite engine (no more 15 symbols):");
        scanf("%s",temp.eng);
        strupr(temp.eng);
        printf("Vvedite Adres (no more 15 symbols):");
        scanf("%s",temp.adr);
   strupr(temp.adr);
   printf("To4Ho xoTuTe u3MeHuTb 3anucb? (Y\\N)\n");
   if((getch()=='y')||(getch()=='Y')){
      strcpy(s[num-1].mar,temp.mar);
                strcpy(s[num-1].mod,temp.mod);
                strcpy(s[num-1].comlpekt,temp.comlpekt);
                s[num-1].data=temp.data;
                strcpy(s[num-1].eng,temp.eng);
                strcpy(s[num-1].adr,temp.adr);
      alfavit();
      printf("Record is changed\n");
                getch();
      }
   return;
}

void print_inog(){int i;
   clrscr();
   printf("\t\t\tPokazat oco6eHHoCTb(be-T)\n");
   print_head();
   for(i=0;i<Count;i++)
        if(s[i].adr!="NN")
                        print(i);
   getch();
   return;
}

void find(){ char marka[15]; int i;
   clrscr();
   printf("\t\t\tFIND marka\n");
   printf("Vvedite marky (no more 15 symbols):");
   scanf("%s",marka);
   print_head();
   for(i=0;i<Count;i++)
                if(strcmp(strupr(s[i].mar),strupr(marka))==0)
                        print(i);
        getch();
   return;

}


int main()

{
        clrscr();
   FILE* f;   char c;
   Count=0;
   if((f=fopen("C:\\bd.db","rb"))==NULL){
      printf("The file does not exist\n");
      fclose(f);
                printf("You want continue? (Y\\N)\n");
                c=getch();
                if((c=='n')||(c=='N')) return 1;
   }
   else {
      fread(&s,sizeof(s),1,f);
      for(int i=0; strcmp(s[i].mar,"")!=0; i++) Count=i+1;
                alfavit();
   }
   fclose(f);
        while (1){
           printf("Menu:\n");
           printf("1. Add record\n");
           printf("2. Remove record\n");
           printf("3. Edit record\n");
           printf("4. Pokazat vse modely\n");
           printf("5. Pokkazat c twin t\n");
           printf("6. Poisk po marke\n");
           printf("7. Exit\n");
           printf("Press key: ");
           c=getch();
           switch (c){
              case '1': dob(); break;
              case '2': udal(); break;
              case '3': redact(); break;
         case '4': print_all(); getch(); break;
              case '5': print_inog(); break;
              case '6': find(); break;
              case '7': printf("\nYou really want to leave? (Y\\N)\n");
                                 c=getch();
                   if((c=='y')||(c=='Y')){
                                        zapis();
                                        return 1;}
           }
        }
return 0;
}