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

[Форматцевт]

Вот какое дело.

У меня есть сайт от которого или точнее из которого нужно сделать файловый архив. С разу оговорюсь доступ на закачивание только у меня по FTP-протоколу, а скачивание у кого угодно.

Я порылся в инете и нашел программку WR-DirViewer v1.2. Всё замечательно те просто и... но тут главное она работает только с одной папкой, а у меня файлы отсортированы в 54 папках (с учётом вложения, глубина максимальная= 3).

Ну я долго на неё смотрел, но в PHP я "не в зуб ногой" и даже хуже... :) Может кто посмотрит и скажет, а лучше поправит её что бы она всё таки работала с папками от корня указанного $datadir="./"; // Путь до папки с данными

Вот код и сам файлик wr_dirviewer_v_1.2.zip Можно конечно что то иное, но тут я хоть что то могу исправить... :thumbup:

PS RC Files 1.1 не подошёл - он что то спросил про БД, а я ему ничем помочь не смог :)

ПОЗЖЕ....

Всё вопрос снят, надо запросы верно Google задавать, пост не стираю, может быть кому либо эта программка пригодится.

wr_dirviewer_v_1.2.zip

Изменено 18 февраля, 2010 пользователем Indomito

[Pathfinder]

Здравстуйте, работаю с MFC, по заданию нужно вычислить выражение , подскажите, как вывести на экран G c помощью метода OnDraw. Как я понял, для этого сначала нужно преобразовать G из типа float в CString, в этом вся загвоздка :bye1:

void CwelcomeView::OnDraw(CDC* pDC)

{

CString welcome_string("Добро пожаловать в Visual C++");

float x=100, A=50, G;

CwelcomeDoc* pDoc = GetDocument();

ASSERT_VALID(pDoc);

if (!pDoc)

return;

G=(-1/(x*x-A*A)-2*A*A/(3*((x*x-A*A)*(x*x-A*A))));

pDC->TextOut(0, 0, welcome_string);

}

[Lion HC]

Попробуйте:

_fcvt или _gcvt

[Pathfinder]

Lion HC, с функциями _fcvt или _gcvt не получилось, постоянно ошибки вылазили, но я нашел решение

void CwelcomeView::OnDraw(CDC* pDC){	CString welcome_string("Добро пожаловать в Visual C++");	CString value;	float x=100, A=5, G;	CwelcomeDoc* pDoc = GetDocument();	ASSERT_VALID(pDoc);	if (!pDoc)			return;	G=(-1/(x*x-A*A)-2*A*A/(3*((x*x-A*A)*(x*x-A*A))));		value.Format(TEXT("%f"),G);	pDC->TextOut(0, 0, value);}

[Lion HC]

Прикольно. Спасибо, возьму на заметку. Не думал, что CString на столько удачно реализован :blush2:

[core_st]

Есть функция, которая должна добавлять строку из комбобокса в конец поля Мемо.

void TForm1::Add(bool Param, int FieldId){if (Param)Memo1->Lines[Memo1->Lines->Count].Strings[Memo1->Lines->Count]+=ComboBox1->Items[FieldId].Strings[FieldId]; elseMemo1->Lines[Memo1->Lines->Count].Strings[Memo1->Lines->Count]+=ComboBox2->Items[FieldId].Strings[FieldId];} 

Срабатьівает она при смене Комбобокса:

void __fastcall TForm1::ComboBox1Change(TObject *Sender){Add(true,ComboBox1->ItemIndex);}

В результате: либо Access violation, либо External extensions. В чем проблема может бьіть? Как еще можно добавить строку в конец Мемо?

[core_st]

Напишу конкретней что мне надо. Есть комбобокс из списком операций . Есть поле Мемо. При выборе операции с комбобокса (Событие OnChange) нужно добавить ету операцию (строку с текущим ItemIndex комбобокса) в конец последней строки Мемо.

[Lion HC]

void TForm1::Add(bool Param, int FieldId){TComboBox *currBox = Param ? ComboBox1 : ComboBox2;int lastLineId = Memo1->Lines->Count-1;Memo1->Lines->Strings[lastLineId] = Memo1->Lines->Strings[lastLineId] +	currBox->Items->Strings[FieldId];} 

[MakentoIII]

Ребята помогите пожалуйста

нужно написать пару программ на С++

Вот условия

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

2. Дана последовательность целых чисел, за которой следует 0. Найти сумму нечетных элементов этой последовательности.

3. Найти сумму цифр в десятичном числе k.

[Тролль]

MakentoIII:

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

#include<stdio.h>main(){int a[100],i,n,k,s=0; printf("n k? "); scanf("%d%d",&n,&k); for(i=0;i<n;i++)scanf("%d",&a[i]); for(i=0;i<n;i++)if(!(a[i]%k))s++; printf("\n%d\n",s); getchar(); getchar();} 

