Студентам с лабораторными сюда

[mozgpanic]

2 Robobit
Если я все правильно понял, то можно попробовать вот так:

# -*- coding: CP1251 -*-
check=0
#вводим размерность и элементы матрицы
n=input("введите количество строк: ")
m=input("введите количество столбцов: ")
matrix = [[input("введите элемент: ") for i in range(m)] for j in range(n)]
#функция пузырьковой сортировки
#(ей мы будем упорядочивать элементы строк)
def bubble(k):
for x in range(len(k)-1):
for y in range(len(k)-1-x):
if k[y]<k[y+1]:
k[y],k[y+1]=k[y+1],k[y]
return(k)
#если строка неупорядоченна, упорядочиваем
for d in range(n):
if str(matrix[d])!=str(bubble(matrix[d])):
print("первая неупорядоченная строка в упорядоченном виде:")
print(matrix[d])
check=3
break
#если неупорядоченных строк нету
#значит все строки упорядоченны
if check==0:
print("все строки упорядоченны!")

Код, однако, не претендует на рациональность...

[EndLeSSDre@M]

Pascal

Условие: Ввести строку, найти все символы которые встречаются в словах либо только с четными, либо только с нечетными порядковыми номерами.

Пример: мама мыла раму поэтому снег выпал

буква Ы встречается только в четных словах 2 и 6. Значит она нам подходит.

аналогично буквы
Р (только в 3 нечетном слове)
Э (только в 4 четном слове)
С (только в 5 нечетном слове)
В (только в 6 четном слове)
Л (во 2 и 6 четных словах)
П (в 4 и 6 четных словах)
T (в 4 слове)
O (в 4 слове)

Значит программа должна вывести нам буквы Ы Р Э С В Л П Т O.

Задачу нужно решить с использованием множеств.

Дело было вечером, делать было нечего))))
задачка была интересная, поэтому решил ее добить))) вот код, токо хз на счет рациональности))) первый раз такую делаю! но работает, это точно)))

var bukvi: set of char;
stroka,str,v,m:string;
a,u,i,x,y,e1,e2,k:integer;
s:array[1..100] of string;
q:array[1..100] of integer;
t:char;
label metka;

begin
bukvi:=[];
write('vvedite stroku: ');
readln(stroka);
str:=stroka;
a:=1;
k:=1;
y:=0;
e1:=0;
e2:=0;
while str<>'' do
begin
a:=pos(' ',str);
if a=0 then a:=length(str);
s[k]:=copy(str,1,a);
delete(str,1,a);
k:=k+1;
end;

for i:=1 to length(stroka) do
begin
t:=stroka[i];
if t in bukvi then goto metka;
for u:=1 to k do
begin
x:=pos(t,s[u]);
if x<>0 then
begin
y:=y+1;
q[y]:=u;
end;
end;

for u:=1 to y do
begin
if q[u] mod 2=0 then e1:=e1+1;
if q[u] mod 2<>0 then e2:=e2+1;
end;

if (e1=y) or (e2=y) then
begin
include(bukvi,t);
m:=m+t+' ';
end;
e1:=0;
e2:=0;
y:=0;
metka: end;
writeln(m);
readln;
end.

И скорее всего, код не читаемый))) но рабочий это проверено!

По больше бы таких задачек тут))

[BELbIY]

Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.

[EndLeSSDre@M]

Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.

var i,n,summ:integer;
begin
write('vvedite N =');
readln(n);
i:=1;
summ:=0;
while i<=n do begin
summ:=summ+i;
i:=i+1;
end;
writeln('summa=',summ);
readln;
end.

[BELbIY]

var i,n,summ:integer;
begin
write('vvedite N =');
readln(n);
i:=1;
summ:=0;
while i<=n do begin
summ:=summ+i;
i:=i+1;
end;
writeln('summa=',summ);
readln;
end.

Спасибо. Работает)

[Besi]

собстено ето лаба но чатсь зделал
вот немного кода

class CDIALOGDlg : public CDialog
{
public:
CDIALOGDlg();
enum { IDD = IDD_DIALOG1 };

protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support

// Implementation
protected:
DECLARE_MESSAGE_MAP()
public:
afx_msg void OnBnClickedCheck1();
// how long time client been in hotel

CString SecondName_String;
CString Adress_String;
int Phone_int;
int How_Many_Plays_int;
int How_Long_Stay_int;
};
CDIALOGDlg::CDIALOGDlg() : CDialog(CDIALOGDlg::IDD)
, SecondName_String(_T(""))
, Adress_String(_T(""))
, Phone_int(0)
, How_Many_Plays_int(0)
, How_Long_Stay_int(0)
{
}
void CDIALOGDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
DDX_Text(pDX, IDC_EDIT1, SecondName_String);
DDV_MaxChars(pDX, SecondName_String, 20);
DDX_Text(pDX, IDC_EDIT2, Adress_String);
DDX_Text(pDX, IDC_EDIT3, Phone_int);
DDV_MinMaxInt(pDX, Phone_int, 0, 15);
DDX_Text(pDX, IDC_EDIT4, How_Many_Plays_int);
DDV_MinMaxInt(pDX, How_Many_Plays_int, 1, 255);
DDX_Text(pDX, IDC_EDIT5, How_Long_Stay_int);
DDV_MinMaxInt(pDX, How_Long_Stay_int, 1, 365);
}
/////++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++++++++++
BEGIN_MESSAGE_MAP(CDIALOGDlg, CDialog)
END_MESSAGE_MAP()

void CLab_8App::OnDIALOG1()
{
CDIALOGDlg DIALOGDlg;
DIALOGDlg.DoModal();
}


// App command to run the dialog
void CLab_8App::OnAppAbout()
{
CAboutDlg aboutDlg;
aboutDlg.DoModal();
}
мне нада все данные принятые с диалога запомнить а после используя немного формул вывести на главное окно) таким вот способом
lass CMainWnd:public CFrameWnd // визначення класу головного вікна
{
private:

float value;
public:
CBitmap m_bmp;
CMainWnd();
void show_image();
DECLARE_MESSAGE_MAP();
};
BEGIN_MESSAGE_MAP(CMainWnd,CFrameWnd)
ON_COMMAND(ID_EXIT,OnClose)
ON_COMMAND(ID_IMAGE,show_image)
END_MESSAGE_MAP()
void CMainWnd::show_image()
{
InvalidateRect(NULL); //посылаем сообщение WM_PAINT
CPaintDC dc(this); //создать контекст устройства для вызова GDI -функции
CDC memDC; //создать контекст памяти для выбора информации из памяти
//создание контекста устройства памяти, совместимого с контекстом устройства GDI
memDC.CreateCompatibleDC(&dc);
memDC.SelectObject(&m_bmp); //выбор изображения в контекст области памяти
dc.StretchBlt(180,10,350,300,&memDC,0,0,300,300,SRCCOPY);


CString str="Снимок екрана\n";
dc.TextOutW(285,310,str,13);


};

но вот сюда нада передать значения с диалога
CString str="Снимок екрана\n";

как зделаь праильно-подскажыте(или литературу сам почитаю)

[[underwater]]

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


Помогите, а? Перечитал уже множество всего по работе с плавающей точкой:(

[zvezda115]

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

С++, помогите девушке, которая будет вам очень благодарна. Сама в этом ни чего не понимаю.

[kolodeev]

напишите пожалуйста программу на С++: задан массив А(10)(10) определить: 1) количество строк, не содержащих ни одного нулевого элемента;
2) максимальное из чисел, встречающихся в матрице более одного раза.

[DiSi]

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

[Besi]

так немного решонных задач на будущее чтобы не выдумывать велосипед

#include<stdio.h>
#include<iostream.h>
int n;

