Оформление математического выражения

[Izzie]

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

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

@темы: Pascal, паскаль, программирование,помощь

---

[Таял]

Уважаемые, нет ли у кого информации по оценке эргономики ПО? Методички, статьи и т.д.? Если вдруг у кого завлялись ГОСТы группы РВ 29.х - буду особо благодарен)
Спасибо.

---

Hello world во FreeBDS

[Jariad]

Всем привет!
Может кто-то подсказать, как скомпилировать и прогнать Hello World ( и вообще любую Си программу) во FreeBSD? Всем спасибо!

---

Выбор языка

[Faultier]

Добрый день!

Извиняюсь, если такой вопрос уже был.

Посоветуйте на ваш вкус, какой язык начинать учить для создания GUI-программ с возможностью подключения к SQL. Поглядываю на C++, у него есть будущее? Я ПоХаПэ-программист, то есть что такое переменная знаю и с объектами дружу.

Если можно, посоветуйте и свободный IDE к нему, который вам нравится.

Спасибо!

@темы: Точка зрения

---

Илыбнуло...

[Зюкин]

These two strings walk into a bar and sit down. The bartender says, "So what'll it be?"The first string says, "I think I'll have a beer quag fulk boorg jdk^CjfdLk jk3s d#f67howe%^U r89nvy~~owmc63^Dz x.xvcu"
"Please excuse my friend", the second string says, "He isn't null-terminated."

---

IDL

[Lady_Ann]

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

---

Адрес к Help в Delphi

[-=TurboRufus=-]

Никак не могу найти способ, чтобы в свойствах проекта прописать относительный адрес к файлу хэлпа.
Нужно, чтобы при любом расположении программы, файл, находящийся в папке Help, которая располагается в том же каталоге, что и программа, открывался без проблем.
Прописывать в коде через ExtractFileDir(Application.ExeName) + '\Help\HelpFile.hlp'; тоже не получается. Есть каки-нибудь идеи?

---

Всем привет оч прошу помоч найти ошибку

[Unknowns]

Program p1;
Uses Crt;
var
m:array[1..100]of integer;
n,i,sum,su:integer;
sr:real;
begin
clrscr;
writeln('Введите кол-во людей');
readln(n);
clrscr;
writeln('Сколько кому лет');
for i:=1 to n do begin
m[i]:=random[40];
sum:=sum+m[i];
if m[i]<20 then su:=su+m[i];
write(m[i]:3);
end;
writeln;
sr:=sum/n;
writeln('общий возраст - '+sr:3:3);
sr:=su/n*100;
writeln('% тех, кто младше 20 - '+sr:3:3);
readln;
end.


в проге в конце влазит ошибка помогите оч срочно нужно

---

[Your Captain is Captain Morgan]

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

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

---

Помогите девушке с C++

[Selestina Allaveno]

Я не программист, но мне позарез до завтрашнего утра нужно сделать лабу по C++ вот такое задание:

Функция,
если строка является именем нарицательным (первая буква прописная),
преобразует ее, оставив только эту прописную букву и точку после нее.
Если строка преобразована, то функция возвращает строку, в противном
случае возвращает NULL.
Приложение из введенной строки-фразы
формирует два массива слов: исходный и новый массив, в котором имена
нарицательные преобразованы.

Есть образец - как делать (готовая работа) и теоретическая часть. Помогите, пожалуйста!!!

---

[Dog Eat Dog]

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

линк

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

---

Помогите найти ошибку (нужно очень срочно)

[Izzie]

Здравствуйте, скажите пожалуйста, можете ли вы помочь мне найти ошибку в коде, уже по всякому пыталась исправить программу, ничего не помогает, я просто в Паскале только новичок, поэтому самостоятельно никак не получается сделать программу рабочей. Я написала программу - счетчик с использованием семафор для параллельного ее запуска, но дело в том ,что если запустить программу один раз, она считает все верно, а если одновременно 2 раза, то совсем ничего не считает....что-то в ней не так..вот код:

program Counter2;
uses
crt;
const
SemaphoreFile = 'Semaphore.txt';
var
x:integer;
procedure Enter_Critical_Section;
begin
repeat
{$I-}
mkdir(SemaphoreFile);
{$I+}
until IOResult = 0;
end;

procedure Leave_Critical_Section;
begin
rmdir(SemaphoreFile);
end;

