Форум АНТИЧАТ - Студентам с лабораторными сюда

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

		Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Студентам с лабораторными сюда

Страница 129 из 287

129

Опции темы

Поиск в этой теме

Опции просмотра

#1281

13.04.2009, 10:07

043nKRuT0y

Участник форума

Регистрация: 31.10.2007

Сообщений: 213

Провел на форуме:
394522

Репутация: 14

Народ подскажыте :
- как найти длинну сторон Н-угольника , зная только массив координат его вершын(X,Y) ?
- как найти угол при вершыне ?

Если можно формулами ))) Зарание спс !

#1282

15.04.2009, 13:33

snAKe33

Участник форума

Регистрация: 10.02.2009

Сообщений: 203

Провел на форуме:
3226894

Репутация: 379

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

Нужна помощь по паскалю.!
то сам не догоняю как сделать!
Вообщем есть текст программы но он не работает.!
Программа должна удалять из каждой тройки букв среднюю букву.!тип циклический.
проблема в том что я написал, что бы было чтение данных из файла..!а нужно что бы они вводились с клавиатуры, и конец строчки заканчивалась .(точкой)
т.е вводишь данные.
1 строчка йцукен
конец строчки .
начальное слово йцукен......преобразованное йукн
.
также я хз зачем создал еще Pysk, Pysk1, Ptr1

Uses Crt;
type
pSpisok = Slova;
Slova = Record
slv : string[10];
next : pSpisok
end;
var
Head1, Tail1, Head2, Tail2, Ptr1, Ptr2, Pysk1, Pysk2 : pSpisok;
St, Str : string[10];
F : text;
I, K, N : integer;
Name : string;
begin
ClrScr;
Writeln ('Fail dolgen sodergat slova, raspologennie postrochno');
Writeln ('Vvedite imya faila: ');
Readln (Name);
Assign (F, Name);
Reset (F);
Head1 := Nil;
Tail1 := Nil;
Head2 := Nil;
Tail2 := Nil;
ClrScr;
While not Eof(F) do
begin
Readln (F, St);
New (Ptr1);
Ptr1^.Slv :=St;
Ptr1^.Next := Nil;
If Tail1 <> Nil then
Tail1^.Next := Ptr1;
Tail1 := Ptr1;
If Head1 = Nil then
Head1 := Ptr1;
end;
Tail1^.Next := Head1;
Ptr1 := Head1;
Pysk1 := Head1;
repeat
Str := Ptr1^.Slv;
N := length(str) - 1 div 3;
If Str <> '' then K := 1;
for I := 1 to N do
begin
Delete (Str, K+1, 1);
K := K + 2;
end;
New (Ptr2);
Ptr2^.Slv := Str;
Ptr2^.Next := Nil;
If Tail2 <> Nil then
Tail2^.Next := Ptr2;
Tail2 := Ptr2;
If Head2 = Nil then
Head2 := Ptr2;
Pysk1 := Ptr1^.Next;
Ptr1 := Pysk1;
Until Pysk1 = Head1;
Tail2^.Next := Head2;
Pysk1 := Head1;
Pysk2 := Head2;
Ptr1 := Head1;
ptr2 := Head2;
repeat
Write (Ptr1^.Slv,' ');
Writeln (Ptr2^.Slv);
Pysk1 := Ptr1^.Next;
Pysk2 := Ptr2^.Next;
Ptr1 := Pysk1;
Ptr2 := Pysk2;
until Pysk2 = Head2;
repeat until KeyPressed;
End.

Последний раз редактировалось snAKe33; 15.04.2009 в 13:36..

#1283

15.04.2009, 15:03

043nKRuT0y

Участник форума

Регистрация: 31.10.2007

Сообщений: 213

Провел на форуме:
394522

Репутация: 14

N-угольник не равносторонний !

#1284

15.04.2009, 15:09

DDN

Новичок

Регистрация: 26.02.2009

