Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

10.01.2008, 11:37
|
|
Познавший АНТИЧАТ
Регистрация: 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 при вызове подпрограммы из тела главной программы не нужно совершенно.
ЗЫ. На будущее оформляйте плиз код в тэги [коде][/коде], а не в [квоте][/квоте], читать код сложно
|
|
|

10.01.2008, 11:49
|
|
Познавший АНТИЧАТ
Регистрация: 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.
|
|
|

13.01.2008, 16:36
|
|
Новичок
Регистрация: 13.01.2008
Сообщений: 2
Провел на форуме: 748
Репутация:
1
|
|
Вообщем нада на завтра ответить на 1 из вопросов, облазил гугл, яндэкс, всё безтолку. Помогите пжлст=)
Вот собственно и сами вопросы:
1. Ассемблер МП18086 фирмы Intel. Арифметические команды. Команды инкрементирования и декрементирования операндов.
2. Минимизация логических функций с использованием координатных диаграмм Вейча. Свойства и шаги минимизации. Создание выражения и схемы для базиса <Да-Нет>.
Заранее огромное-огромное спасибо!
|
|
|

14.01.2008, 00:07
|
|
Новичок
Регистрация: 02.11.2007
Сообщений: 6
Провел на форуме: 42953
Репутация:
10
|
|
Сообщение от Life-inventor
Народ, помогите пожалуйста.
Задача Ферма. Найти квадрат, который в сумме со всеми его собственными делителями дает куб.
С рекурсивным алгоритмом . На С++.
Заранее огромное спасибо.
Люди, помогите плиз, ооочень надо....
|
|
|

14.01.2008, 00:37
|
|
Постоянный
Регистрация: 03.02.2007
Сообщений: 520
Провел на форуме: 1777536
Репутация:
932
|
|
Код:
#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мин.
|
|
|

15.01.2008, 21:12
|
|
Новичок
Регистрация: 10.12.2007
Сообщений: 12
Провел на форуме: 304510
Репутация:
16
|
|
Вот буду благодарен, уже с этой последний лабой замучался, а завтра уже сдавать
C++
1. Вычислите сумму элементов с нечетными номерами.
2. Преобразуйте массив так, чтобы элементы массива поменялись местами (первый — с последним, второй — с предпоследним и т.д.).
3. Вычислите сумму элементов, находящихся между первым и последним отрицательными элементами.
4. Из данного массива и другого массива того же типа, но другой размерности сформируйте общий массив и вычислите сумму положительных элементов, стоящих на нечетных местах.
|
|
|

15.01.2008, 22:15
|
|
Постоянный
Регистрация: 03.02.2007
Сообщений: 520
Провел на форуме: 1777536
Репутация:
932
|
|
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..
|
|
|

15.01.2008, 22:53
|
|
Постоянный
Регистрация: 12.04.2007
Сообщений: 413
Провел на форуме: 3578578
Репутация:
275
|
|
Ky3bMu4
в циклах везде используешь <= - наверное нужно просто <.
К тому же massv[x]=massv[size-x]; не меняет местами элементы.
Последний раз редактировалось Forcer; 15.01.2008 в 23:28..
|
|
|

15.01.2008, 23:07
|
|
Участник форума
Регистрация: 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];
}
|
|
|

16.01.2008, 00:15
|
|
Постоянный
Регистрация: 12.04.2007
Сообщений: 413
Провел на форуме: 3578578
Репутация:
275
|
|
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..
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|