HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 15.06.2009, 10:38
qloo
Новичок
Регистрация: 21.04.2009
Сообщений: 7
С нами: 8976658

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

Цитата:
Сообщение от KaZ@NoVa  
Каждую программу можно написать за минут 5 Легкотня...
Ну я не шарю в этой легкотне =(
 
Ответить с цитированием

  #2  
Старый 15.06.2009, 11:11
sebay
Познающий
Регистрация: 09.03.2009
Сообщений: 43
С нами: 9039367

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

кто-нибудь может максимально решить и максимально подробно обьяснить решение?

Вторая задача: Дана последовательность Mj литерных матриц 20*30. Нужно
найти число матриц Mk, что для некоторой матрицы Mi, k > i,
выполняется следующее условие: Ф(Mi) > i + 10. Где функция Ф
возвращает число упорядоченных столбцов матрицы в которых есть хотя бы
один символ цифры.


Третья задача: Дано бинарное дерево. Нужно посчитать число
четных чисел, лежащих ниже заданного уровня.
 
Ответить с цитированием

  #3  
Старый 15.06.2009, 17:53
KaZ@NoVa
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
С нами: 9394886

Репутация: 1467


По умолчанию

Цитата:
Сообщение от qloo  
1.Задана матриця елементіов размерностью nхn. Получить обратную матрицу.
http://slil.ru/27760115
 
Ответить с цитированием

  #4  
Старый 15.06.2009, 02:00
qloo
Новичок
Регистрация: 21.04.2009
Сообщений: 7
С нами: 8976658

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

Гугл предлагает купить обратную матрицу (
Или там какие то огромнные программы,которые не работают...
 
Ответить с цитированием

  #5  
Старый 15.06.2009, 10:12
winlogon.exe
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
С нами: 8912421

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

Delphi. Сделайте пожалуйста процедуру сортировки матрицы, среда крайний срок сдачи else отчислят. Авто ввод и все такое сделано, только саму процедуру (исходник) http://upwap.ru/454509 условия в исходнике.

Последний раз редактировалось winlogon.exe; 15.06.2009 в 10:22..
 
Ответить с цитированием

  #6  
Старый 15.06.2009, 23:05
Sin3v
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
С нами: 9379190

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

Вот еще задачка) на Pascal'e
Пусть дан текст. Определите содержит ли он символы отличающиеся от букв и пробелов.
 
Ответить с цитированием

  #7  
Старый 15.06.2009, 23:12
eLWAux
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами: 9423746

Репутация: 2399


По умолчанию

Цитата:
Пусть дан текст. Определите содержит ли он символы отличающиеся от букв и пробелов.
Код:
  // a =97
  // z = 122
  // 0 = 48
  // 9 = 57
  // а = 225
  // я = 255
делай цикл и проверяй ord(буква)
 
Ответить с цитированием

  #8  
Старый 15.06.2009, 23:25
eLWAux
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами: 9423746

Репутация: 2399


По умолчанию

Код:
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.
 
Ответить с цитированием

  #9  
Старый 16.06.2009, 14:28
MadAbility
Новичок
Регистрация: 06.12.2008
Сообщений: 1
С нами: 9172781

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

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

Задание

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

  #10  
Старый 17.06.2009, 15:04
KaZ@NoVa
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
С нами: 9394886

Репутация: 1467


По умолчанию

Цитата:
Сообщение от MadAbility  
Нужна помощь.
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;
////
 
Ответить с цитированием
Ответ



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



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


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




ANTICHAT ™ © 2001- Antichat Kft.

×

Создать сделку

Продавец: ник или ID

Название сделки:

Сумма USDT:

Срок сделки, дней:

Кто платит комиссию:

Условия сделки:

После создания сделки средства будут зарезервированы в холде до завершения сделки.

×

Мои сделки

Загрузка...
×

Сделка


Загрузка чата...
×

ESCROW ADMIN PANEL

Загрузка...
Загрузка...