Сообщений: 3

Провел на форуме:
214103

Репутация: 0

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

Помогите пожалуйста, на С++ нужно описать шаблон функции, возвращающей минимальный из трех передаваемых в нее параметров любого (но одинакового) типа

#1285

15.04.2009, 15:30

fker

Участник форума

Регистрация: 26.11.2008

Сообщений: 158

Провел на форуме:
2816163

Репутация: 158

Цитата:

Сообщение от DDN

тапа этого что-то, если тип будет int то перед тем как его передать в ф-ю надо преобразовать в float.... иль я чего-то недопонял.

Код:

float min(float a, float b, float c)
{
float m;
m=a;
if(b<m)
   m=b;
if(c<m)
   m=c;
return m;
}

#1286

15.04.2009, 15:44

razb

Постоянный

Регистрация: 24.03.2009

Сообщений: 670

Провел на форуме:
2868783

Репутация: 414

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

Цитата:

Ему надо шаблонную функцию

Вот, держи

Код:

template<typename T>
T func(T a, T b, T c)
{
    if(a < b && a < c) return a;
    else if(b < a && b < c) return b;
    else return c;
}

#1287

15.04.2009, 16:58

DDN

Новичок

Регистрация: 26.02.2009

Сообщений: 3

Провел на форуме:
214103

Репутация: 0

Подскажите еще, как перегрузить операторы ввода/вывода

#1288

15.04.2009, 18:46

Plaxxx

Новичок

Регистрация: 01.11.2008

Сообщений: 10

Провел на форуме:
13651

Репутация: 0

Есть программа которая разрезает картинку на 9ть частей в произвольном порядке (то есть как несобранный пазл) нужно чтобы при правильном сборе картинки программа выдавала сообщение: "вы выиграли!"
Код разбиения картинки ниже, также еще само собой имеется код который позволяет перетягивать по форме отрезаные части.

Код:

void __fastcall TForm1::FormCreate(TObject *Sender) {  TImage * Pict = new TImage(Form1); 
Pict->AutoSize = true;
 /* В следующем операторе указано имя загружаемого файла */   
Pict->Picture->LoadFromFile("CUS6.BMP"); Image1->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(0,0,Pict->Width / 3,Pict->Height / 3)); Image3->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(Pict->Width / 3,0,Pict->Width *2/ 3,Pict->Height / 3)); Image2->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(Pict->Width *2/ 3,0,Pict->Width,Pict->Height / 3));  Image5->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(0,Pict->Height / 3,Pict->Width / 3,Pict->Height *2/ 3)); Image4->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(Pict->Width / 3,Pict->Height / 3,Pict->Width *2/ 3,Pict->Height *2/ 3)); Image6->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(Pict->Width *2/ 3,Pict->Height / 3,Pict->Width,Pict->Height *2/ 3));  Image9->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(0,Pict->Height *2/ 3,Pict->Width / 3,Pict->Height)); Image7->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(Pict->Width / 3,Pict->Height *2/ 3,Pict->Width *2/ 3,Pict->Height)); Image8->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,                   Rect(Pict->Width *2/ 3,Pict->Height *2/ 3,Pict->Width,Pict->Height));

#1289

15.04.2009, 22:24

snAKe33

Участник форума

Регистрация: 10.02.2009

Сообщений: 203

Провел на форуме:
3226894

Репутация: 379

Как будет выглядеть действие из каждой тройки букв удали среднюю??
Delete (Str, K+1, 1);
K := K + 1;
вот так или нет?
паскаль

#1290

15.04.2009, 23:15

Ajax5

Новичок

Регистрация: 22.03.2009

Сообщений: 3

Провел на форуме:
13811

Репутация: 0

Люди help помогите, можете написать пожалуйста любую игру средней сложности на pascalABC (если не сложно с объяснением). Заранее БОЛЬШОЕ спасибо.

Страница 129 из 287

129

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем!	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)

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