Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 29.06.2010
Сообщений: 24
1

Вектор

29.06.2010, 21:51. Просмотров 1567. Ответов 2
Метки нет (Все метки)


Выяснить, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2010, 21:51
Ответы с готовыми решениями:

Дана матрица A и вектор B порядка N. Поулчить вектор С, i-ый элемент которого..
Уважаемые форумчане) Помогите написать пожалуйста =) Дана матрица A и вектор B порядка N....

Дан вектро А, состоящий из N компонентов, и вектор В из М компонент.Построить новый вектор из M+N так:
Дан вектро А, состоящий из N компонентов, и вектор В из М компонент.Построить новый вектор из M+N...

Получить в результате умножения исходной матрицы А(6,7) на вектор-столбец В(7) вектор С(6), каждый элемент которого вычисляется по формуле
Помогите сделать еще одну прогу!!! - Дана действительная матрица А(6,7) и вектор-столбец В(7)....

Процедуры и функции: получить вектор А * b (A - матрица, b - вектор)
Есть квадратная матрица A порядка n и вектор b с n элементами. Получить вектор А * b. Заранее...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
Эксперт по компьютерным сетям
4811 / 2709 / 833
Регистрация: 03.11.2009
Сообщений: 8,390
Записей в блоге: 3
29.06.2010, 22:51 2
Лучший ответ Сообщение было отмечено Shark19 как решение

Решение

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
28
29
30
program chis;
uses crt;
 
const x=100;
 
var
mas: array [1..x] of integer;
i,k: integer;
 
 
BEGIN
clrscr;
k:=0;
randomize;
 
for i:=1 to x do mas[i]:=random(3);
 
for i:=1 to x-1 do
 begin
  if (mas[i]=0) and (mas[i+1]=0) then
    begin
     writeln('Элемент # ',i,' и элемент # ',i+1,' равны нулю');
     inc(k);
    end;
 end;
 
 if k=0 then writeln ('В последовательности нет двух подряд идущих нулевых члена.')
 else writeln('Найдено ',k);
readkey;
END.
1
0 / 0 / 0
Регистрация: 29.06.2010
Сообщений: 24
30.06.2010, 16:55  [ТС] 3
Огромнейшее спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2010, 16:55

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

Заданы логический вектор a={a1,a2,...,An,} и вещественный вектор x={X1,X2,...,Xn}.
Заданы логический вектор a={a1,a2,...,An,} и вещественный вектор x={X1,X2,...,Xn}. Преобразовать...

Задан вектор C={Cn} Найти вектор y={Cn/|C|}
Напишите в Паскале плиз! Заранее спасибо! Задан вектор C={Cn} Найти вектор y={Cn/|C|}

Тип обьект "вектор" содержит поля: "вектор, егоразмер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление.
Тип обьект "вектор" содержит поля: "вектор, его размер и идентификатор в символьном виде", ...

вектор
1. дан вектор X. Поменять местами максимальный и минимальный елемент плиз надо срочно!!!


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

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

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