typedef int array[20];
array *ptr,*ptr1;
//////////////////////////////Vvedenni masuvy///////////////////////
array* input(int size)
{cout<<"input array"<<endl;
ptr1=new array[20];
for(int i=0;i<size;i++)
cin>>*ptr1[i];
return ptr1;
}
//////////////////////////vuvedeii masuvy/////////////////
void output(array* ptr,char *message)
{
cout<<message<<endl;
for(int i=0;i<n;i++)
cout<<*ptr[i]<<" ";
cout<<"\n";
}
///////////////////////sortyvanni mass////////////////
void sort(array *ptr)
{int temp;
for(int i=0;i<n-1;i++) //etalon///
{
for(int j=i+1;j<n;j++) //poto4nui elemnt///
if(*ptr[j]>*ptr[i]) //porivnanna poto4nogo elementa i etalona///
{ temp=*ptr[j];
*ptr[j]=*ptr[i];
*ptr[i]=temp;
}
}
}
//////////////////void main////////////
void main()
{ cout<<"lab5-to short array"<<endl<<"nomber of arrays members?";
cin>>n; ptr=input(n);
output(ptr,"entered array");
sort(ptr);
output(ptr,"sorted array");
getchar();
}

[Besi]

калькулятор-без проверок(препроцесор)


#include "stdafx.h"
#define PLUS(n,m) n+m
#define MINUS(n,m) n-m
#define DELIT(n,m) n/m
#define MNOJIT(n,m) n*m

float main()
{ float n,m,i,j,s,sum;
int t;
while(1)
{
cout<<"Viberite buduwee deystvie"<<endl;
cout<<"1. Slojenie"<<endl;
cout<<"2. Vi4etanie"<<endl;
cout<<"3. Delenie"<<endl;
cout<<"4. Umnojenie"<<endl;
cin>>t;

switch(t)
{
case 1:
{
cout<<"vvedite pervoe 4islo"<<endl;
cin>>i;
cout<<"vvedite vtoroe 4islo"<<endl;
cin>>j;
sum=PLUS(i,j);
cout<<"rezultat="<<sum<<endl;
getch();
}break;
case 2:
{
cout<<"vvedite pervoe 4islo"<<endl;
cin>>i;
cout<<"vvedite vtoroe 4islo"<<endl;
cin>>j;
sum=MINUS(i,j);
cout<<"rezultat="<<sum<<endl;
getch();
}break;
case 3:
{
cout<<"vvedite pervoe 4islo"<<endl;
cin>>i;
cout<<"vvedite vtoroe 4islo"<<endl;
cin>>j;
if(j==0)
{
cout<<"nevozmojnaya operaciya"<<endl;
break;
}
sum=DELIT(i,j);
cout<<"rezultat="<<sum<<endl;
getch();
}break;
case 4:
{
cout<<"vvedite pervoe 4islo"<<endl;
cin>>i;
cout<<"vvedite vtoroe 4islo"<<endl;
cin>>j;
sum=MNOJIT(i,j);
cout<<"rezultat="<<sum<<endl;
getch();
}break;
default:
{cout<<"viberite drugoe deystvie"<<endl;

}break;
}
}

}

[Besi]

дальше спрашывайте может уже есть готовая работа по етой теме)

Девушка которая не из кпи-вы в данный момент должны работать со структурами
у меня есть похожый код но он гдето затерялся -найду выложу вам только немного значений нада будет поправить

[zvezda115]

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

[zvezda115]

на 172 стр что-то подобное моей задачи но сделать подобное - для меня невыполнимая задача....

[4p3]

на 172 стр что-то подобное моей задачи но сделать подобное - для меня невыполнимая задача....
как определить пенсионный возраст?

[zvezda115]

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

Ничего сделать не могу....незнаю

[Roston]

как определить пенсионный возраст?
Женщины >55 мужчины >60

[kolodeev]

напишите пожалуйста пару программ на С++
1) составить функцию типа void для решения задачи: Определить является ли число простым. Формальные параметры: число и признак, который равен 1, если число простое и 0 - иначе.
2) составить функцию, возвращающую значение для решения представленной ниже задачи, найти с точностью 10 в -4 степени выражение: у=1+1/x+1/(x*x)+1/(x*x*x)+... при x>1.

[kolodeev]

напишите пожалуйста программу на С++: задан массив А(10)(10) определить: 1) количество строк, не содержащих ни одного нулевого элемента;
2) максимальное из чисел, встречающихся в матрице более одного раза.

[4p3]

Женщины >55 мужчины >60
спасибо.


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

Ничего сделать не могу....незнаю
времени мало, напишу за неделю неспешно. с граф интерфейсом, xml файлами.

Пишите в icq,если что.

[zvezda115]

4рЗ Спасибо!!!!!!!!!

Уточнила: язык программирования СИ, без графинтерфейса, в простом текстовом файле.

[Dimon32]

Помогите пожалуйста: нужна программа по линейному программированию. "Двойственный симплекс метод". Выложте исходники у кого есть. Или подскажите где скачать.

[Syntaxys]

Делфи. Есть несколько файлов программы:

.dfm
.pas
.dcu
.exe

Можно ли из первых трёх собрать проект? Если можно то как?
В архиве сабж
http://narod.ru/disk/20543985000/18471_kursovaja.zip.html

[Syntaxys]

Собсно решил =Е

[[underwater]]

Помогите пожалуйста.
http://img51.imageshack.us/img51/4821/2004e.gif
Написать модуль на языке Ассемблера для обработки строк (в виде процедуры или макроса).
Написать на языке Ассемблера программу корректного ввода исходных данных.

[>>serhio<<]

Помогите пожалуйста реализовать Asm.
Задача:
Наиболее длинная цепочка нулевых элементов массива.

[Sunstrider]

']Помогите пожалуйста.
http://img51.imageshack.us/img51/4821/2004e.gif
Написать модуль на языке Ассемблера для обработки строк (в виде процедуры или макроса).
Написать на языке Ассемблера программу корректного ввода исходных данных.
на паскали или делфи могу сделать ,на асм сам перреписать смож?

[b00mbox]

Нужно составить программу, для решения задачи на алгоритме Хаффмана.
Вот скрин заданий:
http://imagepost.ru/images/119/screen.JPG

[EndLeSSDre@M]

2b00mbox ага.... щас, решили тебе ее просто так.... если только энтузиасты какие нить...

[4p3]

']Помогите пожалуйста.
http://img51.imageshack.us/img51/4821/2004e.gif
Написать модуль на языке Ассемблера для обработки строк (в виде процедуры или макроса).
Написать на языке Ассемблера программу корректного ввода исходных данных.

Одесский политех?

Если так, то могу что-то поглядеть в запасах.

[Shkiper2009]

Среда програмирования: ABS Pascal

Задача: Пусть задано 10 русских имён. Проверьте все ли имена написаны с прописной буквы, если нет,то исправте ситуацию.


Если можно то задачку в лс!
Заранее спасибо.

[vartan-11]

Среда: Delphi
Задача: описать устройство работы автомата по продаже газет.
Т.е. чтоб мона было на кнпочки нажимать,типа как на настоящем)

[Napas]

пипл, помогите плиз на си накодить следующую штуку
Отсортировать строки файла сначала по длине, а затем строки равной длины в алфавитном порядке, результат вывести в файл

в алфавитном порядке уже нашел как:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define MAXLINE 4096
#define IFNAME "in.txt"
#define OFNAME "out.txt"

int scmp(const void *p1, const void *p2)
{
const char *s1, *s2;

s1 = * (char **) p1;
s2 = * (char **) p2;
return strcmp(s1, s2);
}

int main(void)
{
FILE *ifp, *ofp;
char *lineptr[MAXLINE];
char s[MAXLINE];
int i, nl;

ifp = fopen(IFNAME, "r");
if(ifp == NULL || (ofp = fopen(OFNAME, "w")) == NULL) {
perror("fopen");
return -1;
}

for(i = 0; i < MAXLINE; ) {
if(fgets(s, sizeof(s), ifp) == NULL)
break;
if(*s != '\n')
lineptr[i++] = strdup(s);
}

nl = i;
qsort(lineptr, nl, sizeof(char *), scmp);

for(i = 0; i < nl; i++) {
fprintf(ofp, "%s", lineptr[i]);
free(lineptr[i]);
}
fclose(ifp);
fclose(ofp);
return 0;
}

осталось первую часть реализовать :) с меня 5 wmz :)

[idm_hello]

Delphi
Задача: Написать процедуру, заполняющую квадратную целочисленную матрицу A NxN по следующему правилу: A[i, j] = |_ sin (exp(i) + j^10 _| , где |_ _| операция округления до ближайшего целого, i - строки матрицы, j - столбцы матрицы.

[EndLeSSDre@M]

Delphi
Задача: Написать процедуру, заполняющую квадратную целочисленную матрицу A NxN по следующему правилу: A[i, j] = |_ sin (exp(i) + j^10 _| , где |_ _| операция округления до ближайшего целого, i - строки матрицы, j - столбцы матрицы.

var
i,j,n:integer;
a:array[1..100,1..100] of integer;
begin
write('vvedite N: ');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=round(sin(exp(i) + exp(ln(j)*10)));
write(a[i,j],' ');
end;
writeln;
end;
readln;
end.

[idm_hello]

EndLeSSDre@M Спасибо

[nitx]

пипл, помогите плиз на си накодить следующую штуку
Отсортировать строки файла сначала по длине, а затем строки равной длины в алфавитном порядке, результат вывести в файл

fsort.h:

#ifndef FSORT
#define FSORT

#define BUFFSIZE 8

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

typedef struct s_fstring FString;
struct s_fstring {
char * str;
size_t count;
FString * next;
};

#endif


main.c:

#include "fsort.h"

FString * readInput(FILE * infile, FString * head) {
int i,k = 0;
char buff[BUFFSIZE];
int count = 0;
FString * ptr = NULL;
head = (FString*)malloc(sizeof(FString));
ptr = head;
ptr->str = (char*)malloc(BUFFSIZE+1);
ptr->count = 0;
while((count = fread(buff, sizeof(char), BUFFSIZE, infile))) {
for(i = 0; i < count; i++) {
if(buff[i] == '\n') {
ptr->str[k] = '\0';
ptr->next = (FString*)malloc(sizeof(FString));
ptr = ptr->next;
ptr->str = (char*)malloc(BUFFSIZE+1);
ptr->count = 0;
ptr->next = NULL;
k = 0;
}
else {
if(k == BUFFSIZE+1)
ptr->str = (char*)realloc(ptr->str, k+BUFFSIZE);
ptr->str[k++] = buff[i];
ptr->count++;
}
}
}
ptr->str[k] = '\0';
return head;
}

void fsort(FString * head) {
int i = 1;
size_t tmp = 0;
char * stmp;
FString * ptr = head;
FString * foo = NULL;
while(i == 1) {
i = 0;
for(ptr = head; ptr != NULL; ptr = ptr->next)
if(ptr->next != NULL) {
foo = ptr->next;
if(ptr->count > foo->count) {
tmp = ptr->count;
ptr->count = foo->count;
foo->count = tmp;
stmp = ptr->str;
ptr->str = foo->str;
foo->str = stmp;
i = 1;
}
else if(ptr->count == foo->count)
if(strcmp(foo->str, ptr->str) < 0) {
stmp = ptr->str;
ptr->str = foo->str;
foo->str = stmp;
i = 1;
}
}
}
}

void strWrite(FILE * outfile, FString * head) {
FString * ptr = NULL;
size_t size = 0;
for(ptr = head; ptr != NULL; ptr = ptr->next)
if(ptr->str[0] != 0) {
size = fwrite(ptr->str, sizeof(char), ptr->count, outfile);
fputc('\n', outfile);
if(size != ptr->count)
printf("Error whilre writing to file.\n");
printf("Error whilre writing to file.\n");
}
}

int main(const int argc, const char * argv[]) {
FILE * infile = NULL;
FILE * outfile = NULL;
FString * head = NULL;
FString * tmp = NULL;
if(argc < 2) {
printf("Input filename is not specified.\n");
return 1;
}
else if(argc < 3) {
printf("Output filename is not specified.\n");
return 1;
}
infile = fopen(argv[1], "r");
outfile = fopen(argv[2], "w");
if(infile == NULL) {
printf("Error while reading %s file.\n", argv[1]);
return 2;
}
if(outfile == NULL) {
printf("Error while opening %s file.\n", argv[2]);
return 2;
}
tmp = readInput(infile, head);
fsort(tmp);
strWrite(outfile, tmp);
fclose(infile);
fclose(outfile);
return 0;
}


fsort() - делает сортировку пузырьком.
Имя входного\выходного файла задаются через аргументы при запуске.
Возможны баги, а так же код не идеален :).
Сравнение строк по алфавиту сделано через функцию strcmp, не надо придумывать велоспедов.

[sveta11115]

Выручите, пожалуйста, в понедельник сдавать.
Написать программу на C++

Последовательность вещественных чисел сохранить в динамическом списке. Поместить в стек все отрицательные числа, исключив их из динамического списка..

[idm_hello]

Delphi
1) Написать фун-ию, возвращающую значение четырёх наименьших элементов из целочисленного массива A NxN, (N - задано).
2) Написать процедуру, меняющую местами столбцы целочисленной матрицы A NxN относительно среднего столбца матрицы, в случае если N - нечётное число, и заполняющую матрицу нулями в противном случае.
3) Написать процедуру, транспонирующую матрицу A NxN.
4) Написать процедуру, сохраняющую в файле матрицу A NxN.
5) Написать процедуру, считывающую из файла матрицу A NxN.

[Lerr777]

Помогите плиз с С++
1)дана челочисленая триугольная матрица.Определить:
а)кол-во столбцов,не содиржащих ни одного нулевого элемента
в)номер строки с максимальной характеристекой

[Lerr777]

2)написать программу,выполняющую следующие действия:
а)вывод с клавиатуры данных в масив,состоящий из n структур;записи должны быть упорядочены по возрастанию среднего бала
в)вывод на экран фамилию номер группы всех студентов имеющихи 4 и 5
с)если таких студентов нет,вывести соответствующее сообщение

[>>serhio<<]

Срочно нужна помощь на ASM
Найти наиболее длинную цепочку нулевых элементов в одномерном массиве(двухбайтовый вид)
Буду очень благодарен!

[Yanker]

Ребят,
срочно требуется помощь по borland c 3.1
Вычислить сумму S=1!-2!+3!-......+n!
при помощи циклов
я вообще 0....

[DarkSideF]

Знающие люди, помогите решить задачку из курсовой:
Сделать надо на Delphi(!!) на паскале нельзя :(, хотя там бы эта задачка была горазда легче)

Преобразовать матрицу A(m,n) так, что-бы строки с нечетными индексами были упорядочены по убыванию, с чётными - по возрастанию.

сделал так:
1. вводим m и n, нажимаем кнопку (это всё просто)
2. Появляется пустая сетка нужных размеров
2.1 Заполняем матрицу значениями
3. Далее тык button4 и должно выполнятся задание, записывая результат в stringgrid2.

вопросы (видно в прикреплёном исходнике):
№1: у меня при введении значений, вместо поочерёдного заполнения каждого элемента матрицы присваиваются все сразу, как это исправить?
№2: если несложно напишите необходимую операцию при тыке button4

скачать незавершенную наработку тут:
http://upwap.ru/868819

[STIFFmaster]

Помогите написать программу на ASSEMBLER
нужно реализовать ввод(спросить имя пользователя) и вывод посредине экрана в рамке (типа "привет NAME, я компьютер".

[sample]

Ищу человека с неплохим знанием программинга на языке паскаль (или дельфи), необходимо будет написать несложную консольную прогу для обработки строк. О цене договоримся, пишите в личку или icq 426745967.

[3a4eT]

Нужна помощь по асемблеру:
Написать без использования прерываний BIOS и DOS подпрограмму для вывода на экран содержимого регистра AX в двоичной системе на третьей строке экрана.

[mr_walker]

написать на паскале
тема процедуры и функции
определить значение функции y = f (x) на промежутке [a; b] с шагом h используя для вычисления значения функции - подпрограммы функции
дано:
a.) 0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5
b.) | 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75

[mr_walker]

написать на паскале
составить алгоритм вычисления значения функции z = V * a * | b |, где a-среднее арифметическое положительных элементов b-среднее арифметическое отрицательных элементов данной линейной таблице x, содержащей k действительных чисел. для вычисления среднего арифметического воспользоваться вспомогательным алгоритмом, что в перечне своих аргументов содержит величину, которая указывает на то, среднее арифметическое которых нужно определить.

с меня +++++

[Dosia]

написать на паскале
тема процедуры и функции
определить значение функции y = f (x) на промежутке [a; b] с шагом h используя для вычисления значения функции - подпрограммы функции
дано:
a.) 0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5
b.) | 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75

Код:


program Tabulirovanie_funczii;

function fA(x: real):real;
begin
fA := 0.1 * (sin(x) / cos(x)) - sin(4*x);
end;

function fB(x: real):real;
begin
fB := ABS(3*x - cos(x)) / (x - 9);
end;

procedure WriteHeader;
begin
writeln;
writeln(' x y');
readln;
end;

var
a, b, h, x: real;

begin
writeln('0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5');
WriteHeader;
a := -2 * Pi;
b := 2 * Pi;
h := 0.5;
x := a;
while x <= b do
begin
writeln(x:6:4, ' ', fA(x):6:4);
x := x + h;
end;

readln;
writeln('| 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75');
WriteHeader;
a := -7;
b := 7;
h := 0.75;
x := a;
while x <= b do
begin
writeln(x:6:4, ' ', fB(x):6:4);
x := x + h;
end;

readln;
end.


Результат работы:


0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5

x y
...
-5.2832 0.9125
-4.7832 1.6896
-4.2832 -1.2079
-3.7832 0.4693
-3.2832 0.5223
-2.7832 -0.9531
-2.2832 0.4037
-1.7832 1.2147
-1.2832 -1.2510
-0.7832 -0.0907
-0.2832 0.8765
0.2168 -0.7405
0.7168 -0.1838
1.2168 1.2586
1.7168 -1.2314
2.2168 -0.6617
2.7168 0.9465
3.2168 -0.2888
3.7168 -0.6803
4.2168 1.1015
4.7168 -22.6128
5.2168 -1.0829
5.7168 0.7047
6.2168 0.2557

| 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75

x y

-7.0000 -1.3596
-6.2500 -1.2950
-5.5000 -1.1868
-4.7500 -1.0391
-4.0000 -0.8728
-3.2500 -0.7148
-2.5000 -0.5825
-1.7500 -0.4718
-1.0000 -0.3540
-0.2500 -0.1858
0.5000 -0.0732
1.2500 -0.4432
2.0000 -0.9166
2.7500 -1.4679
3.5000 -2.0794
4.2500 -2.7781
5.0000 -3.6791
5.7500 -5.0427
6.5000 -7.4094


написать на паскале
составить алгоритм вычисления значения функции z = V * a * | b |, где a-среднее арифметическое положительных элементов b-среднее арифметическое отрицательных элементов данной линейной таблице x, содержащей k действительных чисел. для вычисления среднего арифметического воспользоваться вспомогательным алгоритмом, что в перечне своих аргументов содержит величину, которая указывает на то, среднее арифметическое которых нужно определить.

с меня +++++

Код:

program Funcziia;

const
k = 10;
V = 1;

var
LinArrayX: array[1..k] of real;
intA: Integer;
a, b: real;

function fZ(aa, bb: real):real;
begin
fZ := V * aa * ABS(bb);
end;

function GetMiddleArithmetic(IsThisA: boolean):real;
begin
if IsThisA then
begin
for intA := 1 to K do
if LinArrayX[intA] >= 0 then
a := a + LinArrayX[intA];
GetMiddleArithmetic := a;
end
else
begin
for intA := 1 to K do
if LinArrayX[intA] < 0 then
b := b + LinArrayX[intA];
GetMiddleArithmetic := b;
end;
end;

begin
writeln('Tabliza znachenii X:');
writeln;
randomize;
for intA := 1 to k do
begin
LinArrayX[intA] := Random(k) - k/2;
writeln('X[', intA, '] = ', LinArrayX[intA]:6:4);
end;
readln;
a := 0;
b := 0;
a := GetMiddleArithmetic(True);
b := GetMiddleArithmetic(False);
writeln('a = ', a:6:4);
writeln('b = ', b:6:4);
writeln('funcziia Z = ', fZ(a, b):6:4);
readln;
end.

Результат работы:

Tabliza znachenii X:

X[1] = 0.0000
X[2] = -5.0000
X[3] = -2.0000
X[4] = 1.0000
X[5] = -5.0000
X[6] = 0.0000
X[7] = 2.0000
X[8] = 2.0000
X[9] = 4.0000
X[10] = 0.0000

a = 9.0000
b = -12.0000
funcziia Z = 108.0000



Tabliza znachenii X:

X[1] = 3.0000
X[2] = -2.0000
X[3] = 4.0000
X[4] = -4.0000
X[5] = -4.0000
X[6] = -3.0000
X[7] = 3.0000
X[8] = 2.0000
X[9] = -4.0000
X[10] = -3.0000

a = 12.0000
b = -20.0000
funcziia Z = 240.0000

[olesy]

помогите с заданием оч нада


1)в динамическом массиве лент определить количество лент, которые не содержат ни одной цифры

2)в целочисленного массиве каждый его элемент изменить, оставив значимыми лишь четыре младшие биты его двоичного представления (остальные битов нулевые)

[redfoxter032]

Дан одномерный числовой массив разработать проект
а) позволяющий формировать двумерный массив включающий эти числа их квадрат куб и четвертую степень с сохранением в файле
б) вывод даных на экран
в) поиск результатов по исходному числу
г)вывод результатов на экран

[ArkNet]

Необходимо решения задачи на чистом С++ :confused:
Постановка задачи
По индивидуальному заданию создать функцию для обработки символьных строк. За образец брать библиотечные функции обработки строк языка С, но не применять их в своей функции. Предусмотреть об¬работку ошибок в задании параметров и особые случаи. Разработать два варианта заданной функции — используя традиционную обработку мас¬сивов и используя адресную арифметику.
Функция Reverse(s)
Назначение: изменение порядка символов в строке s на противо¬положный.

[Ins3t]

To ArkNet:

Набросал по быстрому:

//////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////
#include <iostream>
using std::cout;
using std::endl;
//////////////////////////////////////////////////////////////////////////////////////////////
char * mySrtCpy( char *, const char * );
//////////////////////////////////////////////////////////////////////////////////////////////
char * myStrCat( char *, const char * );
//////////////////////////////////////////////////////////////////////////////////////////////
size_t myStrLen( const char * );
//////////////////////////////////////////////////////////////////////////////////////////////
int main( int argc, char * argv[] )
{
cout << "myStrLen( \"test\" ) = " << myStrLen( "test" ) << endl;

char testVar1[50];
char testVar2[] = "test";
mySrtCpy( testVar1, testVar2 );

cout << testVar1 << endl;

char testVar3[100] = "abc";
char testVar4[] = "dew";

myStrCat( testVar3, testVar4 );

cout << endl << testVar3;
return 0;
}
//////////////////////////////////////////////////////////////////////////////////////////////
size_t myStrLen( const char *string )
{
int i = 0;
for( ; i < string[ i ]; i++ );

return i;
}
//////////////////////////////////////////////////////////////////////////////////////////////
char * mySrtCpy( char *s1, const char *s2 )
{
for( ; ( *s1 = *s2 ) != '\0'; s1++, s2++ );

return s1;
}
//////////////////////////////////////////////////////////////////////////////////////////////
char * myStrCat( char *s1, const char * s2 )
{
size_t size = myStrLen( s1 );

for( int i = 0; ( s1[ size ] = s2[ i ] ); i++, size++ );

return s1;
}
//////////////////////////////////////////////////////////////////////////////////////////////


Если хотите избежать работы со строками в стиле С ( хотя в задании сказано сделать что то на подобие такого ), то можее использовать класс string, будет все гораздо удобнее.

[ArkNet]

Ins3t Большое спасибо...

[ArkNet]

Построить модель аналого-цифрового преобразователя (АЦП), которая работает в реальном времени. Процесс, который дискретизуется, моделируется программой (программным блоком), который выполняет циклическое вычисление функции y=F(x), где x - номер итерации. Преобразователь моделируется программой, которая выполняет с заданной частотой (в реальном времени) прерывание процесса, считывание и запоминание текущего значения функции. Запомнить не меньше 80 значений функции. Обеспечить наглядное представление результатов работы "АЦП".

Индивидуальное задание
функция — y=50*(sin(x/10)+cos(x/8))+R+150; R — в диапазоне 0 — 10; частота — 36.4 Гц.

[Dr.zomber]

помогите плиз задачу решить на delphi :
Полином в степени М.найти его корни на отрезке А В

[SHAXID]

Товарищи, помогите на паскале замутить вот это:

----------------------------------------------------------------
1.Напечатать таблицу значений функций sin x и tg x на отрезке [0,3] с шагом 0.1. Значения x печатать с одной цифрой в дробной части, значения синуса – с пятью, а значения тангенса – в экспоненциальной форме.

----------------------------------------------------------------
2. Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора FOR..DOWNTO..DO. Длина блоков 2 байта. В цикле выводить содержимое каждого скопированного блока.

Здесь что-то уже что смог, то сделал, но сделано с помощью оператора FOR..TO..DO, а нужно FOR..DOWNTO..DO:

uses crt;

var
inp,out:file;
s:string;
i,j,k,n,tmp:integer;
begin
clrscr;
write('Enter filename: ');
{writeln ('proverka’);
Readln;}
readln(s);
assign(inp,s);
reset(inp,1);
assign(out,'output.txt');
rewrite(out,1);
j:=1;
for i:=1 to filesize(inp) div 2 do
begin
blockread(inp,tmp,2,j);
write(tmp);
blockwrite(out,tmp,2,j);
readln;
end;
close(inp);
close(out);
writeln('нажмите любую клавишу для выхода');
readln;
end.
----------------------------------------------------------------

3. const n=10;
type number=1..n;
matr=array [number, number] of real;
num=set of number;
Составить программу, использующую функцию sum(A, s1, s2) для вычисления суммы тех элементов матрицы A, номера строк и столбцов которых принадлежат соответственно непустым множествам s1 и s2 типа num.

----------------------------------------------------------------

4.Имеются линейные однонаправленные списки:
type
p=^item;
item=record
data:real;
reference:p
end;
Написать программу, которая переносит в конец непустого списка L его первый элемент.

Вот нужно исправить код под задание:

program zad1;

uses crt;

type
p=^item;
item=record
data:integer;
reference:p;
end;

var
a,i:integer;
b,temp,temp2:p;

begin
clrscr;
randomize;
{zapolnyaem spisok dannymi}
for i:=1 to 10 do
begin
if i=1 then begin {esli pervii element spiska}
b^.data:=random(100);
b^.reference:=nil; {to ukazatel prisvaivaem 0}
end
else begin {esli ne pervii element}
temp:=b; {to sohranyaem ukazatel na predydushii element vo vremennoi peremennoi}
new(b); {sozdaem novii element spiska}
b^.data:=random(100); {zapolnyaem pole data}
b^.reference:=temp; {prisvaivaem ukazatel na predidushii element}
end;
end;

{vivodim spisok na ekran}
temp:=b; {sm vishe}
while temp<>nil do { poka ne dostignut pervii element spiska s ukazatelem=nil}
begin
writeln(temp^.data); {vivodim soderzhmoe polya data}
temp:=temp^.reference; {perehodim k sleduyushemu elementu}
end;

writeln;
write('vvedite znachenie elementa, kotoryi hotite udalit, a =');
readln(a);

{udalyaem element is spiska}
temp:=b;
while temp<>nil do
begin
temp2:=temp^.reference; {prisvaivaem vremennoi peremennoi temp2 znachenie sleduushego elementa spiska}
{sravnivaem s a, esli ravno, to zamenyaem ukazatel elementa temp1 na ukazatel elementa temp2}
if (temp2^.data = a) then temp^.reference:=temp2^.reference;
temp:=temp^.reference; {perehodim k sleduyushemu elementu}
end;

{snova vivodim spisok na ekran}
temp:=b;
while temp<>nil do
begin
writeln(temp^.data);
temp:=temp^.reference;
end;

readkey;
end.

----------------------------------------------------------------

Помогите чем можете.)

[akasha9]

Срочно нужна помощь


Разработайте на языке Visual С++ структуру элементарного перцептрона, способного распознавать первые две буквы Вашего имени и Вашей фамилии.
- числа рецепторных нейронов (число n S-элементов перцептрона должно быть в пределах 12<=n<=30);
- числа нейронов скрытого слоя;
- величны шага в алгоритме обучения перцептрона;
- вида функции активации нейронов каждого слоя;
- величины порогов нейронов каждгог слоя.
Обучите нейроную сеть.

ПОЖАЛУЙСТА ПОМОГИТЕ

[stepashka_]

Паскаль

Система выражений 3х-9 и 1/х2-4 вот надо написать программу по вычислению этих функций.

[sveta11115]

Создать очередь из двух стеков.

[ShkiperLol]

Здравствуйте. Задача такая сделать Ковер Серпинского ( на С http://forum.vingrad.ru/forum/topic-148304.html ) . Переделайте под Delphi (Window Form) .

Прошу проектом.

[Besi]

кому интересно вот мой скромно дыбиловатый курсовик по с++ зделаный на 2х диалогах и передачи даных из диалога в диалог

может кому нада) вот полный проект(я знаю опимизатор я фиговый)

http://upload.com.ua/get/901654425/

[logon71]

Доброго времени суток.
Народ помогите сделать 2 лабы по Турбо паскалю если правильно будет отблагадарю вмр-ом или яд-ом.

Вот собственно задания:

1 лаба:
Тема: Работа с массивами и метод сортировки.
Цель работы: Составить программу по индивидуальному варианту. Исходный массив вывести на экран и в текстовый файл.

Задание:.В вещественной матрице 7х9 элементов упорядочить элементы каждого столбца в порядке возрастания их значения.

