Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 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
Запретим gmail?
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 спасибо!
Евгения Игоревна вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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