Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
sanek732
0 / 0 / 0
Регистрация: 20.02.2010
Сообщений: 4
#1

Массивы , матрицы,символы! - Pascal

20.02.2010, 16:29. Просмотров 821. Ответов 7
Метки нет (Все метки)

к каждой задаче нужна блок схема!!!!
1.В каждой паре чисел массива Z(10) выполнить следующие преобразования:если числа одинаковых знаков, то поменять их местами,а большее из них переписать в массив А;если знаки разные,то оба числа записать в массив А.
Пример массива Z(10):-3.2,-4,2.8,7,-3.2,7,2.8,-3,-5,-7.
2.Дана матрица Z(4,6).Определить и вывести в массив В все элементы, которые в своей строке больше предыдущего и меньше последующего.
3.Даны две строки символов.В первой оставить только те, которых нет во второй строке.


ВСЕМ ЗАРАНЕЕ СПАСИБО ЗА ПОМОЩЬ!!!

Добавлено через 8 часов 23 минуты
Народ очень прошу после завтра уже сдавать для допуска на экзамен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.02.2010, 16:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массивы , матрицы,символы! (Pascal):

Вектора,матрицы,массивы и символы.
нигде не могу найти ничего похожего на данные задачи ,кто чем сможет помочь...

массивы и матрицы
Помогите пожалуйста разобраться!!! В одномерный массив v записать...

Массивы и матрицы
Ребята помогите пожалуста. Вывести в центр экрана массив из 5 строк и 3...

Массивы и матрицы
Пожалуйста помогите, надо зачет сдавать, хоть что нибудь, а то нас загрузили по...

Массивы, матрицы
1)в одномерном массиве из n вещественных чисел найти наименьший элнмент и...

Массивы и матрицы
Помогите пожалуйста решить задачи: 1. Дан массив. Определить сколько четных...

7
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
20.02.2010, 17:42 #2
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
uses crt;
var z,a:array[1..10]of real;
i,k:integer;
b:real;
 
begin
 clrscr;
 write('Введите массив Z -> ');
 for i:=1 to 10 do read(z[i]);
 readln;
 k:=0;
 for i:=1 to 5 do if z[2*i]*z[2*i-1]>0 then
 begin
  b:=z[2*i];
  z[2*i]:=z[2*i-1];
  z[2*i-1]:=b;
  inc(k);
  if z[2*i]>z[2*i-1] then a[k]:=z[2*i] else a[k]:=z[2*i-1];
 end else
 begin
  inc(k);
  a[k]:=z[2*i-1];
  inc(k);
  a[k]:=z[2*i];
 end;
 
 writeln('Массив Z');
 for i:=1 to 10 do write(z[i]:0:3,' ');
 writeln('Массив A');
 for i:=1 to k do write(a[i]:0:3,' ');
 readln;
end.
0
sanek732
0 / 0 / 0
Регистрация: 20.02.2010
Сообщений: 4
22.02.2010, 09:05  [ТС] #3
2.Дана матрица Z(4,6).Определить и вывести в массив В все элементы, которые в своей строке больше предыдущего и меньше последующего.
3.Даны две строки символов.В первой оставить только те, которых нет во второй строке.
0
Puporev
Модератор
54147 / 41780 / 28886
Регистрация: 18.05.2008
Сообщений: 98,328
22.02.2010, 09:26 #4
2.
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
uses crt;
const n=4;
      m=6;
var z:array[1..n,1..m] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('МСатрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    z[i,j]:=random(20);
    write(z[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Элементы, которые в строке больше предыдущего и меньше следующего:');
for i:=1 to n do
for j:=2 to m -1 do
if (z[i,j]>z[i,j-1])and(z[i,j]<z[i,j+1]) then write(z[i,j],' ');
readln
end.
0
sanek732
0 / 0 / 0
Регистрация: 20.02.2010
Сообщений: 4
22.02.2010, 09:30  [ТС] #5
спасибо вам большое осталось одна задачка кто поможет ещё?)))и ребята кто может блок схемы нарисовать???
3.Даны две строки символов.В первой оставить только те, которых нет во второй строке.
0
Puporev
Модератор
54147 / 41780 / 28886
Регистрация: 18.05.2008
Сообщений: 98,328
22.02.2010, 09:43 #6
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s1,s2:string;
    i:byte;
begin
clrscr;
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
for i:=length(s1) downto 1 do
if pos(s1[i],s2)>0 then delete(s1,i,1);
writeln('Первая строка после удаления:');
write(s1);
readln
end.
0
WolfCF
3288 / 1350 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
22.02.2010, 14:44 #7
вот, все подписаны.
0
Миниатюры
Массивы , матрицы,символы!   Массивы , матрицы,символы!   Массивы , матрицы,символы!  

sanek732
0 / 0 / 0
Регистрация: 20.02.2010
Сообщений: 4
23.02.2010, 05:36  [ТС] #8
Cпасибо огромное вам)))
0
23.02.2010, 05:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2010, 05:36
Привет! Вот еще темы с решениями:

Матрицы (массивы)
Ребят, помогите. Задан целочисленный массив с количеством элементов n. Сжать...

Массивы и матрицы
Помогите пожалуйста с задачами: 1) Нахождение введённого с клавиатуры символа...

Массивы- матрицы
Проверьте кому не сложно , есть ли уже решеное задание . Может быть кто то уже...

Массивы, матрицы.
1) Даны действительные числа a,b,c,d. Если a&lt;b&lt;c&lt;d, то каждое число заменить...


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

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

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