ANTICHAT — форум по информационной безопасности, OSINT и технологиям

1.Задана матриця елементіов размерностью nхn. Получить обратную матрицу.

Пусть дан текст. Определите содержит ли он символы отличающиеся от букв и пробелов.

народ обьясните плз почему когда ввожу переменную text то обычным нажатием ентера это не заканчиваеться а надо ввести какой нить еше символ....

и второй вопрос как сделать так что бы в переменной текст можно было ввести несколько слов и вывести их на екран все????

Нужна помощь.
C++ Builder 6

Задание

Создать алгоритм и написать программу в C++ Builder 6
Которая реализует построение графиков функцый
. . .
Значение x меняется от 0 до 720 град.
Построене графиков реализавать с контекстным меню, которое реализует с использованием компонента PopupMenu.

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Unit2kurs.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
A=StrToInt(Form1->Edit1->Text);
asd();
Form1->SetFocus();
}

_fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
set=1;
cx=Width*3/4;
cy=Height/4;
dec_cx=0; //Декартовая система (x)
dec_cy=0; //Декартовая система (y)
eo=20; //Еденичный отрезок
un=0; //Угол наклона
A=1;
}
int eo=20;// Задаем еденичному отрезку значение

float x_t(float t,float A) //задание графика функции по оси x
{
return A*(cos(t)+log(tan(t/2)));
}
float y_t(float t,float A) //задание графика функции по оси y
{
return A*sin(t);
}

int TForm1::dec_x_to_form_x(float x,float y)
{
float dx=x-dec_cx;
float dy=y-dec_cy;
float ro=sqrt(dx*dx+dy*dy);
float ug=atan2(dy,dx);
ug+= un*M_PI/180;
dx=ro*cos(ug);
dy=ro*sin(ug);
x=dec_cx+dx;
y=dec_cy+dy;
int form_x=cx+eo*(x-dec_cx);
return form_x;
}
int TForm1::dec_y_to_form_y(float y,float x)
{
float dx=x-dec_cx;
float dy=y-dec_cy;
float ro=sqrt(dx*dx+dy*dy);
float ug=atan2(dy,dx);
ug+= un*M_PI/180;
dx=ro*cos(ug);
dy=ro*sin(ug);
x=dec_cx+dx;
y=dec_cy+dy;
int form_y=cy-eo*(y-dec_cy);
return form_y;
}

void TForm1::asd()
{
Repaint(); //Перерисовать

Canvas->Pen->Color=clBlack; //Изменить цвет графика
Canvas->Pen->Width=2; //Изменить толщину линии

Canvas->MoveTo(Width/2,Height/4); //рисуем ось x
Canvas->LineTo(Width-10,Height/4);

Canvas->MoveTo(Width-10,Height/4); // рисуем стрелочки оси x
Canvas->LineTo(Width-15,Height/4-5);
Canvas->MoveTo(Width-10,Height/4);
Canvas->LineTo(Width-15,Height/4+5);

Canvas->MoveTo(Width*3/4,5); //рисуем ось y
Canvas->LineTo(Width*3/4,Height/2);

Canvas->MoveTo(Width*3/4,5); // рисуем стрелочки оси y
Canvas->LineTo(Width*3/4+5,10);
Canvas->MoveTo(Width*3/4,5);
Canvas->LineTo(Width*3/4-5,10);

if ((set%2)==0)
{
/* рисуем сетку*/
Canvas->Pen->Color=clBlue; //Изменить цвет графика
Canvas->Pen->Width=0.5; //Изменить толщину линии

for (float t=Width*3/4;t<=1024;t+=20) //сетка вертикальные линии
{
Canvas->MoveTo(t+20,0);
Canvas->LineTo(t+20,Height/2);
}
for (float t=Width*3/4;t>=532;t-=20)
{
Canvas->MoveTo(t-20,0);
Canvas->LineTo(t-20,Height/2);
}

for (float t=Height/4;t<=720/2;t+=20) //сетка горизонталные линии
{
Canvas->MoveTo(Width/2-10,t+20);
Canvas->LineTo(Width,t+20);
}
for (float t=Height/4;t>=0;t-=20)
{
Canvas->MoveTo(Width/2-10,t-20);
Canvas->LineTo(Width,t-20);
}
}
else
set=1;

/* рисуем график*/
Canvas->Pen->Color=clYellow; //Изменить цвет графика
Canvas->Pen->Width=4; //Изменить толщину линии

for (float t=0.01;t<=3.14;t+=0.01)
{
float x=x_t(t,A);
float y=y_t(t,A);
int fx=dec_x_to_form_x(x,y);
int fy=dec_y_to_form_y(y,x);
if (t<0.011)
Canvas->MoveTo(fx,fy);
else
Canvas->LineTo(fx,fy);
}
}
void __fastcall TForm1::Button1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
switch (Key){

case 107: eo*=1.1; //Увеличение на 10%.
break;

case 109: eo*=0.9; //Уменьшение на 10%.
break;

case 'G' : set+=1; //Прорисовка сетки.
break;

case 'A' : dec_cy-=15.0/eo; //Сдвиг вверх на 15 пикселей.
break;

case 'Z' : dec_cy+=15.0/eo; //Сдвиг вниз на 15 пикселей.
break;

case 'O' : dec_cx+=15.0/eo; //Сдвиг влево на 15 пикселей.
break;

case 'P' : dec_cx-=15.0/eo; //Сдвиг вправо на 15 пикселей.
break;

народ, помогите пожалуйста, нужно до пятницы. паскаль.

var
x,y,n,r: integer;
c: char;
flug: boolean;
function check(x,y:integer):byte;
begin
IF ((sqr(x+3)+sqr(y)) > 144) then
begin
check:=1;
exit;
end
else
begin
IF ((sqr(x)+sqr(y+2)) > 144) then
begin
check:=2;
exit;
end
else
begin
IF ((sqr(x)+sqr(y+4)) > 144) then
begin
check:=3;
exit;
end
else
begin
check:=0;
end;

end;
end;
end;
begin
x:=3;
y:=2;
flug:=false;
Writeln('Начальные точки Х=',x,' Y=',y );
while (flug=false) do
begin
r:=check(x,y);
If r<>0 then
begin
Case r of
1:
begin
x:=x+3;
Writeln('Ход ПК X=',x,' Y=',y);
Writeln('ПК ВЫИГРАЛ!');
end;
2:
begin
y:=y+2;
Writeln('Ход ПК X=',x,' Y=',y);
Writeln('ПК ВЫИГРАЛ!');
end;
3:
begin
y:=y+4;
Writeln('Ход ПК X=',x,' Y=',y);
Writeln('ПК ВЫИГРАЛ!');
end;
end;
flug:=true;
end
else
{--------------------------------Начало--------------------------------------}
if (sqr(x+3)+sqr(y)) > (sqr(x)+sqr(y+2)) then
begin
if check(x+3,y)=0 then
begin
y:=y+2;
Writeln('Ход ПК X=',x,' Y=',y);

end
else
begin
If check(x,y+2)=0 then
begin
y:=y+4;
Writeln('Ход ПК X=',x,' Y=',y);

end
else
begin
IF check(x,y+4)=0 then
begin
x:=x+3;
Writeln('Ход ПК X=',x,' Y=',y);

end
else
begin
Writeln('ПК ПРОИГРАЛ!');
flug:=true;
end;
end;
end;
end
else
begin
if check(x+3,y)=0 then
begin
x:=x+3;
Writeln('Ход ПК X=',x,' Y=',y);

end
else
begin
If check(x,y+2)=0 then
begin
y:=y+2;
Writeln('Ход ПК X=',x,' Y=',y);

end
else
begin
IF check(x,y+4)=0 then
begin
y:=y+4;
Writeln('Ход ПК X=',x,' Y=',y);

end
else
begin
Writeln('ПК ПРОИГРАЛ!');
flug:=true;
end;
end;
end;
end;
{-----------------------------Конец------------------------------------------}
if flug<>true then
begin
repeat
Write('Ход ( 1=(x+3,y) 2=(x,y+2) 3=(x,y+4) ) ');
Readln(c);
Until ((c='1') or (c='2') or (c='3')) ;
case c of
'1':
begin;
x:=x+3;
Writeln('Ход игрока X=',x,' Y=',y);
end;
'2':
begin
y:=y+2;
Writeln('Ход игрока X=',x,' Y=',y);
end;
'3':
begin
y:=y+4;
Writeln('Ход игрока X=',x,' Y=',y);
end;
end;
end;
end;
Write('Для выхода надмите ENTER');
Readln;
end.