Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Ish13
0 / 0 / 0
Регистрация: 29.12.2010
Сообщений: 5
1

Дан вектор, нужно разработать процедуру.

29.12.2010, 22:32. Просмотров 892. Ответов 1
Метки нет (Все метки)

type
vector = array[1..20] of char;
var
x,y,a,b:vector;
Необходимо разработать процедуру, преобразующую векторы X и Y к виду:
X=(a1...a8,x9...x20), Y=(y1...y5,b1...b6,y12...y16,a1...a4);
Не понимаю, как должна выглядеть эта процедура.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2010, 22:32
Ответы с готовыми решениями:

Дан вектор Х, все положительные компоненты вектора Х переписать в вектор Y
Дан вектор Х(х1,х2...xn)(n=10) все положительные компоненты вектора Х...

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

Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А
Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать...

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

Дан вектор А[1:30] и вектор В[1:15].
Прошу помоши. нужно дописать программу таким же образом, и построить головную...

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
30.12.2010, 18:12 2
Лучший ответ Сообщение было отмечено Ish13 как решение

Решение

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Uses
 CRT;
type
 vector = array[1..20] of integer;
var
 x,y,a,b:vector;
 i,l:integer;
 
procedure vect(Var mas:vector;n:integer;c:char);
begin
randomize;
writeln(c,': ');
for i := 1 to n do
begin
 mas[i]:=random(10)-3;
 write(mas[i]:3);
end;
writeln;
end;
 
procedure s(Var mas,mas2:vector;k,m,v:integer);
begin
repeat
 mas[k]:=mas2[m];
 inc(m);
 inc(k);
until (k>v);
end;
 
begin
vect(a,8,'A');
writeln('X: ');
for i := 1 to 20 do
begin
 x[i]:=random(10)-3;
 write(x[i]:3);
 if i<9 then
  x[i]:=a[i];
end;
writeln;
l:=1;
vect(b,6,'B');
vect(y,16,'Y');
s(y,b,6,l,11);
s(y,a,17,l,20);
writeln;
writeln('ÏðåîáðГ*çîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў X: ');
for i := 1 to 20 do
 write(x[i]:3);
writeln;
writeln('ÏðåîáðГ*çîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў Y: ');
for i := 1 to 20 do
 write(y[i]:3);
readkey
end.
Ну как-то так.
Только массив char сделайте
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2010, 18:12

Дан вектор А [1:20].
Дан вектор А . а) найти количество и сумму элементов из диапазона и...

Дан вектор...
Народ помогите пожалуйста с 2-мя задачами. ====1-я==== Дан вектор....

Разработать процедуру
Разработать процедуру вставки заданной строки B(l) в строку A(m) после k-го...


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

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

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