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

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

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

Опишите на русском языке или на одном из языков программирования алгоритм получения из целочисленного массива А состоящего из 30 элементов массива В по следующему правилу: В [i] равно синусу числа A[i], если A[i] — отрицательно, и косинусу числа А[i], если А[i] — неотрицательно.
0
Лучшие ответы (1)
Similar
Эксперт
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
MoreAnswers
Эксперт
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 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru