Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Terkin1
2 / 2 / 0
Регистрация: 23.05.2013
Сообщений: 23
1

На русском языке или языке программирования

26.01.2014, 17:12. Просмотров 1088. Ответов 1
Метки нет (Все метки)

Опишите на русском языке или на одном из языков программирования алгоритм получения из целочисленного массива А состоящего из 30 элементов массива В по следующему правилу: В [i] равно синусу числа A[i], если A[i] — отрицательно, и косинусу числа А[i], если А[i] — неотрицательно.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2014, 17:12
Ответы с готовыми решениями:

Дан текст на русском языке. Определить, каких букв больше –гласных или согласных
Тема: Множества Дан текст на русском языке. Определить, каких букв больше –гласных или согласных...

Напишите на языке программирования Паскаль или в виде блок-схемы алгоритм, позволяющий вычислить сумму корней
Напишите на языке программирования Паскаль или в виде блок-схемы алгоритм, позволяющий вычислить...

Опишите программу на русском языке
Пожалуйста помогите!!!!

Дана строка, содержащая текст на русском языке
Дана строка, содержащая текст на русском языке. Определить, сколько раз встречается в ней самое...

Дана строка, содержащая текст на русском языке.
Дана строка, содержащая текст на русском языке. Определить, сколько раз встречается в ней самое...

1
MaxioN03
4 / 4 / 5
Регистрация: 22.02.2013
Сообщений: 14
26.01.2014, 18:21 2
Лучший ответ Сообщение было отмечено Terkin1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i:integer;
    a:array[1..30] of integer; b:array[1..30] of real;  {Íàçíà÷àåì ìàññèâû}
begin
for i:=1 to 30 do                                       {Ñ÷èòûâàåì ýëåìåíòû ìàññèâà a}
read(a[i]);
for i:=1 to 30 do
begin
if a[i]<>0 then                                         {Ñòàâèì óñëîâèå, ÷òî ýëåìåíò íå ðàâåí íóëþ}
if a[i]<0 then b[i]:=sin(a[i])                          {Åñëè îòðèöàòåëüíûé, òî sin}
          else b[i]:=cos(a[i]);                         {...Ïîëîæèòåëüíûé - cos}
write(b[i],', ');                                       {Âûâîäèì ýëåìåíòû ìàññèâà b}
end;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.01.2014, 18:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана строка, содержащая текст на русском языке.
Дана строка, содержащая текст на русском языке.Выяснить, входит ли данное слово в указанный текст,...

Вывести строку - название соответствующей цифры на русском языке
дано целое число в диапазоне 0-9. вывести строку - название соответствующей цифры на русском...

Дан текст на русском языке.Найти количество гласных букв
Дан текст на русском языке.Найти количество гласных букв


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.