2. Дана последовательность целых чисел, за которой следует 0. Найти сумму нечетных элементов этой последовательности.

#include<stdio.h>main(){int a[100],i=0; long s=0; do scanf("%d",&a[i]); while(a[i++]); for(i=0;a[i];i++)if(!(i%2))s+=a[i];printf("\n%ld\n",s); getchar(); getchar();}

3. Найти сумму цифр в десятичном числе k.

#include<stdio.h>main(){long k; int a=0; scanf("%ld",&k); do a+=k%10; while(k/=10);printf("\n%d\n",a); getchar(); getchar();  }

Изменено 1 марта, 2010 пользователем Тролль

[Nata6enka]

Помогите пожалуйста плиз.

Разработать программу, выводящую на экран содержимое всех регистров (кроме IP), регистра флагов, 30 первых ячеек сегмента стека и 40 первых ячеек сегмента данных. Содержимое регистров и ячеек памяти вывести в шестнадцатеричной системе счисления.

Язык-Паскаль под дос.

Причем вывод регистров осуществляется при помощи ассемблерного кода.

Даны простейшие примеры:

Программа, выводящая на экран содержимое 20 первых ячеек сегмента данных (предварительно производится запись в эти ячейки последовательности чисел от 0 до 29).

Var	mem:array[0..30] of byte; 	mem_byte:byte;	i:word;Beginmem_byte:=0;for i:=0 to 29 do	asm	  mov	si,i	  mov	ax,si	  mov	ds:[si],al	end;for i:=0 to 49 do Begin	asm	  mov	si,i	  mov	al,ds:[si]	  mov	mem_byte,al	end;	Write(mem_byte,' ');  End; WriteLn;End.

Программа, выводящая на экран содержимое регистра AX

Var a:word; Begina:=0;	asm	  mov		ax,10	  mov		a,ax	end;WriteLn('ax=',a);End.

Программа, выводящая на экран содержимое флага CF.

Var cf:byte; Begincf:=0;	asm		 stc	{Set CF to 1}		 mov	al,0		 jnc	@m1		 mov	al,1	@m1: mov	cf,al	end;WriteLn('Cary flag = ',cf);End.

[Тролль]

Nata6enka:

Разработать программу, выводящую на экран содержимое всех регистров (кроме IP), регистра флагов, 30 первых ячеек сегмента стека и 40 первых ячеек сегмента данных. Содержимое регистров и ячеек памяти вывести в шестнадцатеричной системе счисления.

Язык-Паскаль под дос.

Причем вывод регистров осуществляется при помощи ассемблерного кода.

function h(m:word):string; var s:string[4]; i,n:integer;begins:='';for i:=1 to 4 do begin n:=m and 15 +48; if n>57 then n:=n+7; s:=chr(n)+s; m:=m shr 4 end;h:=send;var ax_,bx_,cx_,dx_,sp_,bp_,si_,di_,cs_,ds_,ss_,es_,ah_,i:word; mb_:byte;beginasmmov ax_,axmov bx_,bxmov cx_,cxmov dx_,dxmov sp_,spmov bp_,bpmov si_,simov di_,dxmov cs_,csmov ds_,dsmov ss_,ssmov es_,eslahfmov ah_,axend;writeln;writeLn(' ax=',h(ax_):5,' bx=',h(bx_):5,' cx=',h(cx_):5,' dx=',h(dx_):5);writeln(' sp=',h(sp_):5,' bp=',h(bp_):5,' si=',h(si_):5,' di=',h(di_):5);writeln(' cs=',h(cs_):5,' ds=',h(ds_):5,' ss=',h(ss_):5,' es=',h(es_):5);writeln('Flags=',copy(h(ah_),1,2):5);writeln;writeln('Stack:');for i:=0 to 29 dobeginasmmov si,imov al,ss:[si]mov mb_,alend;write(copy(h(mb_),3,2):4);end;writeln;writeln('Data:');for i:=0 to 39 dobeginasmmov di,imov al,ds:[di]mov mb_,alend;write(copy(h(mb_),3,2):4);end;readlnend.

Изменено 2 марта, 2010 пользователем Тролль

[core_st]

задание связанное с mysql. Но до него еще далеко. Вот пока один вопрос - запустил я сервер mysql, через с++ создал подключение. Вот здесь вопрос - мне нужно создавать базу? или она уже существует? можно сразу таблицы создавать7

[OGR]

Базу создавать надо в любом случае. Как только поставил сервер, он без баз (хотя какая-нибудь стандартная есть, но вам не с ней работать).

[core_st]

