Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 05.05.2011, 13:59   #1
Евгения Игоревна
Новичок
Джуниор
 
Регистрация: 05.05.2011
Сообщений: 4
По умолчанию паскаль и турбо паскаль

помогите решить 2 задачи

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

2.на входе программе подается последовательность символов, состоящая из букв латинского алфавита и цифр. ввод символов заканчивается точкой.
требуется написать как можно более эффективную программу, которая состоит из всех цифр, встретившихся в строке и не равных нулю, формирует наименьшее число (без повторов) и выводит на экран число, равное синусу полученного числа. если таких цифр нет, то программа выводит нуль.
пусть, например, на входе программе поданы следующие символы: a1ab1ac1ad2ae4r4
в данном случае программа должна вывести sin(124)=-0,995686
Евгения Игоревна вне форума
Старый 05.05.2011, 14:03   #2
kompaky
Иденитса!!
Пользователь
 
Аватар для kompaky
 
Регистрация: 11.02.2011
Сообщений: 24
По умолчанию

А ваши наработки?
Прочтите особенно пост 2
kompaky вне форума
Старый 05.05.2011, 14:04   #3
Евгения Игоревна
Новичок
Джуниор
 
Регистрация: 05.05.2011
Сообщений: 4
По умолчанию

for k:=n downto 1 do begin
b[k]:=1;
for j:=1 to a[n+1-k] do
b[k]:=b[k]*a[n+1-k]
end;
это к 1. а как подойти ко 2 вообще не знаю((((
Евгения Игоревна вне форума
Старый 05.05.2011, 14:24   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

2) переменные сами описывайте
Код:
a:=['0'..'9'];
b:=[];
ch:=0;
for i:=1 to length(s) do
if (s[i] in a) and not (s[i] in b) then begin
b:=b+[s[i]];
ch:=ch*10+ord(s[i])-ord('0');
end; 
writeln(sin(ch));
1)
Код:
function fact(n : integer) : longint;
  begin
    if n <= 1 then
      fact := 1
    else
      fact := n * fact(n - 1);
  end;
{|||||}
for i:=n downto 1 do begin
b[n-i+1]:=fact(a[i]);
{|||||}
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 05.05.2011 в 14:27.
Mad_Cat вне форума
Старый 05.05.2011, 14:25   #5
Евгения Игоревна
Новичок
Джуниор
 
Регистрация: 05.05.2011
Сообщений: 4
По умолчанию

спасибо большое) Mad_Cat
Евгения Игоревна вне форума
Старый 05.05.2011, 14:26   #6
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

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

upd:
я медлителен
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума
Старый 05.05.2011, 14:31   #7
Евгения Игоревна
Новичок
Джуниор
 
Регистрация: 05.05.2011
Сообщений: 4
По умолчанию

Vanta11a спасибо!
Евгения Игоревна вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
турбо паскаль IceFlame1292 Помощь студентам 2 11.01.2011 17:09
турбо паскаль miron.n Помощь студентам 2 01.05.2010 06:12
Турбо Паскаль Jondeer Помощь студентам 5 27.10.2007 17:19


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS