Jump to content
СофтФорум - всё о компьютерах и не только

Заказы "Сделайте все за меня"


Recommended Posts

Здравствуйте, пожалуйста помогите с задачей: все нулевые элементы расположены на главной диагонали, в первых 3 строках выше диагонали и в последних 2 строках ниже диагонали .

Program LAB2;Var    arrp: array[1..5050] of integer;   { Сжатая таблица }    XM : integer; { Максимальные индексы в таблице }{==== Функция перевычисления индексов ====}{ y,x - индексы в 2-мерном массиве. Ф-ция возвращает индекс в 1-мерном массиве }Function NewIndex(y, x : integer) : integer;  var i, d: integer;  begin  d:=0;  for i:=1 to y-1 do d:=d+XM-i+1;  NewIndex:=d+x-y+1;  end;{==== Функция записи в сжатое представление массива ====}{ y, x - индексы в 2-мерном массиве, value - записываемое значение.   Функция возвращает записываемое значение или 0 - если (x,y)   задают индексы элемента, нулевого по определению }Function PutTab(y,x,value : integer) : integer;  begin if (((x>y) and (y<=3)) or ((x<y) and (y>8)) or (x=y)) then PutTab:=0  else begin    arrp[NewIndex(y,x)]:=value;    PutTab:=value;    end;  end;{==== Функция выборки из сжатого представления массива ====}{ y, x - индексы в 2-мерном массиве. Функция возвращает выбранное значение }Function GetTab(y,x: integer) : integer;  begin  if (((x>y) and (y<=3)) or ((x<y) and (y>8)) or (x=y)) then GetTab:=0  else GetTab:=arrp[NewIndex(y,x)];  end;{============= Главная программа ===================}Var  x, y : integer;  { Индексы в 2-мерном массиве }  k, h: integer;  begin  {===== Проверка формирования массива ======}  XM:=10;  { Запись элементов в 1-мерный массив }  k:=1;  for y:=1 to XM do    for x:=1 to XM do begin      h:=PutTab(y,x,k); k:=k+1;      end;  { Распечатка матрицы }  writeln('===== Матрица =====');  for y:=1 to XM do begin    for x:=1 to XM do write(GetTab(y,x):3);    writeln;    end;  { Распечатка внутреннего представления матрицы }  writeln('===== Матрица (внутр.представление) =====');  for y:=1 to 55 do write(arrp[y]:4);  writeln; writeln;end.

Нарисовать, то нарисовал а вот сделать перевод и запись в одномерный не знаю как . " d:=d+XM-i+1;

  NewIndex:=d+x-y+1;" - надо тут поменять пересчёт индексов, а я не понимаю как это сделать. Помогите пожалуйста.
Link to post
Share on other sites
  • Replies 2.8k
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

В этой теме можно оставлять запросы на написание мелких программ, блок-схем и других подобных вещей. Если вы хотите чтобы что-нибудь написали вместо вас - вам сюда. Если вы просите чтобы вам что-нибу

chibi: var i,n:word; r:real; begin readln(n); r:=0; for i:=1 to n do r:=sqrt(r+2); writeln®; readln end. Что за формула, не понял. const m=25;var a:array[1..m]of integer; b:array[1..100]of integ

var a:array[1..100]of integer; i,j,k,m,p,n:integer;beginwrite('How many numbers? '); readln(k); writeln('Enter ',k,' numbers');for i:=1 to k do read(a[i]); readln; m:=0; for i:=1 to k do begin n:=0; f

Posted Images

Вот полное задание к задаче : Разработать способ экономного размещения в памяти заданной разреженной таблицы. Разработать процедуры/функции, обеспечивающие доступ к элементам таблицы по номерам строки и имени столбца. В контрольной программе обеспечить запись и чтение всех записей таблицы. Произвести хронометраж выполнения операций чтения и записи элементов в массивы.

Link to post
Share on other sites
  • 1 month later...

Простите пожалуйста, а как её сделать через рекурсию?

const na=10; a:string[na]='1234567890';
type ba=array[1..na]of byte;
var b:ba; n,m,i,j,k:byte;

procedure Output(var b:ba);
begin for i:=1 to m do write(a[b]:2); writeln end;

procedure Perm(b:ba; n:byte);
var i,k,j,x:byte;
begin
  Output(b);
  repeat
    i:=n; while(i>0)and(b>=b[i+1])do dec(i); if i=0 then exit;
    for j:=i+1 to n do if b[j]>b then k:=j;
    x:=b; b:=b[k]; b[k]:=x;
    for j:=i+1 to i+(n+1-i)div 2 do
       begin x:=b[j]; b[j]:=b[n+i+1-j]; b[n+i+1-j]:=x end;
    Output(b);
  until false
end;

begin
  n:=na; m:=3;
  for i:=1 to m do b:=i; Perm(b,m);
  repeat
    i:=m; while(i>0)and(b=n-m+i)do dec(i);
    if i=0 then begin readln; exit end;
    inc(b); for j:=i+1 to m do b[j]:=b[j-1]+1; Perm(b,m);
  until false
end.

Link to post
Share on other sites
  • 5 weeks later...

Нужно сделать программку для онлайн приложения вконтакте, ну или разобрать имеющуюся, кому интересно в скайп <удалено> там договоримся! :)

Link to post
Share on other sites
!

Предупреждение:
На форуме категорически запрещено:
  • Высказывать просьбу отправить ответ на e-mail, в ICQ и прочие нефорумные средства общения. Это не этично, форум открыт для общения, и решение проблемы может быть интересно другим посетителям.
Link to post
Share on other sites
  • 4 months later...

Здравстсвуйте , не могли бы вы составить мне блок схемы и вообще расписать, что и где какая команда делает...

#include <iostream.h>#include <stdio.h>#include <stdlib.h>#include <conio.h>using namespace std;  struct LIBRARY{    char nomer[30];    char FIO[30];    char nazvanie[40];    int Year;    int kolvo;}; struct STR{    LIBRARY *Library;    STR *next;}; STR * create(LIBRARY * Library) {   STR *root=new STR;   root->Library=Library;   root->next=NULL;   return root;} void add(LIBRARY *Library, STR* root) {    while(root->next)      root=root->next;    root->next=new STR;    root->next->Library=Library;    root->next->next=NULL;} void printLIBRARY(LIBRARY *Library)   {         cout<<"Nomer => "<<Library->nomer<<endl;    cout<<"FIO => "<<Library->FIO<<endl;    cout<<"Nazvanie => "<<Library->nazvanie<<endl;    cout<<"Year => "<<Library->Year<<endl;    cout<<"Kolvo => "<<Library->kolvo<<endl;        cout<<endl;     }LIBRARY * makeLIBRARY() {   cout<<"Enter book data:"<<endl;    LIBRARY *Library=new LIBRARY;    fflush(stdin);    cout<<"Enter book nomer: => ";    cin.getline(Library->nomer,30);     cout<<"Enter Author's FIO:  => ";    cin.getline(Library->FIO,30);     cout<<"Enter book name: => ";    cin.getline(Library->nazvanie,40);     cout<<"Enter made year:  => ";    cin>>Library->Year;     cout<<"Enter count of books:  => ";    cin>>Library->kolvo;     return Library;}int choice(){    int answer;    getch();    system("cls");    cout<<"Main menu"<<endl;    cout<<"1. Add new books to the list"<<endl;    cout<<"2. Print LIBRARY at list"<<endl;    cout<<"3. Search and delete"<<endl;    cout<<"4. Clear all entries"<<endl;    cout<<"5. Exit"<<endl;    cout<<"Enter your choice: ";    cin>>answer;    fflush(stdin);    if(answer>=1 && answer<=5)      return answer;    else      return 0;} int main(){    STR *root=NULL;    int ch;    while(1)    {       ch=choice();       if(ch==1)       {           cout<<endl;           if(root==NULL)             root=create(makeLIBRARY());           else             add(makeLIBRARY(),root);       }        else if(ch==2)       {           cout<<endl;           int i=0;           int N=0;                      STR *proot=root;           while (root)           {               N++;               root=root->next;           }            LIBRARY *buf;           LIBRARY **pLibrary=new LIBRARY*[N];           root=proot;                      while (root)           {                   pLibrary[i]=root->Library;                   root=root->next;                   i++;               }            root=proot;                         for (i=0;i<N;i++)                   printLIBRARY(pLibrary[i]);                      }             else if(ch==3)       {           char qwe[30];           char qw[30], q[1];           cout<<"Enter nomer of book => "<<endl;           cin.getline(qwe,30);           while (root)           {               if (!strcmp(qwe,root->Library->nomer))               {                      {                   printLIBRARY(root->Library); cout<<"Do you want clear this entries? (y/n) "<<endl;                   cin.getline(q,1);                        if (!strcmp(q,"y"))                                    {                                root->Library=NULL;                         }                   root=root->next;                    }                     }               else if (strcmp(qwe,root->Library->nomer))                   root=root->next;           }                      cout<<endl;       }        else if(ch==5)       {           break;           cout<<endl;       }           }    return 0;}

Если вам не сложно, то напишите пожалуйста по строковое разъяснение, прям все все)))буду очень благодарен)))Заранее спасибо

Link to post
Share on other sites

#include <iostream.h>
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>

using namespace std;


struct LIBRARY
{
char nomer[30];
char FIO[30];
char nazvanie[40];
int Year;
int kolvo;
};

struct STR
{
LIBRARY *Library;
STR *next;
};

STR * create(LIBRARY * Library)
{
STR *root=new STR;
root->Library=Library;
root->next=NULL;
return root;
}

void add(LIBRARY *Library, STR* root)
{
while(root->next)
root=root->next;
root->next=new STR;
root->next->Library=Library;
root->next->next=NULL;
}

void printLIBRARY(LIBRARY *Library)
{

cout<<"Nomer => "<<Library->nomer<<endl;
cout<<"FIO => "<<Library->FIO<<endl;
cout<<"Nazvanie => "<<Library->nazvanie<<endl;
cout<<"Year => "<<Library->Year<<endl;
cout<<"Kolvo => "<<Library->kolvo<<endl;
cout<<endl;

}
LIBRARY * makeLIBRARY()
{
cout<<"Enter book data:"<<endl;
LIBRARY *Library=new LIBRARY;
fflush(stdin);
cout<<"Enter book nomer: => ";
cin.getline(Library->nomer,30);

cout<<"Enter Author's FIO: => ";
cin.getline(Library->FIO,30);

cout<<"Enter book name: => ";
cin.getline(Library->nazvanie,40);

cout<<"Enter made year: => ";
cin>>Library->Year;

cout<<"Enter count of books: => ";
cin>>Library->kolvo;

return Library;
}
int choice()
{
int answer;
getch();
system("cls");
cout<<"Main menu"<<endl;
cout<<"1. Add new books to the list"<<endl;
cout<<"2. Print LIBRARY at list"<<endl;
cout<<"3. Search and delete"<<endl;
cout<<"4. Clear all entries"<<endl;
cout<<"5. Exit"<<endl;
cout<<"Enter your choice: ";
cin>>answer;
fflush(stdin);
if(answer>=1 && answer<=5)
return answer;
else
return 0;
}

int main()
{
STR *root=NULL;
int ch;
while(1)
{
ch=choice();
if(ch==1)
{
cout<<endl;
if(root==NULL)
root=create(makeLIBRARY());
else
add(makeLIBRARY(),root);
}

else if(ch==2)
{
cout<<endl;
int i=0;
int N=0;

STR *proot=root;
while (root)
{
N++;
root=root->next;
}

LIBRARY *buf;
LIBRARY **pLibrary=new LIBRARY*[N];
root=proot;

while (root)
{
pLibrary[i]=root->Library;
root=root->next;
i++;
}

root=proot;


for (i=0;i<N;i++)
printLIBRARY(pLibrary[i]);

}

else if(ch==3)
{
char qwe[30];
char qw[30], q[1];
cout<<"Enter nomer of book => "<<endl;
cin.getline(qwe,30);
while (root)
{
if (!strcmp(qwe,root->Library->nomer))
{
{
printLIBRARY(root->Library);
cout<<"Do you want clear this entries? (y/n) "<<endl;
cin.getline(q,1);
if (!strcmp(q,"y"))
{
root->Library=NULL;
}
root=root->next;
}
}
else if (strcmp(qwe,root->Library->nomer))
root=root->next;
}

cout<<endl;
}

else if(ch==5)
{
break;
cout<<endl;
}

}
return 0;
}

 

это очень срочно((

Link to post
Share on other sites
  • 6 months later...

Помогите пожалуйста написать лабу по информатике на языке СИ, буду очень благодарен.
Задание: Ввести строку и слово. Вывести только те слова, начало которых совпадает с введенным словом.
Используя только библиотеку stdio.h

Link to post
Share on other sites
  • 2 weeks later...

Помогите,пожалуйста! Срочно нужно.

Задание: Создать файл из 15 целых чисел. Написать программу, которая реализует метод открытого хеширования с хеш-функцией, основанной на методе деления с остатком. Занести данные, хранящиеся в файле в хеш-таблицу. Вывести построенную хеш-таблицу на экран. Организовать поиск данных в хеш-таблице. Результаты поиска данных вывести на экран. Также вывести количество проб, которые были затрачены при поиске.​

Написать на с++

Link to post
Share on other sites
  • 1 month later...

Люди, а есть ли у кого-нибудь алгоритм быстрого преобразования Фурье для последовательности значений длиной не равной степени двойки? Пока в интернете нашёл только метод Cooley–Tukey, но в нём начальное количество значений должно быть 2^n. Язык в принципе любой подойдёт.

Заранее огромное спасибо.

Edited by Shadow TH
Link to post
Share on other sites
  • 1 month later...

Ну, например, тут есть описания и пример реализации на C++, я его, правда, не проверял).

Спасибо, Вам за помощь, давненько Вы меня очень и очень сильно выручали)

Link to post
Share on other sites
  • 3 months later...

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

 

Вот задача :

База данных для АИС должна быть создана в среде клиент-серверной СУБД MySQL.

Для генерации базы данных необходимо использовать программу ERWin.

Сохранить схему базы данных и скрипты, по которым создается база.

Интерфейс для работы с базой данной разработать в среде программирования Builder C++.

 

Таким образом, программная часть курсового проекта должна составлять: файл схемы БД (*.erwin), скрипты генерации –(*.sql), базу данных MySQL – папка с соответствующем именем., папка с проектом приложения в Builder C++. (это все записывается на носитель)

 

Создал схему данных в Erwin

 

6ae122f17f52.png

Сгенерировал из схемы файл с БД :

 

CREATE TABLE Ekskursii
(
KodEkskursii  INTEGER NULL,
NazvanieEkskursii  VARCHAR(40) NOT NULL,
DataProvedeniya  DATE NULL
)
;
ALTER TABLE Ekskursii
ADD  PRIMARY KEY (KodEkskursii)
;
CREATE TABLE SekziiKonferenzii
(
KodSekcii  INTEGER NULL,
NazvanieSekcii  VARCHAR(20) NOT NULL,
DataProvedeniya  DATE NULL
)
;
ALTER TABLE SekziiKonferenzii
ADD  PRIMARY KEY (KodSekcii)
;
CREATE TABLE UchastnikiKonferencii
(
IDUchastnika  INTEGER NOT NULL,
Familiya  VARCHAR(30) NOT NULL,
Imya  VARCHAR(20) NOT NULL,
Otchestvo  VARCHAR(20) NOT NULL,
UchenoeZvanie  VARCHAR(20) NOT NULL,
TemaDoklada  VARCHAR(40) NOT NULL,
KodSekcii  INTEGER NULL
)
;
ALTER TABLE UchastnikiKonferencii
ADD  PRIMARY KEY (IDUchastnika)
;
CREATE TABLE ZakazEkskursii
(
IDUchastnika  INTEGER NOT NULL,
KodEkskursii  INTEGER NOT NULL
)
;
ALTER TABLE ZakazEkskursii
ADD  PRIMARY KEY (IDUchastnika,KodEkskursii)
;
ALTER TABLE UchastnikiKonferencii
ADD FOREIGN KEY R_9 (KodSekcii) REFERENCES SekziiKonferenzii(KodSekcii)
;
ALTER TABLE ZakazEkskursii
ADD FOREIGN KEY R_10 (IDUchastnika) REFERENCES UchastnikiKonferencii(IDUchastnika)
;
ALTER TABLE ZakazEkskursii
ADD FOREIGN KEY R_11 (KodEkskursii) REFERENCES Ekskursii(KodEkskursii)
;

 

Устанвил MySQL 

 

Подключился к odbcad32

 

499a8a3981b6.png

 

Пдключился к MySQL

 

425b05b970a2.png

 

Зашёл в MySql

 

пощупал БД

 

d0b49a519998.jpg

 

Теперь надо подключиться из Builder C++ и наполнить базу и выполнить пару запросов и т.п...

чтобы закончить реферат , а я не могу понять как ?? 

Edited by Indemion
Link to post
Share on other sites

может кто помочь с программкой  с 1 или 2-й) или с обеими ) в программировании не силен так что вынужден просить помощь

1. Заменить в списке все отрицательные значения элементов на их модуль, вернуть адрес последней замены.

2. Создать список L3 из элементов, которые входят в список L1 и не входят в список L2, вернуть длину нового списка.

Link to post
Share on other sites
Type    Ukaz = ^v;  v = Record       Data : integer;       Next : Ukaz;  End;Procedure InitU(Var u : Ukaz);Var  x, y : Ukaz;  Digit : integer;Begin  Writeln('Введите список ');  u := Nil;  Writeln ('Введите элементы списка. Конец ввода 0');  Read (Digit);  while Digit<>0 do    Begin      New(y);      y^.Next := Nil;      y^.Data := Digit;      if u=Nil then          u := y      else          x^.Next := y;      x := y;      Read(Digit);    End;  Writeln;End;Procedure ReplaceU(Var u : Ukaz);var  x:Ukaz;begin  x:=u;  while x<>Nil do  begin    if x^.Data<0 then      x^.Data:=Abs(x^.Data);    x:= x^.Next;  end;end;Procedure WriteU(Var u : Ukaz);var  x:Ukaz;begin  x:=u;  while x<>Nil do  begin    Writeln(x^.Data);    x:= x^.Next;  end;end;Procedure Main;var  u:Ukaz;begin  InitU(u);  ReplaceU(u);  WriteU(u);end;

Основные функции, тип и вызов. Остальное уже самому: у меня нет возможности проверить компиляцию именно Паскаля (только Delphi).

  • Like 1
Link to post
Share on other sites
  • 1 year later...

На си или на паскале кто может помочь сам не шарю
Заменить в списке все отрицательные значения элементов на их модуль, вернуть адрес последней замены.

Создать список L3 из элементов, которые входят в список L1 и не входят в список L2, вернуть длину нового списка.

Link to post
Share on other sites
  • 2 weeks later...
  • 4 months later...

Здравствуйте!

Можете ли вы попочь с небольшой прокачкой программы для подсчета APM? Нужно добавить еще некоторые кнопки в отслеживание и убрать строку с гиперссылкой из главного окна.

Программу прилепляю в архиве.

apm_counter.rar

Link to post
Share on other sites
  • 5 months later...

Здравствуйте. Помогите пожалуйста написать программу на #C.
Дано дату в виде числа и месяца (например, 12 мая), и эта дата пришлась на день недели - четверг. Кроме того, дано натуральное число k. Вывести название дня, месяца и сезона, которые были при k месяцев перед данной датой. Считать год не високосным.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.




×
×
  • Create New...