Jump to content
СофтФорум - всё о компьютерах и не только

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


Recommended Posts

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

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

!

Предупреждение:

Сергей Плоткин: ВНИМАНИЕ! помните, что вам никто ничего здесь не должен. И если вы попросили написать программу, а ее не написали - значит это никого не заинтересовало. Не надо оставлять сообщения типа "так что, мне никто не поможет?" - они будут расцениваться как флуд с принятием соответствующих мер.

!

Предупреждение:

Artur88: Если вы вставляете код программы то используйте тег code. Сообщения c листингом и без данного тега будут удаляться, а автору - предупреждение.

  • Upvote 2
Link to comment
Share on other sites

Дано:

Компоненты файла ассортимент являются объектами типа игрушка:

type название=array (1..15) of char;

диапазон= record мл, ст: integer end;

игрушка= record н: название ; ц: integer;д: диапазон end;

Предполагается, что поле н – это название игрушки (кукла, конструктор, кубики и т.д., незанятый буквами конец массива заполнен пробелами), поле ц – цена в рублях (напр. 100,50 руб.), поле д - возрастные границы.

Надо написать программу,в результате выполнения которой выдается стоимость самого дорогого конструктора.

Реализация в TurboPascale.

Напишите, если не трудно.

Link to comment
Share on other sites

  • 2 weeks later...

skilk

Вот выдалась свободная минутка, так что... На здоровие!

Собственно прога:

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

Program Search;

{---------------------}

uses

Crt;

{---------------------}

type

diapazon = record

min : integer;

max : integer;

end; {diapazon}

toy = record

name : string[15];

price : integer;

range : diapazon;

end; {toy}

{---------------------}

const

path = 'f:/file.txt';

{---------------------}

var

work, find,

result, tmp : toy;

f : file of toy;

err, j : byte;

i : longint;

{---------------------}

begin {search}

{$I-}

j:= 0;

assign(f, path);

while true do begin

ClrScr;

writeln('What do you want do do?');

writeln('1 - enter new data or 2 - search data in existing file or 3 - exit');

writeln('(press 1, 2 or 3)');

case ReadKey of '1':

begin

rewrite(f);

repeat

ClrScr;

repeat

writeln('Enter name of toy: ');

readln(work.name);

writeln('Are you sure? Yes - Enter');

until ReadKey = #13;

repeat

writeln('Enter price of toy: ');

readln(work.price);

err:= IOResult;

writeln('Are you sure? Yes - Enter')