2 лаба:
Тема: Программирование с использованием функций и процедур.
Задание: составить блок-схему и отладить программу по индивидуальному варианту. Исходные данные: вывести матрицу с помощью датчика чисел после формирования чисел. Элементы кратные количеству строк, столбцов и их сумму заменить на номер варианта. На экран вывести исходный материал, скоректирвать материал и решения.

В целочисленной матрице 7х9 элементов найти максимальный элемент, указать его координаты и путём перестановок строк и столбцов поместить его в правый верхний угол.

ася: 417-310

З.Ы. очень нужно... помогите.

[Hunter123]

не могу никак спомнить
как записать 3^x ? в Pascal.

[cel1697i845]

что то в этом роде (давно на ТР не писал).
Program P1;
var
x, sum, i: integer;
Begin
readln(x);
sum := 1;
for i:=1 to x do sum :=sum*3;
writeln(sum);
End.

[Lionis]

- Написать программу на Delphi .
- комментарии в коде +
цена : 500 р.
скачать лабораторную (http://slil.ru/29192546)
http://www.guk-a.com/images/icq_icon.gif два - шесть - шесть - 985656

[miako]

Жестко для 500р

[Lionis]

Жестко для 500р
Хм , а сколько ?

[new-sl]

нужно осуществить связаные списки спомощю аррай-а и укозателеи есть у кавонит какието идеи ? язык С

[GpeX]

Pascal
задать двумерный массив из четырех строчек и столбцов любыми числами
поменять местами столбцы или строчки ( по желанию )

[DJeFRY_RASH]

Delphi
Ребят, помогите пожалуйста с прогой, вот полная программа:
http://depositfiles.com/files/gbikp8akm
Всё в принципе готово, одна проблема, что нужна призма, а получается что из верхней точки линия переходит в диагональ, и идёт к следующей точке, а нужно чтобы были прямые параллельные оси OY :(
Кто может помочь - гляньте ! Заранее, спасибо !

[mr_walker]

написать на Паскале:
тема Типы данных STRING верхние операторы и функции для работы со строками

1.) Выяснить сколько раз в предложенном тексте встречается каждое из 5 на ваш выбор сочетания двух букв.
2.) Задано натуральное число n, равное выраженной в копейках цене товара например 317, 5005, 100, ... выразить цену в гривнях и копейках, например:
3грн 17 коп, 50грн 5 коп, 1грн ...
ГРАФИКА на Паскале
а) построить стереометрический рисунок: в правильной четырехугольной пирамиде вписан шар. б) Октаэдр в.) Сфера в срезанном конусе
г.) построить график функции y (x) на промежутке [a; b] с автоматическим масштабом на весь экран: y = x * (sin (2x) * cos (x) y = (sin (x)) ^ 4x + (cos (x)) ^ 4x y = 1/корень четвертой степени с (1-sin (3x))
д.) бежала мышь, задела яйцо, яйцо упало и разбилось ....
э) вначале семестра чебурашка улыбается, к концу глаза становятся печальными (из круглых делаются узкими, с глаз катятся слезы ухо опускается.


если можно...

[miako]

бесплатно чтоль? :)

[herfleisch]

нужно осуществить связаные списки спомощю аррай-а и укозателеи есть у кавонит какието идеи ? язык С

Напиши то же самое, только по-русски.

[BrainDeaD]

Напиши то же самое, только по-русски.переведу за него:
нужно осуществить связанные списки (linked list) с помощью массива (Array) и указателей (Pointer). есть у кого-нибудь какие-то идеи? язык С.

[herfleisch]

переведу за него:
нужно осуществить связанные списки (linked list) с помощью массива (Array) и указателей (Pointer). есть у кого-нибудь какие-то идеи? язык С.


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


struct node {
char * data; // Указатель на данные
int nextNumber; // Номер следующего элемента
};

node ourList[10];


Указатели есть, массив есть.

[Octan4eg]

Препод задал ргз и собственно ушёл в запой)) тоесть у него не спросить(
Задание:разработать приложение средствами Delphi осуществляющее работу с базой данных (БД создаётся в формате MS access);
1)открытие файла БД(open dialog)
2)выбор таблицы из БД(combobox)
3)отображать поля таблицы в режиме формы
4)осуществлять поиск в данных по 2ум запросам

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

[7on]

Сформирывать из исходного массива А массив В, в котором вначале идут все положительные, затем все отрицатильные, а в конце нулевые елементы массива А.
Хелп плиз, visual basic 6

[Chrome~]

Сформирывать из исходного массива А массив В, в котором вначале идут все положительные, затем все отрицатильные, а в конце нулевые елементы массива А.
Хелп плиз, visual basic 6
7on, самый банальный способ: делай три прохождения по массиву A, добавляй в B сначала значения, которые > 0, потом, которые < 0, ну и в конце, которые = 0.

[7on]

А сам програмный код? :)

[Nikolka]

Добрый день античатовцы!!! У меня проблемма с лабораторными работами по С++
В общем вот задача:
Дан массив из n строк. Найти строки, начинающиееся буквой a и оканчивающиеся буквой z (если таких слов нет, сообщить об этом). Масив описать как указатель на указатель.
Я сам начал делать но что то вошел в тупик. Вот что накатал но почему то не работает. Может кто подскажет в чем дело? Буду очень признателен!
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <math.h>
#include <iostream>
using namespace std;
int probel(char *s, int i)
{while (s[i]!='\0' && s[i]==' ')
i++; return i;}
int slovo(char *s, int i)
{while (s[i]!='\0' && s[i]!=' ')
{i++; return i;}
}
//int print_sl (char *s, int i, int j)
// {while (i<j)
// {putchar(s[i]; i++;}
// cout<<s[i];
// }
int main
{char **F,**F1,s[80]; int i,j,n,**mt,m;;


puts("bb ctr"); gets(s);
i=probel(s,0);
cout<<"vvedite chislo strok";
cin>>n;

F1=new char*[n] ;F= new char*[n];
for (i=0;i<n;i++)
F1[i]=new char[20];
cout<<"vvedite poocheredno stroki \n";
for(j=0;j<n;j++)
cin >>F1[j];
for(j=0;j<n;j++)
if (F1[0][j]=='a' && F1[n][j]=='z')
{cout<<j<<'is';}
for (i=0; i<n; i++)
delete[]F1[i];
delete []F; delete []F1;

while(s[i]!='\0');
{ j=slovo(s,i);
print_sl(s,i,j);
putchar('\n')
i=probel(s,j);
}
for(i=1; i<n; i++)
if(s[0]='a' && s[n-1]='z')
cout<<"stroka"<<i;}
getch();}

[mr_walker]

Пост #2824
помогите пожалуйста... оч. надо!

[lastarmyman]

Необходимо реализовать программу "Автоматизация функций учета постановлений законодательного собрания и их исполнения" или что лучше "Составление плана производства, планирование себестоимости" . Желательно на C# windowsforms используя бд access. За деньги. До утра 2 июня...

[Octan4eg]

а по посту №2829 кто-нибудь может что сказать?

[Dimaus]

раньше на php программировал, теперь на С перешел,
дошел до функций, не могу решить задачи:

1. Описать функцию получения наибольшего общего делителя двух чисел.
2. Описать функцию, которая в том из трёх векторов x,y,z, где больше всего отрицательных элементов (считать, что такой вектор один), все его положительные элементы заменяет на их кубы – если это вектор х или вектор z и на их обратные величины – если это вектор у.

[Gluck-a]

ковыряюсь с курсовой и что то затуп полный(( значит пишу функцю удаления строки из файла, для этого все что есть в файле закидываю в динамический массив строк, в памяти прокручиваю удаляю нужную строку и вывожу результат на экран,а оно шишь)) не понимает что что я написал ему)) заносит в масив обракодабру, помогите разобраться, вот код%

