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

[temich5000]

помогите пожалуйста немного доделать запрос

нужно вывести тех кто живет в общежитии и родился зимой

list students.surname for obshegitie=.t. .and. SUBSTR(DTOC(date_st),4,2)="02" - но это те кто живет в общаге и родился в феврале , а мне нужно зимой (((((((

[NatM]

@temich5000, что за язык?

Возможно так:

.and. SUBSTR(DTOC(date_st),4,2)$"12_01_02" 

или так:

.and. AT(SUBSTR(DTOC(date_st),4,2),"12_01_02")>0 

Изменено 19 февраля, 2011 пользователем NatM

[temich5000]

@temich5000, что за язык?

Возможно так:

.and. SUBSTR(DTOC(date_st),4,2)$"12_01_02" 

или так:

.and. AT(SUBSTR(DTOC(date_st),4,2),"12_01_02")>0 

Fox Pro

Спасибо всё так !!!!!!!!!!!

[kiti1411]

Добрый вечер.

Помогите пожалуйста написать программу по Delphi.

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

Может кто уже делал такую програмку, если есть у кого-нибудь, скиньте пожалуйста.

Заранее благодарна)))

[alleo]

Проблема:

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

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

Сейчас найдено временное решение - запущен "вечный" скрипт на перезапуск программы, а окно с ошибкой закрывает утилита catcherr, но это именно временное решение, потому что 1) задержка перезапуска велика, это важно, а иногда критично, 2) иногда глючит, т.е. программу перезапускает, но она не работает - только окно висит и всё!

Задача:

все дейсвия по закрытию окна ошибки (или завершению процесса dwwin.exe, который и выводит окно с ошибкой) совместить в один скрипт. Прошу помощи, т.к. скриптовыми языками не владею

Сейчас запущен VBS- скрипт с текстом:

Set WshShell = WScript.CreateObject("WScript.Shell")DoWshShell.Run "E:\sovet-52\prog52.exe", 1, TrueLoop Until False

что и куда надо добавить, чтобы окно ошибки закрывалось автоматом или процесс DWWIN..EXE завершался?

[Dr0n4eG]

Помогите у меня проблема в c++ builder 6, компилятор ругаетца на функцию класса. Не пойму что означает ошибка... Эта функция по идее должна наисовать на компоненте TDrawGrid кружочек, но посколько программа не запускается я не знаю как мне ее до ума довести что бы она заполняла каждую ячейку кружочком. Подскажите пожалуйста что значит ощибка и эсли не сложно напишите код програмы для риализации заполнения каждой ячейки TDrawGrid, (матрица 20*20 размер ячеек 28 на 28), а дальше я уже сам до ума доведу.

Скрин с ошибкой ниже:

Зарание благодарен :blush2:

[Riki_Tiki_Tavi]

Пожалуйста помогите решить на языке Си.

Дано файл f натуральных чисел.Записать в файл g все простые числа из файла f по убывающей.

[Тролль]

Riki_Tiki_Tavi:

#include <stdio.h>#include <malloc.h>#include <math.h>int main(){FILE *f,*g; unsigned n,e,i,j,k; char name1[50],name2[50];printf("Name of the input file? "); gets(name1);if((f=fopen(name1,"r"))==NULL){printf("\nThe program can not find this file  \n"); getchar(); exit(1);}printf("Name of the output file? "); gets(name2);g=fopen(name2,"w"); n=0;while(!feof(f)){fscanf(f,"%u",&e);  j=2; i=round(sqrt(e)); while(e%j&&j<=i)j++; if(j>i&&i>1){n++; fprintf(g,"%u ",e);}} fclose(f); fclose(g); unsigned *a=(unsigned *)malloc(n*sizeof(unsigned)); g=fopen(name2,"r"); for(j=0;j<n;j++)fscanf(g,"%u",&a[j]); fclose(g); for(i=1;i<n;i++)for(j=1;j<n;j++)if(a[j]>a[j-1]){k=a[j-1];a[j-1]=a[j];a[j]=k;}g=fopen(name2,"w"); for(j=0;j<n;j++)fprintf(g,"%u ",a[j]); free(a); fclose(g); return 0; }

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

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

[Dr0n4eG]

Тролль можеш помоч с ошикой что я описывал ранее, так и не нашпол способа ее устранить... Что-то мне подсказивает что рисовать круг в компоненте TDrawGrid неоходимо как-то по другому, но к сожалению я незнаю как, поиски в интерете не дали результата, так же проовал использовать компонент TStringGrid но эфекта никакова. Буду очень признателен в помощи с этой проблемой. :rolleyes:

[Тролль]

Тролль можеш помоч с ошикой что я описывал ранее

Dr0n4eG, у меня C++ Builder сейчас не установлен...

[malish-z]

Помогите пожалуйста разобраться с программой, в чём ошибка, просто не понимаю до конца, как писать подпрограммы в Паскале. А условие такое : вычеслить z=(x1+y1)/(x2-y2), где х1,х2-корни уравнения 2x^2+x-c=0, a y1,y2 корни ax^2+x-4=0, нахождение корней квадратного уравнения оформить в виде подпрограммы.

Program P1;

uses crt;

var a,c,x1,x2,y1,y2,x:integer;

z,y:real;

Procedure sust (x1,x2,y1,y2,a,c,b,D:real);

begin

write('zadaite c=');

readln©;

D:=1+8*c;

if D>0 then begin

x1:=(-1+sqrt(D))/4;

x2:=(-1+sqrt(d))/4;

writeln('x1=',x1:5:2, 'x2=',x2:5:2);

end

else if D=0 then writeln ('x1=x2=', -1/4)

else writeln ('koreniv nemae');

write ('zadaite a=');

readln(a);

D:=1+8*a;

if D>0 then begin

y1:=(-1+sqrt(D))/2*a;

y2:=(-1-sqrt(D))/2*a;

writeln ('y1=',y1:5:2, 'y2=',y2:5:2);

end

else if D=0 then writeln('y1=y2=', -1/(2*a))

else writeln('koreniv nemae');

end;

begin

write('vvedite znachenie a,c=');

readln(a,c);

z:=(x1+y1)/(x2-y2);

writeln('z=',z:5:2);

readkey

end.

[Тролль]

malish-z:

program P1;procedure qe(a,b,c:real; var x1,x2:real; var q:boolean);var d:real;begin if a=0 then begin x1:=-c/b; x2:=x1 endelse begin  d:=b*b-4*a*c; q:=d<0; if not q then begin d:=sqrt(d); x1:=(-b+d)/2/a; x2:=(-b-d)/2/a end end;writeln(x1:10:3,x2:10:3);end;var a,c,z,x1,x2,y1,y2:real; q:boolean;begin write('a c ? '); readln(a,c);qe(2,1,-c,x1,x2,q); if q then begin writeln('c is too bad'); readln; exit end;qe(a,1,-4,y1,y2,q); if q then begin writeln('a is too bad'); readln; exit end;if x2=y2 then begin writeln('z is infinity'); readln; exit end;z:=(x1+y1)/(x2-y2); writeln(z:0:6); readlnend.

Изменено 4 марта, 2011 пользователем Тролль

[Snaiper22]

Помогите пожалуйсто написать программы:

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

Символы латинского алфавита

Символы кириллицы

Символы пунктуации

Цифры

Фильтры могут накладываться последовательно. При повторной установке существующего фильтра данный фильтр должен сниматься.

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

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

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

3. Создать приложение для вычисления значения арифметического выражения, которое может включать в себя действительные числа, а также круглые скобки и следующие операции: +, -, *, /, ^ (возведение в степень). Вычисления должны производиться с учетом скобок и приоритетов используемых операций. Предусмотреть корректную обработку возможных ошибок и информирование о них пользователя.

Помогите пожалуйсто написать программы:

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

Символы латинского алфавита

Символы кириллицы

Символы пунктуации

Цифры

Фильтры могут накладываться последовательно. При повторной установке существующего фильтра данный фильтр должен сниматься.

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

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

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

3. Создать приложение для вычисления значения арифметического выражения, которое может включать в себя действительные числа, а также круглые скобки и следующие операции: +, -, *, /, ^ (возведение в степень). Вычисления должны производиться с учетом скобок и приоритетов используемых операций. Предусмотреть корректную обработку возможных ошибок и информирование о них пользователя.

на C++

Помогите пожалуйсто написать программы:

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

Символы латинского алфавита

Символы кириллицы

Символы пунктуации

Цифры

Фильтры могут накладываться последовательно. При повторной установке существующего фильтра данный фильтр должен сниматься.

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

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

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

3. Создать приложение для вычисления значения арифметического выражения, которое может включать в себя действительные числа, а также круглые скобки и следующие операции: +, -, *, /, ^ (возведение в степень). Вычисления должны производиться с учетом скобок и приоритетов используемых операций. Предусмотреть корректную обработку возможных ошибок и информирование о них пользователя.

на C++

[alfadix]

Нужна помощь. Программа на C++.

Координаты границы земельного участка задаются последовательностью точек(x,y).Два входных файла содержат координаты границ двух участков. Разработать программу, которая проверяет, имеются ли параллельные сегменты границы и указывает координаты сегментов. Результат записывается в выходной файл.Зарание большое спасибо!

[yuliya#1]

нужна помощь в написании программы на turbo pascal...

В библиотеке имеется список книг. Каждая запись содержит: фамилию автора, название книги, год издания. Требуется:

1) Определить, имеется ли в данном списке книги, в названии которых встречается некоторое ключевое слово.

2) Осуществлять поиск книг по ФИО автора либо по названию;

3) Предусмотреть возможность добавление, удалять и корректировать записи из списка, а так же просматривать весь список.

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

[Shadow TH]

Здравствуйте. Есть вопрос по C#.

Хотел бы узнать, при помощи какой функции можно выполнить преобразование скажем переменной типа int32 в массив byte размером 4 (переменная int32 как раз занимает 4 байта). Спасибо.

-----------

Спасибо, разобрался сам. ;)

Изменено 15 марта, 2011 пользователем Shadow TH

[Nata6enka]

Помогите пожалуйста написать элементарную программу на языке Пролог.

Задача:

Маша, Вова, Зина и Петя участвовали в спектакле про экзотических животных. Двое ребят играли роли зайцев, двое — роли медведей. Кто из ребят изображал медведей, если известно, что:

1) Маша и Вова играли разные роли;

2) Вова и Зина изображали разных зверей;

3) Зина не играла роль медведя?...

[malish-z]

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

Я сделала такую же задачу, только она считает сумму ДВУХ предыдущих элементов, а мне нужно ВСЕХ. Подскажите, как исправить ту строчку?????

Program P16;

uses crt;

const n=10;

var a:array[1..n] of integer;

i:integer;

begin

writeln('zadaite znachenie elementa massiva:');

for i:=1 to n do

begin

write('a[',i,']=');

readln(a);

end;

for i:=1 to n do

if a>7 then a:=a[i-1]+a[i-2];

writeln ('vuvod elementa massiva a');

for i:=1 to n do

writeln('a[',i,']=',a);

readkey

end.

[Riki_Tiki_Tavi]

Помогите пожалуйста решить на языке Си.

Найти разницу факториалов F=m!-k!

[Тролль]

malish-z

Program P16;uses crt;var a:array[1..20] of real; i,n:integer; s:real; begin writeln('zadaite kolichestvo elementov massiva: '); readln(n); writeln('zadaite znachenija elementov massiva:');for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;s:=0; for i:=1 to n do begin if a[i]>7 then a[i]:=s; s:=s+a[i] end;writeln ('vuvod elementov massiva a');for i:=1 to n do writeln('a[',i,']=',a[i]:0:3); readkeyend.

Riki_Tiki_Tavi

#include<stdio.h>float fact(int n){return n<=1?1:n*fact(n-1);}main(){int m,k; scanf("%d%d",&m,&k); printf("%.0f\n",fact(m)-fact(k)); getchar(); getchar();}

Изменено 20 марта, 2011 пользователем Тролль

[malish-z]

благодарю :rolleyes:

[temich5000]

Привет всем

Может кто-нибудь сталкивался с такой задачей ))

Задание: В базе данных хранится значение функции на отрезке [x0,xk] аргумент изменяется с шагом h.

Нужно создать 3 базы данных для функций f1(x), f2(x), f3(x)

Сделать это нужно в fox pro с помощью командного окна

[malish-z]

если кому не тяжело,помогите написать програмку в паскале через функцию и процедуру:

вычеслить g(1,2;s)+g(2*s-1;s*t) где g(a,b)=(a^2+b^2)/(a^2+2ab+3b^2+4). Вычисление функции g(a,b) оформить в виде подпрограммы.

[Nata6enka]

Помогите пожалуйста в написании программы на с++ по моделированию.

Задание:

В порту танкеры загружаются сырой нефтью, которую доставляют затем по назначению. Мощности порта позволяют загружать не более трех танкеров одновременно. Танкеры, прибывающие в порт через каждые 11±7 часов, относятся к трем различным типам. Относительные частоты появления танкеров данного типа и времени (ч) соответственно: 0,25; 0,55; 0,20 и 18±2; 24±3; 36±4. В порту имеется один буксир, услугами которого пользуются все танкеры при причаливании и отчаливании. Причаливание и отчаливание занимают 1 час, причем, если в услугах буксира нуждаются сразу несколько танкеров, приоритет отдается операции причаливания.

Судовладелец предлагает дирекции порта заключить контракт на перевозку нефти по назначению и обеспечить выполнение условий контракта с помощью пяти танкеров особого четвертого типа, которые на погрузку тр***ют 21±3 часа. После погрузки танкер отчаливает и следует по назначению, там разгружаются, и затем снова возвращаются в порт для погрузки. Время цикла обращения танкера, включая время разгрузки, составляет 240±24 ч. Фактором, осложняющим процесс перевозки нефти, являются штормы, которым подвергается порт. Интервал времени между штормами распределен экспоненциально с математическим ожиданием 48 ч, причем шторм продолжается 4±2 ч. Во время шторма буксир не работает.

Перед заключением контракта руководство порта решило определить влияние, которое окажут, пять дополнительных танкеров на время пребывание в порту остальных судов. Выводы предложено сделать по результатам имитации работы порта в течение 1 года (8640 ч) при условии принятия предлагаемого контракта.

[zdanilv]

помогите пожалуйста написать программу на языке С++(компилятор dev-c++)

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

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

спасибо заранее)))

Изменено 22 марта, 2011 пользователем zdanilv