until (ReadKey = #13) and (err = 0);

repeat

writeln('Enter min age: ');

readln(work.range.min);

err:= IOResult;

writeln('Are you sure? Yes - Enter')

until (ReadKey = #13) and (err = 0);

repeat

writeln('Enter max age: ');

readln(work.range.max);

err:= IOResult;

writeln('Are you sure? Yes - Enter')

until (ReadKey = #13) and (err = 0) and (work.range.max > work.range.min);

write(f, work);

writeln('Do you want to continue? No - Esc')

until ReadKey = #27;

close(f);

end; {case 1}

'2':

begin

reset(f);

while not EOF(f) do begin

read(f, tmp);

if tmp.name = 'constr' then begin

result:= tmp;

inc(j);

end; {if}

end; {while}

case j of 0: begin

writeln('No constructors :-(');

writeln('Press Enter');

readln;

end; {case 0}

1: begin

writeln('Most expensive constructor is: ');

with result do begin

write('Name: ', name);

writeln;

write('Price: ', price);

writeln;

write('Min age: ', range.min);

writeln;

write('Max age: ', range.max);

writeln;

end; {with}

writeln('Press Enter');

readln;

end; {case 1}

else begin

i:= 0;

while not EOF(f) do begin

seek(f, i);

read(f, work);

seek(f, i + 1);

read(f, find);

if (work.name = 'constr') and (find.name = 'constr') then begin

if work.price >= find.price then result:= work;

end; {if}

inc(i);

end; {while}

writeln('Most expensive constructor is: ');

with result do begin

write('Name: ', name);

writeln;

write('Price: ', price);

writeln;

write('Min age: ', range.min);

writeln;

write('Max age: ', range.max);

writeln;

end; {with}

writeln('Press Enter');

readln;

end; {case else}

end; {case j of...}

close(f);

end; {case 2}

'3': halt; {case 3}

end; {case readkey of...}

end; {while}

{$I+}

end. {search}

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

Если что не понятно, обращайся. Сразу маленькое замечание. Название игрушки я сделал не через массив char, а через string[15]. ИМХО так правильнее и проще. Нет смысла делать массив.

Link to comment
Share on other sites

  • 1 month later...

Даже не знаю как объяснить суть своей просьбы. Короче. Пытаюсь освоить Бейсик 6. Есть книга В.Г. Кузьменко, но есть некоторые трудности. Так вот, не мог бы мне кто-нибудь слить почти готовое, или готовое небольшое приложение, что бы я его в Бейсике мог разобрать по косточкам и поэксперементировать. Правда я не знаю возможно-ли это.

Link to comment
Share on other sites

  • 1 month later...

Есть идея (частично слизаная) построения программы - переводчика с использованием fuzzy-logic.

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

Link to comment
Share on other sites

  • 1 month later...

Darth Emil:

на трупо паскале
Обидеться, что ли, за Паскаль? :sm(100):

Навскидку, вот программа. Вводишь число - основание системы счисления, бьешь по кочерге, потом переводимое число (как водится, A..F или a..f играют роль дополнительных цифр в шестнадцатеричной системе), опять бьешь по кочерге и читаешь на выходном экране результат.

var

A:string; I,O,P:Integer; B,K:LongInt;

begin

B:=0; K:=1;

Readln(O);

ReadLn(A);

for I:=Length(A) downto 1 do

begin

P:=Ord(A)-48;

if P>9 then P:=P-7; if P>41 then P:=P-32;

B:=B+K*P;

K:=O*K;

end;

WriteLn(B);

end.

Link to comment
Share on other sites

Пошел в институт, вроде что-то знал по паскалю

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

Вот условие:

Разработать программу с помощью операторов цикла (For, While) Результат расчетов ввести в форме таблицы. В программу включить ввод исходных данных и их проверку на принадлежность диапазону от –100 до 100

Y=0.5x-2cos(x+П/4), X=e^a+e^(-a), A (принадлежит) (-5/4П;3/4П), (дельта)а =П/10

Edited by Shurr
Link to comment
Share on other sites

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

Link to comment
Share on other sites

Grimm:

Язык указан - паскаль.

Artur88:

Без WORD'а имхо обойтись можно, формула вроде бы несложная, а вот задание сформулировано отвратительно. Большие буквы и маленькие - это одно и то же? В формулах принято считать их разными, в Паскале они одинаковые, но формулы-то записаны не на Паскале. Потом, все данные уже есть в условии, что вводить и проверять-то? Не говоря уже об опечатках: ввести в смысле вывести?

P.S. Впрочем, чтобы не тянуть кота за хвост, вот версия:

program Table;

var

A,D,X,Y:Real;

begin

A:=-5/4*Pi;

D:=Pi/10;

while A<=3/4*Pi+D/2 do

begin

X:=Exp(A)+Exp(-A);

Y:=0.5*X-2*Cos(X+Pi/4);

WriteLn('A=',A,' Y=',Y);

A:=A+D;

end

end.

Никаких проверок вводимых данных, как и их ввода, нет (если не считать вводом упоминание в тексте программы).

Link to comment
Share on other sites

Господа, всем доброго времени суток!

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

Или 2 вариант. Имеются 2 программы на эту тему. Проблема в том, что в первую не могу загрузить базу данных, возможно имеются какие-то ограничения в самой программе.Сама программа построена на нейронных сетях .А во второй , до того закрученный интерфейс, что вообще непонятно, на что действительно программа способна. Так вот вопрос , можно ли имеющиеся программы под конкретно мои нужды подогнать? Также разумеется не за бесплатно. :)

:D

Link to comment
Share on other sites

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

TurboPaskal... Напишите плиз прогу:

"Произвести следующую обработку 10 вещественных чисел; найти кол-во чисел, равных нулю и найти синус чисел, входящих в диапазон [-15;15]"

Помогите....плиз....

Link to comment
Share on other sites

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

"Написать функцию нахождения в массиве целых чисел разности индексов максимального и минимального элементов".

Link to comment
Share on other sites

ALEKSeus

Во-первых, Pascal, а не Paskal.

Во-вторых, вот (пишу в блокноте, Паскаля под рукой нет, блин... Начинаю подзабывать синтаксис языка...):

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

Program Arr;

var

My_Arr : array[0..9] of real;

i, counter : byte;

begin

for i:= 0 to 9 do begin {enter My_Arr}

writeln('Enter element number', i+1);

readln(My_Arr);

end; {enter My_Arr}

counter:= 0;

for i:= 0 to 9 do begin {if}

if My_Arr = 0 then begin {= 0}

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

inc(counter);

writeln('sin(',My_Arr,') = ', sin(My_Arr));

end {= 0}

else begin {<>0}

if (My_Arr >= -15) and (My_Arr <= 15) then begin {in [-15,15]}

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

writeln('sin(',My_Arr,') = ', sin(My_Arr));

end; {in [-15,15]}

end; {<>0}

end;{if}

end.

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

pinmix

А кто такой VC? Прости уж меня за серость... :)

Link to comment
Share on other sites

Guest Форматцевт
pinmix

А кто такой VC? Прости уж меня за серость...  :blink:

210467[/snapback]

Ну, ты что это VisualC++, "++" ....забыл дописать. ИМХО

Edited by Форматцевт
Link to comment
Share on other sites

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

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

Помогите если не трудно.

Всё на Delphi.

Unit1.zip

Unit1.zip

Edited by Shurr
Link to comment
Share on other sites

создать приложение в среде программирования DELPHI нахождение точек интерполяционной кривой для значений ti=a+ih, h=(b-a)/10, i=0,1,…10.

создать программу, которая рассчитывает точки интерполяционной кривой для tkє[-5,6] с шагом ( 6+5)/10 ( для определения шага интервал изменения параметра подедить на 10 частей)

Link to comment
Share on other sites

Прошу помочь написать програмку на VC.

Т.е. "VisualC++"

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

задача:

Ввести строку.

Заменить знаки препинания на сокращения.

поясняю:

сначала ты вводишь текст... например:

"Сижу. Пишу."

затем нажимаешь [Enter] и в резльтате он должен вывести что-то типа:

"Сижутчк Пишутчк"

(конечно без цветовых пометок...)

Используемые сокращения:

"." = тчк

"," = зпт

":" = двт

"?" = впр

Предполагаю что нужно восполбзоваться библиотекой "string.h" и проверить наличие каждого символа, заменить его в обрабатываемом файле на "*" (к примеру), а в конечном файле на сокращение сдвинув при этом последующие слова на две позиции вправо (т.к. "," занимает один символ, а "зпт" - три!).

Т.е. в программе должно быть две "ячейки":

1я - ячейка в которой сохраняется введеный текст и постепенно изменяется:"Сижу*Пишу.";

2я - ячейка-результат: в нее сохраняется уже готовый вариант:"Сижутчк Пишутчк"

Может быть знаки препинания нужно задать массивом...

точно не знаю, но препод предположил такой вариант...

Link to comment
Share on other sites

  • 2 weeks later...

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

"Программа должна посчитывать кол-во символов в заданном текстовом файле "input.txt"

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

Edited by Gena0
Link to comment
Share on other sites

Привет! А мне надо решить детскую задачку, но для меня и эта задачка сташна... Паскаль.

В заданном массиве a1, a2, ..., an определить среднее значение его элементов, не учитывая максимальный и минимальный элементы.

Только, пожалуйста, максимально подробно.

Edited by Сим-Сим88
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.



×
×
  • Create New...