Студентам с лабораторными сюда (архивная - 2015)

eLWAux · 15 Jun 2009

Code:

var s:string;
    i:integer;
begin
  // a =97
  // z = 122
  // 0 = 48
  // 9 = 57
  s:= 't@st';
  for i:=1 to length(s) do
      if (ord(s[i])>97)and(ord(s[i])<122)and
         (ord(s[i])>48)and(ord(s[i])<57)then
         writeln('!!!!!!!!!!!!!!!',ord(s[i])) else
         writeln(s[i],' = ',ord(s[i]));
  readln;
end.

MadAbility · 16 Jun 2009

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

Задание

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

Roston · 17 Jun 2009

[C] давно забытая графика
Code:
#include<stdio.h>
#include<dos.h>
#include<conio.h>
#include<stdlib.h>
#include<graphics.h>
#include<string.h>
void myprint (int X, int Y,int shadow, int color, int size, char *text);
int main()
{
int c,color,X,Y,shadow,style,size;
char *text;
char a;
int gdriver=DETECT, gmode, errorcode;
initgraph(&gdriver,&gmode, "");
errorcode=graphresult();
if(errorcode!=grOk)
{
printf("Graphics error: %s\n", grapherrormsg(errorcode));
getch();
return (0);
}
printf("Hi, enter coordinates(X,Y) where will be our text\n");
scanf("%d,%d",&X,&Y);
printf("Do you want shadow?(y/n)\n");
scanf("\n%c",&a);
if (a=='y')
c=1;
else
{
if (a=='n')
c=0;
else
{
printf("Error, as default shadow won't use\n");
c=0;
}
}
printf("Enter size(0-3)\n");
scanf("%d",&size);

printf("\nAt last enter your text\n");
scanf("%s\n",text);
color=4;
cleardevice();
myprint(X,Y,c,color,size,text);
getch();
closegraph();
return 0;
}
void myprint(int X, int Y,int shadow, int color, int size, char *text)
{
settextstyle(0,0,size);
setcolor(7);
outtextxy(X+shadow,Y-shadow,text);
setcolor(color);
outtextxy(X,Y,text);
}
народ обьясните плз почему когда ввожу переменную text то обычным нажатием ентера это не заканчиваеться а надо ввести какой нить еше символ....
и второй вопрос как сделать так что бы в переменной текст можно было ввести несколько слов и вывести их на екран все????

спасибо наперед

eLWAux · 17 Jun 2009

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

юзай
Code:
scanf("%s",text);
и второй вопрос как сделать так что бы в переменной текст можно было ввести несколько слов и вывести их на екран все????
Click to expand...

while для myprint

KaZ@NoVa · 17 Jun 2009

MadAbility said:

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

Задание

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

#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;
Click to expand...

////

KaZ@NoVa · 17 Jun 2009

root_sashok said:

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

вот исходник, компьютер вроде всегда выигрывает....

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.
Click to expand...

DDN · 17 Jun 2009

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

EniOk · 20 Jun 2009

Здравствуйте. Помогите пожалуйста. Долгосрочное задание на байлдере. Я просто тупой раз не смог это сотворить сам:
Code:
На плоскости задано множество окружностей. 
Две окружности A и B назовём связанными, если они пересекаются либо существует
 третья окружность C заданного множества, связанная с A и B. 
Выбрать максимальное подмножество попарно не связанных друг с другом окружностей.
Могу предоставить код того что я написал но оно в корне не верно, поэтому наверное легче будет Вам самим составить это адское детище... Очень надо... Помогите плз!

Тилль · 20 Jun 2009

Задача по с++

Напишите пожалуйста задачу на С++.
Условие: Открыть текстовый файл, считать с него информацию, отсортировать по алфавиту, места пробелов заполнить амперсандами(&). Сохранить файл на диске.

ss88 · 21 Jun 2009

Люди, помогите, плиз, может у кого завалялось, надо на ВинАПИ две функции
1. чтение данных из определленого ключа реестра
2. запись

Знаю, что банальщина, не хватает времени

NightJack · 21 Jun 2009

ss88 said:

Люди, помогите, плиз, может у кого завалялось, надо на ВинАПИ две функции
1. чтение данных из определленого ключа реестра
2. запись

Знаю, что банальщина, не хватает времени
Click to expand...

http://www.compdoc.ru/prog/pascal/work_with_reg_in_delphi/
http://www.delphisources.ru/pages/faq/base/kol_lesson8.html

Посмотри здесь, может подойдет...

--StraNger-- · 21 Jun 2009

NightJack said:

http://www.compdoc.ru/prog/pascal/work_with_reg_in_delphi/
Click to expand...

сказали ведь на winapi =/

Fata1ex · 21 Jun 2009

Функции winapi везде одинаковы ~

http://msdn.microsoft.com/ru-ru/library/sykcb9xf.aspx
http://social.msdn.microsoft.com/Search/ru-RU/?query=registr&ac=8
http://social.msdn.microsoft.com/Search/ru-RU/?query=registry&ac=3

--StraNger-- · 21 Jun 2009

Fata1ex said:

Функции winapi везде одинаковы ~
Click to expand...

Совершенно верно. Но приведенная выше ссылка вела на материал по классу TRegisty в Delphi. Это как известно не является winapi

BrainDeaD · 21 Jun 2009

RegCreateKeyEx
там скроль вниз

http://support.microsoft.com/kb/135398

EniOk · 21 Jun 2009

Итак... Все это время я соображал... Задача свелась к тому чтобы выбрать собственно само подмножество окружностей:
Язык я бы назвал так: С++ без классов, потому что на си надо, но разрешено пользоваться немного средствами с++

Вот мой код:
main.cpp

Code:

/************************Preprocessor's operations***********************/
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <conio.h>
#include "d:\ddz\proc.cpp"
/*****************************Global variables***************************/
FILE *in,*out;                   //Servise variables
char inname[80], outname[80];    //Names of input & output files
int count;                       //Count of circles
int i,j,w;				 //
/******************************Main function*****************************/
int main()
{

	clrscr();
	//Ask the user about name of the input file
	printf("Enter the name of input file, please: ");
	scanf("%s", &inname);
	///////////////////////////////////////////

	//Opening input file
	if ((in = FOpen(inname,"r"))==NULL) return 1;
	////////////////////

	//Reading nomber of circles
	fscanf(in, "%d", &count);
	if (count <1)
	{
		printf("Incorrect format of input file\n");
		fclose(in);
		return 1;
	}
	///////////////////////////
	//Declaring array of CIRCLE
	CIRCLE *circle = new  CIRCLE[count];
	////////////////////////

	//Reading circles information
	printf("Information from input file:\n Count of circles: %i\n",count);
	printf("                                 \n");
	printf("  #     X         Y        R     \n");
	for (i=0;i<count;i++)
	{
		fscanf(in,"%f %f %f", &circle[i].x, &circle[i].y, &circle[i].r);
		printf(" %2i   %5.4f   %5.4f   %5.4f \n",i, circle[i].x,circle[i].y,circle[i].r);
		circle[i].crossflag=0;
	}
	printf("                                 ");
	/////////////////////////////
	//Now test)
	//int **s = new int*[count];
int **s = new int*[count];//тут создали только массив указателей
for(i=0;i<count;++i) s[i]=new int[count];//а вот собственно выделение памяти для элементов массива
for(i=0;i<count;++i) for(j=0;j<count;++j) s[i][j]=0;//обнуление
	for (i=0;i<count;i++) for (j=0;j<count;j++) s[i][j]=0;

	MatrixCreator(s, count, circle);
	printf("\n");
	printf("Matrix of atteinability:\n");
	for (i=0;i<count;i++) {for (j=0;j<count;j++) if (i!=j)printf(" %i",s[i][j]); else printf(" °"); printf("\n");};
	///////////
	getch();
	int *mas=new int[count];

  	Vibor(s, count, mas);
	printf("\n");
	getch();
	for (i=0;i<count;i++) if (mas[i]) printf("%i ", i);
	getch();
	///////////
for(i=0;i<count;++i) delete [] s[i];
delete [] s;
	return 0;
}

proc.cpp

Code:

//Declaring new data type
struct CIRCLE {
    float x, y, r;
    char crossflag;
};
int j1, k1,l,i2;
/////////////////////////
//Folloving we'll have dinamic array of one
/*******************************Opening file****************************/
FILE *FOpen(char *path, char *reg)
{
	FILE *name;
	if ((name = fopen(path,reg))!=NULL) return name;
	printf("Unable to open file '%s'",path);
	return NULL;
}
/*Tests crossing of 2 circles*/
int test(CIRCLE c1,CIRCLE c2)
{
	//printf("%i %i %i %i %i %i", c1.x, c1.y, c1.r, c2.x, c2.y, c2.r);
	if ( sqrt( (fabs(c1.x-c2.x)*fabs(c1.x-c2.x))+(fabs(c1.y-c2.y)*fabs(c1.y-c2.y)))  <(c1.r+c2.r)) return 1;
	return 0;
}
/////
int test2(CIRCLE c1, CIRCLE c2)
{
	if (((sqrt( ((c1.x-c2.x)*(c1.x-c2.x))+((c1.y-c2.y)*(c1.y-c2.y)))+c1.r)<c2.r)||( (sqrt( ((c1.x-c2.x)*(c1.x-c2.x))+((c1.y-c2.y)*(c1.y-c2.y)))+c2.r)<c1.r))
	return 0;
	return 1;
}
int MatrixCreator(int **s, int n, CIRCLE *circle)
{
	int i2,j2,k2;
	for (i2=0;i2<n;i2++)
		for (j2=0; j2<n; j2++)
			if(i2!=j2)
			 if (test (circle[i2],circle[j2]))
			  if (test2(circle[i2],circle[j2])) s[i2][j2]=5    ;

//	for (i2=0;i2<n;i2++)
//		for (j2=0;j2<n;j2++)
//			for (k2=0;k2<n;k2++)
//				if (i2!=j2)
//				 if(s[k2][i2] && s [j2][k2])
//				  s[j2][i2]=4;
//        for (i2=1;i2<n;i2++) for (j2=1; j2<n; j2++) s[n-j2][i2]= s[i2][n-j2];
	for (k2=0;k2<n;k2++)
		for (i2=0;i2<n;i2++)
			for (j2=0;j2<n;j2++)
				s[i2][j2] = s[i2][j2] || (s[i2][k2] && s[k2][j2]);
	return 0;
}
/*int Vibor(int **s, int i, int *mas, int*w, int n)
 {
	for (j1=0;j1<n;j1++)
		///for(k1=0;k1<n;k1++)
		///	if(!s[j1][k1])
		///		{
		///			mas[*w++]=k1;
		///			Vibor(s,k1,mas,w,n);
		///		}
		k1=1;
		for(l=0;l<*w;l++)
		if (j1==mas[l]) k1=0;
		if ((!k1)||(s[i][j1]==0))
		{       *w++;
			mas[*w]=j1;
			Vibor(s,j1,mas,w,n);

		}
 }
  */
  void  Vibor(int **s, int n, int *mas)
  {//     int l=-1;
	int *flags = new int[n];
	for (i2=0;i2<n;i2++) flags[i2] = mas[i2] = 0;
	l2:
	for (i2=0;i2<n;i2++)
		if (!flags[i2])
			{
				flags[i2]= mas[i2]=1;
				for (j1=0;j1<n;j1++)
					if (s[i2][j1]) flags[j1]=1;

			}
	 for (i2=0;i2<n; i2++)
	 if (!flags[i2]) goto l2;

  }

Только функция Vibor не верна(

Derec · 21 Jun 2009

Assambler

Всем привет! Подскажите пожалуйста, есть ли у кого-нибудь пример работы с файлами на Ассемблере. А именно интересует создание, чтение и запись. Чтение я нашел, а вот использую функции создания и записи и выходят ошибки. Было бы здорово, если у кого то окажется уже готовая программка. Буду оочень Вам признателен. Спасибо!

dos999 · 22 Jun 2009

Виндовые функции чем не устраивают
CreateFile
ReadFile
WriteFile
CloseFile

oleandr · 22 Jun 2009

Есть ли добрые ппрогеры (VB сишарп) посидеть завтра с 9 до 10 часов утра в асе а решить если что задачку(простенькие в основном) , если нужно будет денег подкинуть на снятие морального подресеняя на пиво сделаем

Maxxxtri23 · 23 Jun 2009

как расположить элементы одномерного массива в обратном порядке (Delphi). Выручайте, завтра экзамен.

Студентам с лабораторными сюда (архивная - 2015)

eLWAux Elder - Старейшина

MadAbility New Member

Roston Elder - Старейшина

eLWAux Elder - Старейшина

KaZ@NoVa Elder - Старейшина

KaZ@NoVa Elder - Старейшина

DDN New Member

EniOk New Member

Тилль Elder - Старейшина

ss88 Banned

NightJack Elder - Старейшина

--StraNger-- Member

Fata1ex Elder - Старейшина

--StraNger-- Member

BrainDeaD Elder - Старейшина

EniOk New Member

Derec Elder - Старейшина

dos999 Elder - Старейшина

oleandr New Member

Maxxxtri23 New Member

Useful Searches

Студентам с лабораторными сюда (архивная - 2015)

eLWAux Elder - Старейшина

MadAbility New Member

Roston Elder - Старейшина

eLWAux Elder - Старейшина

KaZ@NoVa Elder - Старейшина

KaZ@NoVa Elder - Старейшина

DDN New Member

EniOk New Member

Тилль Elder - Старейшина

ss88 Banned

NightJack Elder - Старейшина

--StraNger-- Member

Fata1ex Elder - Старейшина

--StraNger-- Member

BrainDeaD Elder - Старейшина

EniOk New Member

Derec Elder - Старейшина

dos999 Elder - Старейшина

oleandr New Member

Maxxxtri23 New Member