|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.10.2008, 00:27 | #11 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Сорри, мой косяк, просто пишу вслепую.
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
11.10.2008, 00:33 | #12 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Вот код, который вышел:
program Projec4; {$APPTYPE CONSOLE} Const N=10; Var A:array[1..N] of Char; I:Integer; Function One(X:Char):Boolean; Var I,F:Integer; Begin F:=0; For I:=1 To N Do If A[i] = X Then Inc(F); If F = 1 Then One:=True Else One:=False; End; Begin For I:=1 To N Do If One(A[i]) Then WriteLn(A[i]); End. Но все таки 4то то не так, даже если вставить ридлн, что бы выводило, всетаки вот вставь себе код в делфи, и увидишь=(( |
11.10.2008, 00:41 | #13 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
11.10.2008, 00:48 | #14 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Спасибо большое, что уделил мне немножко времени=))
|
11.10.2008, 12:07 | #15 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Зада4ка:
Дано натуральне число n. Обчислити добуток перших n співмножників: 1/2*3/4*5/6*... |
11.10.2008, 19:49 | #16 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
кто то смотрел вышестоящию зада4ку?!
|
11.10.2008, 21:40 | #17 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
|
11.10.2008, 22:01 | #18 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Слушай, если можешь, напиши по русски плиз. Ниче не понял.
ICQ: 5311314
[SIGPIC][/SIGPIC] |
11.10.2008, 22:43 | #19 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Тойсть как я понимаю это зада4ю:
есть 4исла 1/2, 3/4, 5/6 ну и так делее (7/8, 9/10.....) Ну ты типо должен ука3ать например 4исло (n=5)? той1сть прога общитуеть умножение 1/2 * 3/4 * 5/6 * 7/8 * 9/10 и выдает ответ! Доход4иво обяснил? |
12.10.2008, 00:18 | #20 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если просто перемножить, то код ниже, а если полученную дробь нужно сократить. то нужно найти наибольший общий делитель и сократиь на него.
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна Программка | maikoms | Софт | 1 | 16.09.2008 23:16 |
Еще одна маленькая задачка в Excel | Vinni_puh | Microsoft Office Excel | 1 | 18.02.2008 01:49 |
Не маленькая недороботка | Sibedir | О форуме и сайтах клуба | 2 | 10.12.2007 13:27 |
Маленькая недоработка... | Карась | О форуме и сайтах клуба | 2 | 09.12.2007 18:34 |
Нужна программка | Венера | Фриланс | 11 | 06.10.2007 16:23 |