Forums.Avtograd.Ru: Напишите прогу! - Forums.Avtograd.Ru

Перейти к содержимому

  • (25 Страниц)
  • +
  • 1
  • 2
  • 3
  • 4
  • 5
  • Последняя »
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Напишите прогу! Все просьбы/предложения

#1 Пользователь офлайн   TRUTHFUL

  • Пользователь
  • PipPip
  • Группа: Модераторы
  • Сообщений: 412
  • Регистрация: 01 Ноябрь 07

Отправлено 01 Ноябрь 2007 - 22:49

Все предложения по написанию программ, лабораторных работ, утилит и прочего ТОЛЬКО в этой теме!
Истина где-то рядом... Пускай там и остается!
0


  • (25 Страниц)
  • +
  • 1
  • 2
  • 3
  • 4
  • 5
  • Последняя »
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Другие ответы в этой теме

#41 Пользователь офлайн   Here We Go

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 785
  • Регистрация: 01 Ноябрь 07

Отправлено 29 Ноябрь 2007 - 19:47

в осле есть норм русский паскаль?
-------------------- 
0

#42 Пользователь офлайн   up

  • Старожил
  • PipPipPipPipPip
  • Группа: Пользователи
  • Сообщений: 1 193
  • Регистрация: 01 Ноябрь 07

Отправлено 30 Ноябрь 2007 - 01:49

ищу компаньона для написания программы.
собственно одна часть, сам движок готов на 95%
нужен интерфейс под всё это дело. у программы конфигурационные файлы в собственном формате. вот нужен интерфейс, чтобы все настройки проводить не в текстовом файле, а нормально мышкой. программа называется KoderKey. по назначению - замена стандатрного клавиатурного драйвера с кучей функций(в том числе экзотические, обновление кэша иконок, или поиск pnp девайсов). есть плугин для работы с пультом от тв-тюнера gotview. есть модуль заголовков rawinput для работы с нестадартными клавами, в часноти usb, но он пока не прикручен к программе. программа на делфи 7.
0

#43 Пользователь офлайн   Konstantin

  • Новичок
  • Pip
  • Группа: Пользователи
  • Сообщений: 10
  • Регистрация: 28 Ноябрь 07

Иконки сообщения  Отправлено 01 Декабрь 2007 - 12:55

Необходимо сделать программу, которая преобразовывает *.bmp формат таким образом, чтобы выстраивание пикселей в памяти происходило с правого верхнего угла в право и, естественно, вниз. Заранее благодарю.
0

#44 Пользователь офлайн   Konstantin

  • Новичок
  • Pip
  • Группа: Пользователи
  • Сообщений: 10
  • Регистрация: 28 Ноябрь 07

Иконки сообщения  Отправлено 01 Декабрь 2007 - 13:08

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

#45 Пользователь офлайн   Володька

  • Новичок
  • Pip
  • Группа: Пользователи
  • Сообщений: 6
  • Регистрация: 01 Ноябрь 07

Отправлено 03 Декабрь 2007 - 13:26

Просмотр сообщенияAegis (1.12.2007, 11:55):

Мне вот чо надо сделать на Basic и Pascal:

Задание: Вывести число Фибаначи для заданного с клавиатуры номера.

(Число фибаначи - это число, которое является суммой двух предыдущих чисел).


Ну вот например, я ввожу номер числа, ну скажем 4, то он мне должен вывести 2, если 6, то он должен вывести 5, и так далее...

П.С. Смотрите на пример.

Заранее, благодарю. :)

это же очень просто... только я синтаксиса паскаля и бейсика не знаю)))
задаешь массив a[i], где i - номер числа
a[0]=0;
a[1]=1;
а дальше заполняешь циклом
a[i]=a[i-2]+a[i-1];
0

#46 Пользователь офлайн   xD_imon

  • Новичок
  • Pip
  • Группа: Пользователи
  • Сообщений: 3
  • Регистрация: 01 Ноябрь 07

Отправлено 08 Декабрь 2007 - 15:57

Может есть у кого что-нибудь по сортировки методом Шелла на основе сортировки таблицы адресов (блок-схему бы и код)
0

#47 Пользователь офлайн   musashi

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 573
  • Регистрация: 01 Ноябрь 07

