[Muraki]

Добрый вечер.
Я к вам не с пустыми руками, а с тупым вопросом.
Имеется: delphi7, quickreport5 и простой select-запрос, в котором выбираются некоторые данные, сгруппированные по дате. Дата идет в формате dd.mm.yyyy. А теперь, внимание, вопрос: как сделать в отчете группировку по месяцам? То есть чтобы выводились данные не за конкретное число месяца, а за весь месяц в сумме?
Понимаю, что вопрос нубский, но надеюсь, поможете.

---

новосибирск,2-4 марта,я орг - жду всех..)

[курить_]

Доброго времени суток! Приглашаем Вас принять участие в конференции
"СПО как культура жизни"

Время проведения: 2,3,4 марта. С 17 до 20-выступления докладчиков. С 15 часов практическая деятельность.
Место проведения: НГТУ, 7 корпус (АВТФ), I поточная аудитория.

Цель конференции:

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


Задачи конференции:

Показать различия между знаниями, получаемыми в образовательном процессе и на реальных жизненных предприятиях
Сформулировать образ "IT специалист XXI века"
Рассмотрение перспектив использования СПО в свете современных достижений информационных технологий
Рассмотрение образовательных аспектов использования СПО в Новосибирской области

Мы приглашаем вас принять участие и будем рады, если вы выступите с докладом
(в этом случае убедительно просим сообщить нам тему вашего выступления и 3-5 ключевых слов,
мы ждём от вас письма по адресу [email protected]).

Более подробную информацию можно получить:
www.spo.nsk.ru
ltk.freedomcenter.info
[email protected]

@темы: Работа

---

[Полбутылки сентября]

товарищи, не дайте погибнуть во цвете лет.
кто-нибудь может посоветовать толковый мануал по LabView?

---

Продолжаю пытаться понять компилятор

[-=TurboRufus=-]

Опять же имеется класс (двунаправленный кольцевой список):
class cRingList {
private:
cNode1* first;
cNode1* last;
cNode1* cur;
public:
cRingList();
bool IsEmpty();
void AddRight(int);
void AddLeft(int);
void DeleteLast();
void DeleteFirst();
int Size();
void GoNext();
void GoPrev();
void GoFirst();
void GoLast();
bool IsFirst();
bool IsLast();
void DelElem(int num);
int GetData();
void SetData(int);
void AddAfterNum(int num, int data);
~cRingList();
};

Описание класса:

cRingList::cRingList() {
first = NULL;
last = NULL;
cur = NULL;
std::cout << "Constructor" << std::endl;
}

bool cRingList::IsEmpty () {
return (first == NULL);
}

void cRingList::AddRight (int val) {
cNode1* tmp;
tmp = new cNode1 ();
tmp->SetData(val);
if (IsEmpty()) {
first=tmp;
last=tmp;
first->SetNext(last);
last->SetNext(first);
last->SetPrev (first);
first->SetPrev (last);
cur = first;
}
else {
tmp->SetNext(first);
tmp->SetPrev(last);
last->SetNext(tmp);
first->SetPrev(tmp);
last = tmp;
}
}

void cRingList::AddLeft(int val) {
cNode1* tmp;
tmp = new cNode1 ();
tmp->SetData (val);
if (IsEmpty()) {
first=tmp;
last=tmp;
first->SetNext (last);
last->SetNext (first);
last->SetPrev (first);
first->SetPrev (last);
cur = first;
}
else {
tmp->SetNext(first);
tmp->SetPrev(last);
last->SetNext(tmp);
first->SetPrev(tmp);
first=tmp;
}
}

void cRingList:eleteLast() {
if (!IsEmpty()) {
if (Size() == 1) {
delete (last);
last = NULL;
first = NULL;
cur = NULL;
} else {
cur = last->GetPrev();
cur->SetNext (first);
first->SetPrev (cur);
delete (last);
last = cur;
}
}
}

void cRingList:eleteFirst() {
if (!IsEmpty()) {
if (Size() == 1) {
delete (first);
first = NULL;
last = NULL;
cur = NULL;
} else {
cur=first->GetNext();
last->SetNext(cur);
cur->SetPrev(last);
delete (first);
first = cur;
}
}

void cRingList::GoNext(){
cur = cur->GetNext();
}

void cRingList::GoPrev() {
cur = cur->GetPrev();
}

void cRingList::GoFirst() {
cur = first;
}

void cRingList::GoLast() {
cur = last;
}

bool cRingList::IsFirst() {
return (cur==first);
}

bool cRingList:: IsLast() {
return (cur == last);
}

int cRingList::Size() {
if (IsEmpty()) return 0;
else {
GoFirst();
int i=1;
while (!IsLast()) {
cur->GoNext();
i++;
}
return i;
}
}

void cRingList:elElem(int num) {
if (num > 0) {
if ((!IsEmpty()) && (Size() >= num)) {
if (Size() == 1) {
delete (first);
cur = NULL;
first = NULL;
last = NULL;
} else {
GoFirst();
int i=1;
while (i < num) {
GoNext();
i++;
}
(cur->GetNext())->SetPrev(cur->GetPrev());
(cur->GetPrev())->SetNext(cur->GetNext());
delete (cur);
GoFirst();
}
}
}
}

int cRingList::GetData() {
if (cur != NULL) return (cur->GetData());
}


void cRingList::SetData(int data) {
if (cur != NULL) cur->SetData (data);
}

void cRingList::AddAfterNum(int num, int data) {
if ((!IsEmpty ()) && (Size () >= num)) {
if (num == 0) AddLeft(data);
else {
if (num == Size ()) AddRight(data);
else {
GoFirst();
int i = 1;
while (i != num) {
GoNext();
i++;
}
cNode1* tmp;
tmp = new cNode1 ();
tmp->SetData (val);
tmp->SetNext (cur->GetNext);
tmp->SetPrev (cur);
(cur->GetNext())->SetPrev(tmp);
cur->SetNext (tmp);
}
}
}
}

cRingList::~cRingList() {
std::cout << "Destructor";
}

Ошибка: error C2601: 'GoFirst' : local function definitions are illegal
Идентичные ошибки выводятся для GoPrev, GoLast, IsFirst, IsLast, DelElem, GetData, SetData, Size, AddAfterNum.

UPD. Проблема была в том. что в описании ф-ции DeleteFirst() нехватало одной закрывающей фигурной скобки. Вопрос закрыт =)

---

Что означает ошибка?

[-=TurboRufus=-]

Есть класс (Элемент двунаправленного списка):

class cNode1 {
private:
int data;
cNode1* prev;
cNode1* next;
public:
cNode1 (int = 0);
cNode1 (const cNode1&);
int GetData();
cNode1* GetNext();
cNode1* GetPrev();
void SetData(int);
void SetNext(cNode1*);
void SetPrev(cNode1*);
~cNode1 ();
};

Описание класса:

cNode1::cNode1 (int val) {
data = val;
next = NULL;
prev = NULL;
}

int cNode1::GetData () {
return data;
}

cNode1* cNode1::GetNext () {
return next;
}

cNode1* cNode1::GetPrev () {
return prev;
}

void cNode1::SetData (int data) {
this->data = data;
}

void cNode1::SetNext (cNode1* next) {
this->next = next;
}

void cNode1::SetPrev (cNode1* prev) {
this->prev = prev;
}

cNode1::~cNode1 () {
cout << "~cNode1:" << endl;
cout << "val = " << data << endl;
cout << "~cNode1." << endl;
}

Собственно при компиляции вылетают следущие (однотипные) ошибки:
error C2662: 'GetData' : cannot convert 'this' pointer from 'const class cNode1' to 'class cNode1 &'
Conversion loses qualifiers;

то же самое для методов GetNext и GetPrev. Что это означает, и как их можно вообще исправить?

---

функция

[Scabby]

У меня есть функция f(x)=ax^2+bх+c
пользователь вводит свою функцию, потом при комплеляции выводятся коэфициенты a,b,c.
не представляюкак разбить функцию саму ax^2+bх+c на токены, чтобы определялись знаки цифры и т.д.
каждого оператора....(((
помогите

Делфи

---

Games

[hauff]

Хочу научиться писать простенькие игры, вроде летящего в 2d самолётека стреляющего вперёд по наземным целям. Задумка Visual C, возможно QT + OpenGL/DirectX. Посоветуйте с чего начать, интересуют хорошие сайты, где толково изложат принципы работы движков и графики.

Спасибо!

---

Литература по Borland C++

[liric]

пожалуйста,подскажите книги/ссылки на книги по программированию в Borland C++. Хотелось бы, чтобы там говорилось и о такой древности,как Borland C++ 3.1 для MS Windows и Dos. и ещё ищу книгу Герберт Шилд "Программирование на Borland C++",если знаете,подскажите ссылку,а то не найду её никак((
заранее спасибо

---

Алгоритм

[уга-буга]

Доброго времени суток! поделитесь , пожалуйста, знаниями =)

необходимо создать градиентную заливочку замкнутой области. я использую рекурсивный алгоритм на основе серий пикселов(т.е. линиями заливаю). он отлично работает для выпуклых фигур, а если в фигуре имеется "дырка" (в смысле, как в сыре, а не в контуре) или если фигура изогнута как синусоида то результат вот так выглядит:


как мне его можно изменить ?

@темы: Работа

---

[Scabby]

пишу прогу соударение шаров.
аррр.. возникла еще проблема..

точнее 3..



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

в коде выдает ошибку.

2)прописала столкновение шаров.ошибку не выдает, но почему-то не работает_)

3)1 шар летает в форме, а потом куда-то улетает

код:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

const
MaxBalls=10;

Colors: array[0..4] of TColor = (clRed, clBlue, clLime, clYellow, clFuchsia);

type
TDirection=(dLeft,dUpleft,dupright,dright,
ddownright,ddownleft,ddown,dup);

TBall=record
Button1: TButton;
id:byte;
x,y,x1,y1:integer;
size:byte;
Direction:TDirection;
Speed:byte;
Color:TColor;
BorderColor:TColor;

end;

TForm1 = class(TForm)
Paint: TButton;
Timer1: TTimer;
PaintBox1: TPaintBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;

procedure Timer1Timer(Sender: TObject);
procedure PaintClick(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
procedure DrawBalls;

{ Private declarations }
public
{ Public declarations }

balls:array[1..MaxBalls] of TBall;

end;

var
Form1: TForm1;
MyBMP:TBitmap;
ball:TBall;
map_width, map_height: word;
j,i:integer;




implementation

{$R *.dfm}

procedure TForm1.DrawBalls;
var
i: integer;
begin

with MyBMP.Canvas do
begin
Brush.Color:=clWhite;
FillRect(ClipRect);
end;
for I := 1 to MaxBalls do
with balls[i] do
begin
MyBMP.Canvas.Pen.Color:=BorderColor;
MyBMP.Canvas.Brush.Color:=Color;
MyBMP.Canvas.ellipse(x-size,y-size,x+size,y+size);
end;
PaintBox1.Canvas.Draw(0,0,MyBMP);
end;

procedure TForm1.PaintClick(Sender: TObject);
var
i: integer;
//создаем шары
begin

randomize;
for I := 1 to MaxBalls do
with balls[i] do begin
id:=i;
size:=StrToint(Edit2.Text);
direction:=TDirection (random(8) );
speed:=StrToint(Edit3.Text);
color:=colors[Random(5)];
BorderColor:=clBlack;
x:=random(471)+10;
y:=random(471)+10;
x1:=x+40;
y1:=y+40;
end;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
for i:=1 to MaxBalls do
begin
ball := balls[i];
case Ball.Direction of
dLeft: with ball do x:=x-Speed;

dUpleft: with ball do begin
x:=x-Speed;
y:=y-Speed;
end;

dupright: with ball do begin
x:=x+Speed;
y:=y-Speed;
end;

dright: with ball do x:=x+Speed;

ddownright: with ball do begin
x:=x+Speed;
y:=y+Speed;
end;

ddownleft: with ball do begin
x:=x-Speed;
y:=y+Speed;
end;

ddown: with ball do y:=y+Speed;
dup: with ball do y:=y-Speed;
end;

if ball.x<=10 then
begin
if( Ball.Direction = dLeft ) Then Ball.Direction:= dright;
if( Ball.Direction = dUpleft ) Then Ball.Direction:= dupright;
if( Ball.Direction = ddownleft ) Then Ball.Direction:= ddownright;
end;

if ball.y<=10 then
begin
if( Ball.Direction = dUpleft ) Then Ball.Direction:= ddownleft;
if( Ball.Direction = dup ) Then Ball.Direction:= ddown;
if( Ball.Direction = dupright ) Then Ball.Direction:= ddownright;
end;

if ball.x >= (PaintBox1.Width-13) then
begin
if( Ball.Direction = dright ) Then Ball.Direction:= dLeft;
if( Ball.Direction = ddownright ) Then Ball.Direction:= ddownleft;
if( Ball.Direction = dupright ) Then Ball.Direction:=dUpleft;
end;

if ball.y >= (PaintBox1.Height-12) then
begin
if( Ball.Direction = ddown ) Then Ball.Direction:= dup;
if( Ball.Direction = ddownleft ) Then Ball.Direction:= dUpleft;
if( Ball.Direction = ddownright ) Then Ball.Direction:= dupright;
end;
balls[i]:=ball;
end;

//столкновение шаров

for j :=1 to Maxballs do begin
if i=j then continue;
if sqrt(sqr(ball.x-balls[j].x)+sqr(ball.y-balls[j].y))<=2*balls[j].size+ball.speed
then
begin
if Ball.Direction = dLeft then Ball.Direction:= dright;
if Ball.Direction = dright then Ball.Direction:= dLeft;
if Ball.Direction = dUpleft then Ball.Direction:= ddownright;
if Ball.Direction = ddownright then Ball.Direction:= dUpleft;
if Ball.Direction = dupright then Ball.Direction:= ddownleft;
if Ball.Direction= ddownleft then Ball.Direction:= dupright;
if Ball.Direction = ddown then Ball.Direction:= dup;
if Ball.Direction = dup then Ball.Direction:= ddown;

if Balls[j].Direction = dLeft then Balls[j].Direction:= dright;
if Balls[j].Direction = dright then Balls[j].Direction:= dLeft;
if Balls[j].Direction = dUpleft then Balls[j].Direction:= ddownright;
if Balls[j].Direction = ddownright then Balls[j].Direction:= dUpleft;
if Balls[j].Direction = dupright then Balls[j].Direction:= ddownleft;
if Balls[j].Direction = ddownleft then Balls[j].Direction:= dupright;
if Balls[j].Direction = ddown then Balls[j].Direction:= dup;
if Balls[j].Direction = dup then Balls[j].Direction:= ddown;

DrawBalls;
end;
end;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin

MyBMP:=TBitmap.Create;
MyBMP.Width:=500;
MyBMP.Height:=500;
MyBMP.Canvas.Pen.Color:=clRed;
MyBMP.Canvas.Brush.Color:=clRed;
map_width:=500;
map_height:=500;
PaintBox1.Width:=map_width;
PaintBox1.Height:=map_height;
end;

end.

---

Приветствую программистов

[bishop3000]

Приглашаю программистов в свой блог.
У меня вы найдете много интересного, например, Рождественское программистское интервью и Новогоднее программистское интервью, в которых я собрал короткие интервью у 33 очень хороших программистов! Море полезной информации.

---

[-=TurboRufus=-]

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

---

Дельфи

[edge]

Здраствуйте. Вопрос по Дельфи.
Есть четко упорядоченный список, который может меняться в процессе программы (порядок).
Логически он очень подходит под перечисление, но перечисление - это константа и его нельзя менять в процессе выполнения программы.
Данный список, упорядоченный от 1 до н (число элементов у меня не меняется), я использую в качестве индексов массива и все.
Так как нельзя менять тип перечисление в процессе работы программы, мне пришлось создать ряд простых переменных, в который содержаться цифры от 1 до н. Но слишком уже этот набор переменных является набором данных одного типа, как цвета у светафора. Поэтому хотелось бы отнести их определенному перечисляемому типу, чтобы программа была наглядной.

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

---

[[ . LuXuRy . ]]

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

Никак не могу разобраться с программой на С.
Пользователь вводит числа, а на экран выводятся только те числа, цифры которых не совпадают.
(Пример: 121, 123,144,212..Вывод на экран:123)

какую функцию использовать для данной программы?

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

---

вопрос

[РоменСул]

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

---

Управление сетевыми подключениями

[jazzcat]

В общем проблема вполне простая - есть у меня VPN подключение (pptp) к инфернету, и нужно сделать так, чтобы в 9 утра оно падало, а в 6 вечера соответственно подымалось.

Вопрос такой - как это можно сделать используя WinAPI или какую-нибудь утилиту из командной строки (после определённого периода гугления я ничего так и не нашёл)?

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

Все проги, которые могут устанавливать подключения, работают только с телефонными коннектами, т.е. моё pptp видят и даже отключают, а вот подымать не могут - всё равно как-то пытаются "звонить".

VPN Dialer внутри содержит свою pptp подсистему.

---

с++

[*~.Samaya_Sladkaya.~*]

Здравствуйте!
помогите с прогой!
есть программа:
циклический двунаправленный список структуры описывающие магазины. Из полученного списка исключить магазины не содержищие определенного товара.

нужно переделать в список типа ОЧЕРЕДЬ

и еще компилятор ругается на file (выделенный элемент в проге), типа "is never used"

код

#include
#include
#include
#include


typedef struct address_t{
char city[80];
char street[80];
char house[80];
}address_t;

typedef struct good_t{
char name[80];
char price[80];
char end_date[80];
}good_t;

typedef struct shop_t{
char number[10];
address_t address;
int good_count;
good_t goods[10];
}shop_t;

// Элемент списка
// содержит указатель на структуру данных
// и указатели на следующий и предыдущий элемент списка
typedef struct Record{
shop_t *data;
Record *next;
Record *prev;
}Record;

//Список. Хранит указательна первый элемент списка
typedef struct List{
Record * head;
}List;

//Создаем пустой список
List* create(){
List* lst = (List*)malloc(sizeof(List));
lst->head = NULL;
return lst;
}

//Добавляет данные в список
void add(List *lst, shop_t *data){
// создаем элемент списка
Record *rec = (Record *)malloc(sizeof(Record));
// устанавливаем данные
rec->data = data;
if(lst->head == NULL){
//если список пустой то устанавливаем указатель на первый элемент
lst->head = rec;
rec->next = rec->prev = rec;
}
else{
// добавляем новый элемент перед первым элементом
rec->next = lst->head;
rec->prev = lst->head->prev;
rec->next->prev = rec;
rec->prev->next = rec;
}
}

//Удаляем элемент из списка
void del(List *lst, Record *rec){

if(lst->head == rec){
if(lst->head == lst->head->next){
// Если это единственный элемент списка - делаем список пустым
lst->head = NULL;
}
else{
// Если в списке есть еще элементы и мы удаляем первый,
// то первым элементом становится следующий
lst->head = lst->head->next;
}
}
//Удаляем элемент из списка.
rec->next->prev = rec->prev;
rec->prev->next = rec->next;

//Освобождаем память из под элемента
//ВНИМАНИЕ! Память из под данных не освобождается
free((void*)rec);
}

//Создает список и загружает данные из файла
List* LoadFromFile(char *file, FILE *fp){
//Создаем новый пустой список
List *lst = create();
while(!feof(fp)){
//выделяем память для данных
shop_t *data = (shop_t*)malloc(sizeof(shop_t));
// читаем данные из файла построчно
fscanf(fp, "%[^\n]\n", data->number);
fscanf(fp, "%[^\n]\n", data->address.city);
fscanf(fp, "%[^\n]\n", data->address.street);
fscanf(fp, "%[^\n]\n", data->address.house);
data->good_count = 0; // число товаров
//Читаем список товаров до того момента пока не будет прочитан '-'
for(int i = 0; igoods[i].name);
if(data->goods[i].name[0] == '-'
break;
fscanf(fp, "%[^\n]\n", data->goods[i].price);
fscanf(fp, "%[^\n]\n", data->goods[i].end_date);
data->good_count = i+1;
}
add(lst, data);
}
return lst;
}

//Сохраняет список в файл
void SaveToFile(List *lst, FILE *fp){
Record *p = lst->head;
if(p == NULL){ //список пуст
return;
}
do{
shop_t *data = p->data;
fprintf(fp, "%s\n", data->number);
fprintf(fp, "%s\n", data->address.city);
fprintf(fp, "%s\n", data->address.street);
fprintf(fp, "%s\n", data->address.house);

for(int i = 0; igood_count; i++){
fprintf(fp, "%s\n", data->goods[i].name);
fprintf(fp, "%s\n", data->goods[i].price);
fprintf(fp, "%s\n", data->goods[i].end_date);
}
fprintf(fp, "-\n";

p = p->next;
}while(p != lst->head);
}

//Печатает список на экран
void output(List *lst){
if(lst->head == NULL){
printf("Список пуст!";
return;
}

Record *p = lst->head;
do{
shop_t *data = p->data;
printf("Numer %s\n", data->number);
printf("City %s\n", data->address.city);
printf("Street %s\n", data->address.street);
printf("House %s\n", data->address.house);

for(int i = 0; igood_count; i++){
printf("Good #%d\n", i);
printf("Name %s\n", data->goods[i].name);
printf("Price %s\n", data->goods[i].price);
printf("Date %s\n", data->goods[i].end_date);
}
p = p->next;
}while(p != lst->head);
}

// находит магазин который не содержит указанный товар
Record * find_good(List *lst, char *good){
Record *p = lst->head;
if(p == NULL){
return p;
}
do{
shop_t *data = p->data;
int is_find = 0;
for(int i = 0; igood_count; i++){
if(strcmp(data->goods[i].name, good)==0){
is_find = 1;
break;
}
}
if(is_find == 0)
return p;
p = p->next;
}while(p != lst->head);
return NULL;
}

int main(){

char str[255];
char ch;
List *lst = NULL;

printf("Курсовая работа. Вариант №20""\n";
printf("\n";
printf("\n";
printf("\n";
printf("Загрузить в циклический двунаправленный список структуры описывающие магазины.""\n";
printf("Из полученного списка исключить магазины не содержищие определенного товара.""\n";

printf("Нажмите любую клавишу для продалжения...";
getch();

//Загрузка входных данных
for( ; ; ) {
clrscr();
printf("Введите имя входного файла:\n";
scanf("%s", str);
FILE *fp = fopen(str, "r";
if(!fp){
fprintf(stderr, "ОШИБКА! Невозможно открыть файл \"%s\"!", str);
printf("\nВвести имя файла заново?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
continue; // повторить ввод
}
printf("\nКонец работы программы.\nНажмите любую клавишу для выхода...";
getch();
return -1;
}

fpos_t cur_pos;
fgetpos(fp, &cur_pos);
fgetc(fp);
if(feof(fp)){
fprintf(stderr, "ОШИБКА! Файл \"%s\" пустой!", str);
fclose(fp);
printf("\nВвести имя файла заново?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
continue;
}
printf("\nКонец работы программы.\nНажмите любую клавишу для выхода...";
getch() ;
return -1;
}
fsetpos(fp, &cur_pos);
lst = LoadFromFile(str, fp);
fclose(fp);
break;
}

clrscr();
printf("Конец загрузки списка из файла!\n";
printf("Нажмите любую клавишу для продалжения...";
getch();

clrscr();

printf("Вывести список на экран?(y/n) : ";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
clrscr();

output(lst);
printf("Нажмите любую клавишу для продалжения...";
getch();
}

clrscr();
printf("Введите название товара, магазины с которым надо удалить:\n";
scanf(" %s", str);

int count = 0;
while(Record *rec = find_good(lst, str)){
del(lst, rec);
count++;
}
printf("Количество удаленных магазинов: %d\n", count);

printf("Нажмите любую клавишу для продалжения...";
getch();

clrscr();
printf("Вывести список на экран?(y/n):";
if((getch() == 'y' || (getch() == 'y'){
clrscr();
output(lst);
printf("Нажмите любую клавишу для продалжения...";
getch();
}

clrscr();
printf("Сохранить список в файл?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
for( ; ; ){
clrscr();
printf("Введите имя выходного файла:\n";
scanf("%s", str);
FILE *fp = fopen(str, "w+";
if(!fp){
fprintf(stderr, "ОШИБКА! Невозможно открыть файл \"%s\"!", str);
printf("\nВвести имя файла заново?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
continue;
}
printf("\nКонец работы программы.\nНажмите любую клавишу для выхода...";
getch();
return -1;
}
SaveToFile(lst, fp);
fclose(fp);
clrscr();
printf("Данные успешно сохранены в файл!\n\n";
break;
}
}
else{
clrscr();
}
printf("Конец работы программы.\nНажмите любую клавишу для выхода...";
getch();
}

@темы: прога

---

Вакансия программиста 1С

[Аэнур]

Вакансия компании: Алианта Групп

Регион: Москва (ст. м. Кунцевская)

График работы: полный рабочий день (с 9 до 18)

Предполагаемый уровень месячного дохода: от 60 000 руб.
По результатам собеседования

Обязанности:

Ведение разработок и модернизаций в 1С .
Работа с MS SQL .
Работа с Web компонентами для 1С.

Требования:

Пол. мужской
Возраст 21-40 лет
Высшее образование
Опыт работы в должности разработчика по алгоритмическим языкам (не 1С) , по 1С по 7.7-8.0 и далее от 2 лет, в торговых компаниях.
Опыт работы с бухгалтерией.
Знание основ бух. учета, оперативного, управленческого учета, логистики, складского учета, отчетности и реализации не типовых решений 1С;
Опыт работы в проектной команде,взаимодействия с подразделениями компании, написание ТЗ по заданию заказчика.
Win2000/Win2003 server , MS SQL, Базовые знания по сетевым технологиям.

Условия:

оплата мобильного телефона
своевременная заработная плата
Оформление по ТК РФ
дружный коллектив

Перспективы:

профессиональный рост
повышение квалификации

Контакты:

ИТ отдел.

E-mail: [email protected]
Моб.: [phone]

---

[Spiky]

граждане, у кого-нибудь есть информация по
биологическим, квантовым и оптическим ЭВМ?

---

[-=LS=-]

Народ хелп)нужно напсиать в делфи
два прямоугольника заданы парами чисел (a1,b1) u (a2,b2), определяющими длины их сторон
Составить программу, которая выясняет можно ли один из прямоугольников целиком поместить в другом. Предпологается такое расположение прямоугольников при котором сохраняется параллельность сторон

@темы: Интернет