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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

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

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

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,648
Репутация: 1218

icq: 723-321
skype: mad_cat1982
По умолчанию

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
Репутация: 10
По умолчанию

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

icq: 5438392
По умолчанию

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


08:26.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.