Отправлено 08 Декабрь 2007 - 17:41

специально для тех кто не умеет пользоваться поисковыми системами!

Алгоритмы 3 тома:
ed2k://|file|%D0%9A%D0%BD%D1%83%D1%82.%20%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%
B8%D1%82%D0%BC%D1%8B.%203%20%D1%82%D0%BE%D0%BC%D0%B0.%20djvu.rar|19011858|F19C5662D59957E09B18EA3E521D07B1|h=LQJOHZMEOF7GAWRDK7VOZHP2M
B477TBR|/

0

#48 Пользователь офлайн   Apache

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 939
  • Регистрация: 02 Ноябрь 07

Отправлено 14 Декабрь 2007 - 13:31

Подскажите где я ошибся. Дана целочисленная прямоугольная матрица(я её рандомом сделал). Определить кол-во столбцов, содержащих хотя бы один нулевой элемент(оформить в виде функции).
Программа на Паскале. Файл с программой
0

#49 Пользователь офлайн   musashi

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 573
  • Регистрация: 01 Ноябрь 07

Отправлено 14 Декабрь 2007 - 20:41

а что тебе мешало запостить код сюда?

пости код сюда!
0

#50 Пользователь офлайн   .:Bingo:.

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 654
  • Регистрация: 01 Ноябрь 07

Отправлено 14 Декабрь 2007 - 20:42

Доброе время суток. Дорогие товарищи, помогите написать 2е программы (если сможете на Basik и Pascal), в долгу не останусь!!!!

1) Найти сумму элементов массива меньших чем min -2.
2) Найти определитель матрици А(25,25)
0

#51 Пользователь офлайн   Apache

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 939
  • Регистрация: 02 Ноябрь 07

Отправлено 15 Декабрь 2007 - 12:56

program dm;
var mas:array[1..5,1..7] of integer; a,i,j:integer;

function zc(ar:array of integer):integer;
begin
zc:=0;
for j:=1 to 7 do
for i:=1 to 5 do begin
if ar[i,j]=0 then begin zc:=zc+1; break; end; {<------- ar[i,_j] где _ выдает ошибку Invalid Qualifier}
end;end;

BEGIN
randomize;
for i:=1 to 5 do begin
for j:=1 to 7 do begin mas[i,j]:=random(6);write(mas[i,j]); end;
writeln;
writeln(zc(mas));
end;
end.


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

0

#52 Пользователь офлайн   Terror

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 512
  • Регистрация: 01 Ноябрь 07

Отправлено 15 Декабрь 2007 - 13:09

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

Просмотр сообщения.:Bingo:. (14.12.2007, 20:42):

Доброе время суток. Дорогие товарищи, помогите написать 2е программы (если сможете на Basik и Pascal), в долгу не останусь!!!!

1) Найти сумму элементов массива меньших чем min -2.
2) Найти определитель матрици А(25,25)

<!--sizeo:2--><span style="font-size:10pt;line-height:100%"><!--/sizeo-->< a href="http://forums.avtograd.ru/index.php?showtopic=119165" target="_blank">Quick Confign - программа для быстрого изменения настроек Windows</a><!--sizec--></span><!--/sizec-->
0

#53 Пользователь офлайн   musashi

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 573
  • Регистрация: 01 Ноябрь 07

Отправлено 15 Декабрь 2007 - 15:55

program dm;
var
mas: array[1..5, 1..7] of integer;
a, i, j: integer;

function zc(ar:array of integer): integer;
begin
  var
  res: Integer = 0;
  for i := 1 to 5 do begin
	for j := 1 to 7 do begin
	  if (ar[i, j] = 0) then begin
		res := res + 1;
	  end;
	end;
  end;
  zc := res;
end;

BEGIN
  randomize;
  for i := 1 to 5 do begin
	for j := 1 to 7 do begin
	  mas[i, j] := random(6);
	  write(mas[i, j]);
	end;
	writeln;
	{тут был косяк, нужно внячале заполнить матрицу, потом отправлять ее на обработку, либо при заполнении сразу же делать проверку на существование нуля}
  end;
  writeln(zc(mas));
END.

0

#54 Пользователь офлайн   Apache

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 939
  • Регистрация: 02 Ноябрь 07