procedure Counter;
const
CounterFileName = 'Counter.txt';
var
s:text;
rujuk:integer;
begin
Enter_Critical_Section;
begin
Assign (s,'rujuk.txt');
{$I-}
reset(s);
{$I+}
If IOResult=0
Then

begin
reset(s);
read(s,x);
close(s)
end
else
begin
rewrite(s);
x:=0;
end;
inc (x);
rewrite(s);
write(s,x);
close(s);
writeln('Kolichestvo obrashcheniy=',x);

end;
Leave_Critical_Section;
writeln('Kolichestvo obrashcheniy=',x);
end;

begin
for x:=1 to 1000 do Counter;
repeat until KeyPressed;
end.

@музыка: Гала-радио

@настроение: Прекрасное, но если заработает программа, будет лучше

@темы: паскаль

---

[Nanita]

Подскажите, как скопировать строку в буфер

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
char Buf[500]="";
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
  strcpy(Buf,Edit1->Text.c_str());
}
//---------------------------------------------------------------------------

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

---

[[ . LuXuRy . ]]

Сижу туплю...как в парсер вставить часть с проверкой ещё и слэша!?

код

int checkXML(FILE *xml)
{
char bufer[255];
int length = 0;
int line = 0;
int counter = 0;
int nTags = 0;
while ( !feof(xml) )
{
fgets(bufer, 255, xml);
line++;
if( line == 1 )
fgets(bufer, 255, xml);
else
{
length = strlen(bufer);
for (int k=0; k {
if(bufer[k]=='<'
{
counter++;
if (bufer[k+1] != '/' nTags++;
}
if(bufer[k]=='>'
{
counter--;
}
}
if( counter != 0 )
{
printf("XML file is not correct, < or > missing in line %d\n", line);
getch();
exit(1);
}
}
}
rewind(xml);
return nTags;
}

---

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

1.товарищи, подскажите в чем дело, я с ума схожу — в Delphi после компиляции не отображается имя RadioButton

тут есть

тут нет

в чем проблема?

---

помогите мелкую гадость выловить )

[asura013]

вот нутром чую что какая-то мелкая ошибка где-то, а найти не могу =\

есть 2 листбокса, в каждый добавляются файлы через Opendialog, в объект записывается отдельно путь, имя и расширение файлов.
нужно переименовать файлы одного листбокса по именам из второго, сохранив расширение. переименовываю через SHFileOperation :

procedure rm(FF,FT:string);
var
  sStruct: TSHFileOpStruct;
begin
  with sStruct do
   begin
    Wnd    := 0;
    wFunc  := FO_MOVE;
    pFrom  := PChar(FF);
    pTo    := PChar(FT);
    fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
                FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(sStruct);
end;

дальше вытаскиваю из листбоксов имена для переименования

  
for I := 0 to OutList.Count - 1 do
    begin
      OutFile := OutList.Items.Objects[I] as TFileItem;
      InpFile := InpList.Items.Objects[I] as TFileItem;

      inf := OutFile.path + '\' + OutFile.name + '.' + OutFile.ext;
      ouf := OutFile.path + '\' + InpFile.name + '.' + OutFile.ext;

      rm(inf, ouf);
    end;

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

где я не прав? =)

---

к слову о qt creator, qt 4.5 и mingw

[mistificator]

Всё ещё мучаетесь сообщением типа "Entry point _Z5QFreePv not found in QtCore4.dll" при попытке запустить release-cборку приложения? Всё очень просто решается. В папке bin лежат QtCore4.dll и QtGui4.dll, собранные под Visual Studio 2008. И никаким боком они c вашим приложением, собранным на MinGW, работать не будут. Возьмите QtCore4.dll и QtGui4.dll (и что вам ещё нужно) из папки qt/lib , скопируйте в папку своего приложения, и будет вам счастье.
Enjoy.

url

---

[Scabby]

нужно сгенерировать 3d ландшафт. желательно в делфи.+ openGL...
может ли кто-нибудь помочь чем-нибудь... или у кого-то есть пример на любом языке*?

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

---

[Татик.]

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

решить надо с помощью множеств на Delphi...

---

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

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

и еще, может кто-то имеет представление о книгах Фленова "(свой вариант) глазами хакера". в частности, сегодня в магазине взгляд упал на "Программирование в Delphi глазами хакера", но молодой человек за соседним шкафом яростно мне ее отсоветывал. он был прав? действительно не стоит тратить на нее время и деньги?