задача: написать програму на с++ - конвертирование числа с фиксированой точкой из 8-ричной системы счисления в 11-ричную.

[OGR]

А при чем тут база? Или это несвязанные вопрсы?

Ограничения или указания к заданию есть?

[core_st]

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

[Тролль]

core_st:

Посмотри тут исходник "Перевод целых и дробных чисел из любой системы счисления в любую" на C++ Builder.

[core_st]

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

[Тролль]

core_st:

Все не так уж сложно. Хотя, конечно, без труда не вытащишь и рыбку из пруда :blink:

первод дроби с десятичной в недесятичную

Ну, например, 0,375 из десятичной системы в одиннадцатиричную.

0,375*11=4,125

0,125*11=1,375

0,375*11=4,125

0,125*11=1,375

...

По мере счета собираем целые части в строку: 0,4141... (в нормальном порядке, слева направо).

Так как система одиннадцатиричная, при умножении на 11 могло появиться в качестве целой части 10 - тогда надо его заменить на букву А в строке сбора дроби.

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

перевод правильной недесятичной дорби в десятичную.

Это еще проще. Например, обратно из одиннадцатиричной в десятичную:

0,414...=4/11+1/11²+4/11³+...=0,3749...

Опять же в дроби могла быть буква А - тогда ее надо предварительно превратить в 10.

Пример реализации на C++ есть, например, тут: Перевод десятичных дробей из любой системы счисления в любую другую. Там надо набирать дроби в виде 0.375 (к примеру).

Изменено 14 марта, 2010 пользователем Тролль

[core_st]

Спасибо огромное!!! Теперь все предельно ясно!

[temich5000]

Привет всем !!!!!!!!!!!!!!!

Очень нужна помощь в написании данной программы на паскале

Задание:

Описать структуру с именем STUDENT, содержащую следующие поля:

Фамилия и инициалы

Номер группы

Успеваемость (массив из пяти элементов)

Написать программу, выполняющую следующие действия:

Ввод с клавиатуры данных в массив, состоящий из десяти структур типа STUDENT;

записи должны быть упорядочены по возрастанию номера группы;

Вывод на дисплей фамилий и номеров групп для всех студентов, включенных в массив , если средний бал студента больше 4.0

Если таких студентов нет, вывести соответствующее сообщение.

[Тролль]

temich5000:

type STUDENT=record Name:string[25]; Group:integer; Ses:array[1..5]of integer end;var Stud1:array[1..10]of STUDENT; S:STUDENT; i,j,k,n:word; b:boolean;beginn:=0; for i:=1 to 10 do begin Write('Name: ');ReadLn(Stud1[i].Name); if Stud1[i].Name='' then break;inc(n); Write('Group: ');ReadLn(Stud1[i].Group); Write('Balls(5): '); for j:=1 to 5 do Read(Stud1[i].Ses[j]); ReadLn; WriteLn; end;WriteLn;for i:=1 to n-1 do for j:=1 to n-i do if Stud1[j].Group>Stud1[j+1].Group then  begin S:=Stud1[j]; Stud1[j]:=Stud1[j+1]; Stud1[j+1]:=S end;WriteLn('All students');Writeln('Name				Group	Balls');for i:=1 to n do WriteLn(Stud1[i].Group:25,Stud1[i].Ses[1]:5,Stud1[i].Ses[2]:2,  Stud1[i].Ses[3]:2,Stud1[i].Ses[4]:2,Stud1[i].Ses[5]:2,#13,Stud1[i].Name);WriteLn; b:=true;for i:=1 to n do  begin k:=0; for j:=1 to 5 do k:=k+Stud1[i].Ses[j]; if k>20 then b:=false; end;if b then WriteLn('Nobody has the average ball more than 4')else begin  WriteLn('The students having the average ball more than 4'); WriteLn('Name				Group'); for i:=1 to n dobegink:=0; for j:=1 to 5 do k:=k+Stud1[i].Ses[j];if k>20 then WriteLn(Stud1[i].Group:25,#13,copy(Stud1[i].Name,1,   pos(' ',Stud1[i].Name+' ')-1))end end;ReadLnend.

Оценки студента при вводе разделяются пробелами. Чтобы вводить данные меньше чем десяти студентов, можно вместо ввода фамилии очередного студента просто нажать клавишу Enter.

P.S. Исправил ошибку в тексте сообщения программы и убрал один бесполезный оператор.

Изменено 16 марта, 2010 пользователем Тролль

[temich5000]

ого так быстро !!!!!!!!!!!!!

Спасибо огромное !!!!!!!!!!

[Kira Coconatova]

ребята , хелллп!

напишите задачку на паскале , только очень-очень понятно ! Для блондинки

Условие:

"Определить , есть ли в заданном 4-х значном числе А цифры 7 и 8"