void del(void)
{
FILE *BD;
Persson p;
int IDbuf=1,i=0,x;

BD=fopen("d:\BD.dat","r");

fscanf(BD,"%d%s%s%lf",&p.ID,p.lastName,p.firstName,&p.Oklad);
while(!feof(BD))
{
fscanf(BD,"%d%s%s%lf",&p.ID,p.lastName,p.firstName,&p.Oklad);
IDbuf++;
}
fclose(BD);

char **mas = new char*[IDbuf];
if ((BD=fopen("d:\BD.dat","r"))==NULL)
{
printf("Не возможно открыть фал BD.txt\n");
return;
}
fscanf(BD,"%d%s%s%lf",&p.ID,p.lastName,p.firstName,&p.Oklad);
mas[p.ID] = new char[256];
sprintf(mas[p.ID], "%d %s %s %.2lf", p.ID, p.lastName, p.firstName, p.Oklad);
while(!feof(BD))
{
mas[p.ID] = new char[256];
sprintf(mas[p.ID], "%d %s %s %.2lf", p.ID, p.lastName, p.firstName, p.Oklad);
fscanf(BD,"%d%s%s%lf",&p.ID,p.lastName,p.firstName,&p.Oklad);
}

//проверяю чо он хранит в массиве и уже тут понятно что что то не то делаю((


for(i=0;i<IDbuf;i++)
printf("%s\n",mas);

}

[aydar]

Ребят, нужна помощь в создании токого списка, и добавление 1 эл после заданного.
Данно
type
tpel:^element;
element:record
num:inteher;
p:tpel;
end;
var
first(ук на 1 эл списка) ,n(ук на эл перед которым доб новый),f(ук на эл после которого доб новый эл),q (ук на новый эл):tpel;
Num-это информ поле, любое число (1,2,3,4,5...)

[koSteck]

ПРивет, всем!
короче у меня есть прога, в ней две задачи, и есть модуль с помощью которого она работает!
Задача: разбить прогу на две части, т.е. в 1-й проге - 1-я задача, во 2-й соответственно вторая, ну и с модулем там что нить намутить)
плиз в асю - 282435
НУЖНО СРОЧНО, т.е. СЕГОДНЯ

[FullAxe]

помогите кто нить осуществить деление больших чисел столбиком в C++//

[Idainet]

1. Описать функцию получения наибольшего общего делителя двух чисел.

http://ru.wikipedia.org/wiki/Алгоритм%20Евклида

int gcd (int a, int b) {
return b == 0 ? a : gcd(b,a%b);
}

[YarCyBeR]

Помогите написать программу на Masm:
Вводится дата, нужно подсчитать сколько месяцев от вводимой даты до текущей!

[Dimaus]

Ребят, помогите задачу решить на С.
Дана строка символов, в которой есть круглые скобки. Написать программу, формирующую новую строку без содержимого в круглых скобках.

[miako]

За сколько? в лс

[Dimaus]

сейчас)))

[Idainet]

Ребят, помогите задачу решить на С.
Дана строка символов, в которой есть круглые скобки. Написать программу, формирующую новую строку без содержимого в круглых скобках.

# include <stdio.h>

int main()
{

char ch;
int Open = 0;

while ( scanf("%c", &ch) != EOF )
{
if(Open > 0)
{
if (ch == ')') --Open;
}
else
{
if (ch == '(') ++Open;
else printf("%c", ch) ;
}
}

return 0;
}

[Octan4eg]

Задание:разработать приложение средствами Delphi осуществляющее работу с базой данных (БД создаётся в формате MS access);
1)открытие файла БД(open dialog)
2)выбор таблицы из БД(combobox)
3)отображать поля таблицы в режиме формы
4)осуществлять поиск в данных по 2ум запросам

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

помогите пожалуйста с проблемной частью

[Lerr777]

народ,кто нибудь может помочь с постом#2792 и#2793.С меня++++++

[AIRZI]

Тут решают задачки на Mathlabe?

[Gen1rus]

прога (на C++):

#include "D:\Ñòóäåíò\kl\êóðñà÷\laba 111.h"
//#use delay (clock=20000000)


void main(){

int val,n,m;
int16 t=256;
int16 b=1;
setup_psp(PSP_DISABLED);
setup_spi(FALSE);
setup_adc(ADC_CLOCK_DIV_32);
setup_adc_ports(ALL_ANALOG);

do
{
set_adc_channel(1);
delay_ms(10);
val= read_adc();


while(n<17)
{
output_b(b<<n);
output_d(b<<n-8);
m=5*val;
delay_ms(m);
n++;
}
n=0;
}
while (true);
}


Помогите с блок-схемой

[Colkru]

Реализация "SOCKS-клиента". Реализовать общение компьютера, находящегося за firewall с сетью "Интернет" с помощью socks-сервера по протоколу TCP/IP. Общение должно происходить с помощью подмены разделяемой библиотеки со стандартными вызовами типа connect, bind и др. Нужно сделать на СИ под Linux. Помогите кто, чем может))))
Помогите, кто чем может))) Уже сдавать в понедельник. Вознаграждение гарантируется)))

[XimiK69]

народ,кто нибудь может помочь с постом#2792 и#2793.С меня++++++
Задача про студентов . . .
#include <iostream>
#include <string>
using namespace std;

const int C = 3;
struct Student{
string _name;
int _group;
double _mark[C];
};

int Start();
void CreateBasa(Student *&Basa, int N);
template <typename T> void Sort(Student *&Basa, int N, T symbol);
bool cmp(Student first, Student last, char c);
bool cmp(Student first, Student last, int c);
bool cmp(Student first, Student last, double c);
int Print(Student *Basa, int N);
int PrintBasa(Student *Basa, int N);

int main(){
setlocale(LC_CTYPE,".1251");
Start();
return 0;
}

//-----------------------
int Start(){
int N = 0;
cout << "Сколько студентов в базе: ";
cin >> N;

Student *Basa = new Student[N];

CreateBasa(Basa,N);
Sort(Basa,N,1.0);
PrintBasa(Basa,N);
Print(Basa,N);
delete[] Basa;
return 0;
}

//------------------------
void CreateBasa(Student *&Basa, int N){
for(int i = 0; i < N; i++){
cout << "Имя студента: ";
cin >> Basa[i]._name;
cout << "Номер группы: ";
cin >> Basa[i]._group;
cout << "Оценки по предметам: ";
for(int j = 0; j < C; j++){
cout << "Оценка по предмету: ";
cin >> Basa[i]._mark[j];
}
}
}
//------------------------
template <typename T>
void Sort(Student *&Basa, int N, T symbol){
bool fl;
do{
fl = false;
for(int i = 0; i < N-1; i++){
if( cmp(Basa[i],Basa[i+1],symbol) ){
Student tmp = Basa[i];
Basa[i] = Basa[i+1];
Basa[i+1] = tmp;
fl = true;
}
}
}while(fl);
}

//---------------------
bool cmp(Student first, Student last, char c){
if(first._name > first._name){
return true;
}
return false;
}
//---------------------
bool cmp(Student first, Student last, int c){
if(first._group> last._group){
return true;
}
return false;
}
//---------------------
bool cmp(Student first, Student last, double c){
double FRes = 0.0, LRes = 0.0;
for(int i = 0; i < C; i++){
FRes += first._mark[i];
LRes += last._mark[i];
}
if(FRes > LRes){
return true;
}
return false;
}

//---------------
int Print(Student *Basa, int N){
double Good = 4.0;
bool flag = true, fl = true;
for(int i = 0; i < N; i++){
for(int j = 0; j < C; j++){
if(Basa[i]._mark[j] < Good){
flag = false; break;
}
}
if(flag){
cout << Basa[i]._name << " " << Basa[i]._group << endl;
fl = false;
}
flag = true;
}
if(fl){ cout << "\"Хороших\" студентов нет" << endl; }
return 0;
}

//-----------------
int PrintBasa(Student *Basa, int N){
for(int i = 0; i < N; i++){
cout << Basa[i]._name << " " << Basa[i]._group << " ";
for(int j = 0; j < C; j++)
cout << Basa[i]._mark[j] << " ";
cout << endl;
}
return 0;
}
Сортировку "Пузырек" можешь заменить на более быструю сортировку, писал просто для примера или задачу надо было писать на классах?

[XimiK69]

Помогите плиз с С++
1)дана челочисленая триугольная матрица.Определить:
а)кол-во столбцов,не содиржащих ни одного нулевого элемента
в)номер строки с максимальной характеристекой
Здесь просто нужно знать определения по линейной алгебре) Википедия тебе в помощь. ....

[YarCyBeR]

Помогите плиз (https://forum.antichat.ru/showpost.php?p=2180339&postcount=2843)

[stilus]

Ребята, нужна срочно помощь, нужно решить задачу в делфи с формами:

1)Дан массив A размера N. Вывести его элементы в следующем порядке:
A1, A2, AN, AN–1, A3, A4, AN–2, AN–3, … .

2)Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.

3)Дана матрица размера M х N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.

4)Дана матрица размера M х N. Найти количество ее строк, элементы которых упорядочены по возрастанию.

Отблагодарю, если что пишите в ICQ-386892 или сдесь

[HenryL]

Задача (C++):

Гаражная стоянка имеет одну стояночную полосу, причем единственный въезд и единственный выезд находятся в одном конце полосы. Если владелец автомашины приходит забрать свой автомобиль, который не является ближайшим к выходу, то все автомашины, загораживающие проезд, удаляются, машина данного владельца выводится со стоянки, а другие машины возвращаются на стоянку в исходном порядке. Написать программу, которая моделирует процесс прибытия и отъезда машин. Прибытие или отъезд автомашины задается командной строкой, которая содержит признак прибытия или отъезда и номер машины. Программа должна выводить сообщение при прибытии или выезде любой машины. При выезде автомашины со стоянки сообщение должно содержать число случаев, когда машина удалялась со стоянки для обеспечения выезда других автомобилей.

Нужно решить в короткие сроки (до завтра). Прошу помочь с решением.
З.Ы. естественно, за определенную плату

[XimiK69]

классическая задача для работы со стеком, а в чем сложность задачи?

[HenryL]

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

[XimiK69]

Пример программы для выезда машины из гаража
Пусть номер машины - это позиция в стеке.
#include <iostream>
#include <stack>
using namespace std;

int Start();
void Replace(stack<int>&,int);

int main(){
setlocale(LC_ALL,"Russian");
Start();
return 0;
}

//------- Старт ------/
int Start(){
stack<int> Garage;
int count = 0;
cout << "Сколько машин в гараже: ";
cin >> count;
for(int i = 0; i < count; i++)
Garage.push(0);
int number = 0, menu = 0;
do{
cout << "В гараже " << count << " машин" << endl;
cout << "Номер машины, которая покидает гараж: ";
cin >> number;
if(number >= count){
cout << "Такой машины в гараже нет!" << endl;
}
else{
Replace(Garage,number); count--;
}
cout << "Хотите повторить? ДА - 1" << endl;
cin >> menu;
}while(menu == 1 && number != 0);
return 0;
}

//----------------
void Replace(stack<int> &Garage, int number){
stack<int> tmp;
for(int i = 0; i < number; i++){
tmp.push(Garage.top()+1);
Garage.pop();
}
cout << "Машина удалялась со стоянки " << Garage.top() << " раз" << endl;
Garage.pop();
while( !tmp.empty() ){
Garage.push(tmp.top());
tmp.pop();
}
}
Надеюсь условие задачи понял верно)

[HenryL]

Надеюсь условие задачи понял верно)
да все верно, огромное спасибо!
но нужно еще заполнение стека, т.е. въезд машин в гараж, чтобы написанные вами функции работали с введенными данными. если не сложно, помогите и с этим

[HenryL]

помогите дописать оставшуюся часть, времени совсем нет, ничего не успеваю

[AIRZI]

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

[NTFF]

Привет всем!!!!
Есть люди которые могут помочь реализовать расчет в экселе определенного интегралла

Требования к программе
Программа должна реализовывать следующие действия:
1. Ввод исходных данных должен осуществляться с помощью формы.
2. Обеспечивать ввод пользователем исходных данных для вычислений, с контролем входной информации.
3. Выбор метода численного интегрирования
4. Вычисление значение определенного интеграла с заданной точностью.
5. Результат расчетов представлять на листах книги.
6. Построение графика интегрированной функции с указанием границ отрезка, на котором функция интегрируется. График функции изображается в декартовой системе координат, с осями координат по нижней и левой границе области представления графика. Обязательно наличие разметки на осях, сетки и подписей. Ось абсцисс имеет надпись «Значение аргумента х», ось ординат  «Значение функции f(x)», заголовок графика  «График подынтегральной функции».

Входные данные
 верхняя и нижняя граница интегрирования;
 подынтегральная функция;
 точность вычислений;
 начальное количество разбиений;
 метод решения.
Выходные данные
 количество разбиений, при котором было получено значение интеграла;
 значение интеграла;
 метод численного интегрирования;
 график подынтегральной функции.

Вот функция (http://www.img3.4picture.ru/pictures/53b9ef31e072ebab4035e4cff00d7757.jpg)

[7on]

Vb 6
помогите написать програмный код! Сформировать из исходного массива А массив В, в котором вначале идут все положительные, затем отрицатильные, а в конце нулевые елементы массива А.

const k=10
dim j, t, l as integer
dim c(1 to 10
for l=1 to k
c(l)=inputbox(l)
next l
for l=1 to k
for j=(l+1) to k
if c(l) > c(j) then
r=c(l):c(l)=c(j):c(j)=r
end if
next j
next l
for L=1 to k
print c(l)
next
end sub


все правильно, ток нулевые надо в конец , помогите плиз!!!

[7on]

Очень нужно, помогите пожалуйста!!!!!!

[stilus]

ребята опять нужна ваша помощь нужно решить две задачки:
1)Даны два массива A и B размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий мас¬сив C (размера 10) остался упорядоченным по убыванию.
2)Дан массив A размера N. Сформировать новый массив B того же раз¬мера по следующему правилу: элемент BK равен сумме элементов массива A с номерами от 1 до K.
P.S. в долгу не останусь))) кто сделает пишите в аську 386892

[mozgpanic]

1)Даны два массива A и B размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий мас¬сив C (размера 10) остался упорядоченным по убыванию.



A,B=[3,7,9,11,145],[0,1,5,6,8]
k=A+B
for x in range(len(k)-1):
for y in range(len(k)-1-x):
if k[y]<k[y+1]:
k[y],k[y+1]=k[y+1],k[y]
print(k)



2)Дан массив A размера N. Сформировать новый массив B того же раз¬мера по следующему правилу: элемент BK равен сумме элементов массива A с номерами от 1 до K.



import random
A,B,M=[],[],0
n=input('Введите размер массива:')
n=int(n)
for x in range(n):
A.append(random.randint(0,9))
M=M+A[x]
B.append(M)
print(A)
print(B)

[Godfather Bulan]

http://slil.ru/29344117


ЗАДАНИЯ ДЛЯ ВЫПОЛНЕНИЯ КУРСОВОЙ РАБОТЫ

отмеченные задание зеленым(3). помогите плиз. там вроде ничего сложного, но я в кубейсике ноль. Да и не мне надо, а другану