0 / 0 / 0
Регистрация: 12.04.2010
Сообщений: 15
1

Алгоритм с массивами...

16.04.2010, 20:07. Показов 994. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решить задачки, срочно, пожалуйста...
1) Дан массив действительных чисел x1;x2;...;xn. Выяснить, какое число в массиве встречается раньше - положительное или отрицательное. Если все члены массива равны нулю, сообщить.
2) Дан массив целых чисел а1;a2;...;an. Определить, чередуются ли четные и нечетные числа в массиве.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2010, 20:07
Ответы с готовыми решениями:

Составить алгоритм с массивами...
Помогите решить задачки, срочно, пожалуйста... 1) Дан массив действительных чисел x1;x2;...;xn....

Алгоритм с массивами
Не могу придумать, как оптимально сделать следующий алгоритм: Входные данные: некоторый массив...

Переделать алгоритм паковщика для работы с массивами вместо файлов
здравствйте. в си я новичек. помогите переделать код немного. это алгоритм упаковки lzw, он у меня...

Действия над массивами слов и массивами байтов
Есть задание: Даны два массива: массив слов MS и массив байтов MB. Установить "1" в 4-ых и 6-тых...

2
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
16.04.2010, 20:15 2
Лучший ответ Сообщение было отмечено _SulimaN_530 как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var m:array[1..100]of real;
i,n:integer;
f:boolean;
 
begin
 clrscr;
 write('N -> ');
 readln(N);
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 f:=false;
 for i:=1 to n do if m[i]>0 then
 begin
  f:=true;
  writeln('Положительное');
  break;
 end else if m[i]<0 then
 begin
  f:=true;
  writeln('Отрицательное');
  break;
 end;
 if not f then writeln('Массив содержит только нули');
 readln;
end.
Добавлено через 2 минуты
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var m:array[1..100]of real;
i,n:integer;
f:boolean;
 
begin
 clrscr;
 write('N -> ');
 readln(N);
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 f:=false;
 for i:=1 to n-1 do if not ((a[i] mod 2 = 0) and (a[i+1] mod 2 =1) or (a[i] mod 2 = 1) and (a[i+1] mod 2 =0)) then
 begin
  f:=false;
  break;
 end;
 if f then write('YES') else write('NO');
 readln;
end.
1
0 / 0 / 0
Регистрация: 12.04.2010
Сообщений: 15
18.04.2010, 20:22  [ТС] 3
k1ry4, Помогите решить задачу с помощью процедуры и функций,срочно.
1)Вычислить S=y+t+u, где y=сумма K=1 до m (sqrt(a[k])+a[k]), t=сумма k=1 до m (sqrt(b[k])+b[k]), u=сумма k=1 до m (sqrt(c[k])+c[k]). Векторы a,b,c -заданы.
0
18.04.2010, 20:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2010, 20:22
Помогаю со студенческими работами здесь

Нужен алгоритм поиска пути в этом лабиринте (будь то волновой алгоритм или алгоритм правой/левой руки )
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;conio.h&gt; using namespace std; void lab...

Волновой алгоритм поиска (Алгоритм A* / Алгоритм А стар)
Хочу разработать алгоритм для решения головоломки с подвижными дисками (перестановочная...

Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм
Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм 1. Объясни, что...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru