ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #171  
Старый 10.01.2008, 11:37
Аватар для krypt3r
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию

А к чему создавать тип TPoint, когда он в делфи уже есть? Только, вроде бы, там x и y типа integer, если память не изменяет. Лучше объявите тип TMyPoint.
В процедуру Vvod передавайте не var A: TPoint, а лучше var A: array of TMyPoint.
Что означает код
Цитата:
result:=(tpoint1.y--tpoint2.y)/(tpoint1.x--tpoint2.x);
?
Что за операция -- ? И вообще для чего у вас функция Oprkoef, если она нигде не вызывается?
Цитата:
Begin
procedure Vvod(A,n);
readln;
end.
хе, ключевое слово procedure при вызове подпрограммы из тела главной программы не нужно совершенно.
ЗЫ. На будущее оформляйте плиз код в тэги [коде][/коде], а не в [квоте][/квоте], читать код сложно
 
Ответить с цитированием

  #172  
Старый 10.01.2008, 11:49
Аватар для krypt3r
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию

Часть кода может быть таким:
Код:
program Project2;
{$APPTYPE CONSOLE}
type
  TMyPoint = record
    x, y : real;
  end;
  TLine = record
    k, b : real;
  end;
  TMas = array [1..20] of TMyPoint;
////vvod точек
procedure Vvod (var A : TMas; n : Integer);
var
  i : integer;
begin
  for i := 1 to n do begin
    Write ('koordinatu x: ');
    readln (A[i].x);
    Write ('koordinatu y: ');
    readln (A[i].y);
  end;
end;
........
var
  A : TMas;
  n, i, j : integer;
begin
  Write ('vvedire kolvo tochek: ');
  readln(n);
  Vvod (A,n);
  readln;
end.
 
Ответить с цитированием

  #173  
Старый 13.01.2008, 16:36
Аватар для DSSNB
DSSNB
Новичок
Регистрация: 13.01.2008
Сообщений: 2
Провел на форуме:
748

Репутация: 1
По умолчанию

Вообщем нада на завтра ответить на 1 из вопросов, облазил гугл, яндэкс, всё безтолку. Помогите пжлст=)

Вот собственно и сами вопросы:

1. Ассемблер МП18086 фирмы Intel. Арифметические команды. Команды инкрементирования и декрементирования операндов.

2. Минимизация логических функций с использованием координатных диаграмм Вейча. Свойства и шаги минимизации. Создание выражения и схемы для базиса <Да-Нет>.



Заранее огромное-огромное спасибо!
 
Ответить с цитированием

  #174  
Старый 14.01.2008, 00:07
Аватар для Life-inventor
Life-inventor
Новичок
Регистрация: 02.11.2007
Сообщений: 6
Провел на форуме:
42953

Репутация: 10
По умолчанию

Цитата:
Сообщение от Life-inventor  
Народ, помогите пожалуйста.

Задача Ферма. Найти квадрат, который в сумме со всеми его собственными делителями дает куб.

С рекурсивным алгоритмом . На С++.

Заранее огромное спасибо.
Люди, помогите плиз, ооочень надо....
 
Ответить с цитированием

  #175  
Старый 14.01.2008, 00:37
Аватар для Ky3bMu4
Ky3bMu4
Постоянный
Регистрация: 03.02.2007
Сообщений: 520
Провел на форуме:
1777536

Репутация: 932


Отправить сообщение для Ky3bMu4 с помощью ICQ
По умолчанию

Код:
#include <stdio.h>
int i;

int get(void){
int kv,kub,summ;
kv=i*i;
kub=i*i*i;
summ=kv;
for(int h=1;h<=(i*i);h++){
if(kv%h==0) summ+=h;
}
if(summ==kub) return 0;
else get();
return 0;
}

int main(void){
i=1;
get();
printf("%d",&i);
return 0;
}
На тебе! Написано за 5мин.
 
Ответить с цитированием

  #176  
Старый 15.01.2008, 21:12
Аватар для SHLAK
SHLAK
Новичок
Регистрация: 10.12.2007
Сообщений: 12
Провел на форуме:
304510

Репутация: 16
По умолчанию

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

C++

1. Вычислите сумму элементов с нечетными номерами.
2. Преобразуйте массив так, чтобы элементы массива поменялись местами (первый — с последним, второй — с предпоследним и т.д.).
3. Вычислите сумму элементов, находящихся между первым и последним отрицательными элементами.
4. Из данного массива и другого массива того же типа, но другой размерности сформируйте общий массив и вычислите сумму положительных элементов, стоящих на нечетных местах.
 
Ответить с цитированием

  #177  
Старый 15.01.2008, 22:15
Аватар для Ky3bMu4
Ky3bMu4
Постоянный
Регистрация: 03.02.2007
Сообщений: 520
Провел на форуме:
1777536

Репутация: 932


Отправить сообщение для Ky3bMu4 с помощью ICQ
По умолчанию

Цитата:
1. Вычислите сумму элементов с нечетными номерами.
Код:
int summ=0,massv[size];//чё там у тя
for(int x=0;x<=size;x++){
if(x%2==1) summ+=massv[x];
}
Цитата:
2. Преобразуйте массив так, чтобы элементы массива поменялись местами (первый — с последним, второй — с предпоследним и т.д.).
Код:
int massv[size],nsize;
bool f=size%2;
if(!f) nsize=(size-1)/2;
else nsize=size/2;
for(int x=0;x<=nsize;x++){
massv[x]=massv[size-x];
}

Последний раз редактировалось Ky3bMu4; 15.01.2008 в 22:45..
 
Ответить с цитированием

  #178  
Старый 15.01.2008, 22:53
Аватар для Forcer
Forcer
Постоянный
Регистрация: 12.04.2007
Сообщений: 413
Провел на форуме:
3578578

Репутация: 275
Отправить сообщение для Forcer с помощью ICQ
По умолчанию

Ky3bMu4
в циклах везде используешь <= - наверное нужно просто <.
К тому же massv[x]=massv[size-x]; не меняет местами элементы.

Последний раз редактировалось Forcer; 15.01.2008 в 23:28..
 
Ответить с цитированием

  #179  
Старый 15.01.2008, 23:07
Аватар для reversys
reversys
Участник форума
Регистрация: 22.11.2007
Сообщений: 159
Провел на форуме:
732568

Репутация: 156
По умолчанию

2 Ky3bMu4
Forcer прав, поправь там.

2 SHLAK

Цитата:
3. Вычислите сумму элементов, находящихся между первым и последним отрицательными элементами.
Код:
        int first=-1,last=-1,mass[30],sum=0;
	for(int i=0;i<30;i++)
	{
		if(mass[i]<0)
		{
			if(first==-1)
			{
				first=i;
			}
			last=i;
		}
	}
	for(i=first+1;i<last;i++)
	{
		sum+=mass[i];
	}
 
Ответить с цитированием

  #180  
Старый 16.01.2008, 00:15
Аватар для Forcer
Forcer
Постоянный
Регистрация: 12.04.2007
Сообщений: 413
Провел на форуме:
3578578

Репутация: 275
Отправить сообщение для Forcer с помощью ICQ
По умолчанию

Цитата:
4. Из данного массива и другого массива того же типа, но другой размерности сформируйте общий массив и вычислите сумму положительных элементов, стоящих на нечетных местах.
Код:
	const int size1 = 10, size2 = 5;
	int mas1[size1] = {1,2,3,-4,5,6,7,8,9,-10},
		mas2[size2] = {11,12,13,-14,15},
		newsize = size1 + size2,	
		sum = 0;

	int* mas3 = new int[ newsize ];

	for( int i = 0; i < size1; ++i ) {
		mas3[i] = mas1[i];
		if( i % 2 && mas3[i] > 0 )
			sum += mas3[i];
	}

	for( int i = 0; i < size2; ++i ) {
		mas3[size1+i] = mas2[i];
		if( (size1+i) % 2 && mas3[size1+i] > 0 )
			sum += mas3[size1+i];
	}

	for(int i=0; i < newsize; ++i)
		cout << mas3[i] << ' ';

	cout << "\nSum = " << sum << endl;

	delete [] mas3;

Последний раз редактировалось Forcer; 16.01.2008 в 00:18..
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем! nigger Сотовый фрикинг 5 11.04.2009 11:15
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