Отправлено 16 Декабрь 2007 - 12:26

var
res: Integer = 0
пишется перед begin;


такой же загон опять, пишет Invalid Qualifier
0

#55 Пользователь офлайн   Daniboy

  • Пользователь
  • PipPip
  • Группа: Пользователи
  • Сообщений: 332
  • Регистрация: 01 Ноябрь 07

Отправлено 16 Декабрь 2007 - 12:30

Нужна программа НА pascal Которая подсчитывает стоимость телеграммы, текс которой вводится с клавиатуры!
0

#56 Пользователь офлайн   Apache

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 939
  • Регистрация: 02 Ноябрь 07

Отправлено 17 Декабрь 2007 - 21:31

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

Пожалуйста, объясните, почему появляется ошибка Invalid Qualifier.(Pascal)
program dm;
var
mas: array[1..5, 1..7] of integer;
a, i, j: integer;

function zc(ar:array of integer):integer;
var res:integer;
begin
res:= 0;
for i := 1 to 5 do begin
for j := 1 to 7 do begin
if (ar[i, j] = 0) then begin
res := res + 1;
end;
end;
end;
zc := res;
end;

BEGIN
randomize;
for i := 1 to 5 do begin
for j := 1 to 7 do begin
mas[i, j] := random(6);
write(mas[i, j]);
end;
writeln;
end;
writeln(zc(mas));
END.
0

#57 Пользователь офлайн   Apache

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 939
  • Регистрация: 02 Ноябрь 07

Отправлено 22 Декабрь 2007 - 12:08

Всё, разобрался сам. Надо было задать тип массива через type...
0

#58 Пользователь офлайн   musashi

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 573
  • Регистрация: 01 Ноябрь 07

Отправлено 24 Декабрь 2007 - 19:51

здарова народ!

вот идею решил подкинуть

в общем есть необходимость использования в программе Update приложения, написанного на API

программа должна уметь:
- вытягивать обновления с сайта
- вытягивать обновления с фтп(при наличии опыта)

допустим, есть файл в формате XML где будут храниться все файлы установленной проги (см. приложение 1) где к каждому файлу есть CRC-сумма, программа Update берет такойже XML файл с сайта или фтп, открывает его и начинает сверять с содержимым файла установленной проги, как только найдено несоответствие в CRC-сумме, начинается обновление данного файла и редактирование XML файла(вписывается CRC-сумма скаченного файла), файл помещается в ту же папку где и лужит в нашем установленном приложении!

приложение 1
<?xml version="1.0" encoding="UTF-8"?>
<xmldoc>
<updateurl>http://update.ru</updateurl>
<files>
<file fname="file1.txt" fcrc="342668"/>
<file fname="data/file2.txt" fcrc="223451"/>
<file fname="data/files/file3.txt" fcrc="112534"/>
</files>
</xmldoc>


нужно сделать на API + Socket-ы

c HTTP заголовками я подсобить смогу, а вот с фтп это проблема

кто возьмется?
0

#59 Пользователь офлайн   TRUTHFUL

  • Пользователь
  • PipPip
  • Группа: Модераторы
  • Сообщений: 412
  • Регистрация: 01 Ноябрь 07

Отправлено 24 Декабрь 2007 - 23:14

Просмотр сообщенияmusashi (24.12.2007, 19:51):

здарова народ!

вот идею решил подкинуть

в общем есть необходимость использования в программе Update приложения, написанного на API

программа должна уметь:
- вытягивать обновления с сайта
- вытягивать обновления с фтп(при наличии опыта)

нужно сделать на API + Socket-ы

c HTTP заголовками я подсобить смогу, а вот с фтп это проблема

кто возьмется?

Что в замен?
Истина где-то рядом... Пускай там и остается!
0

#60 Пользователь офлайн   musashi

  • Активный пользователь
  • PipPipPip
  • Группа: Пользователи
  • Сообщений: 573
  • Регистрация: 01 Ноябрь 07

Отправлено 25 Декабрь 2007 - 21:04

благодарность и похвола!
0

  • (25 Страниц)
  • +
  • 1
  • 2
  • 3
  • 4
  • 5
  • Последняя »
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

3 человек читают эту тему
0 пользователей, 3 гостей, 0 скрытых пользователей