Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2017, 07:45   #1
Programmer-Analyst
Пользователь
 
Регистрация: 23.11.2015
Сообщений: 11
Вопрос Нужна помощь Как решить данные задачи?

Не могу решить следующие задачи :
1. В матрице Z (4,5) переписать в обратном порядке элементы в тех строках, которые начинаются с нуля. Все отрицательные элементы вывести в массив В (N).
2. Исключить все символы, идущие подряд (то есть группами более 1 шт.), равные символу, введенному с клавиатуры.
Пожалуста приведите код решения данных задач на Object Pascal
Например ко второй задачи нужно написать так?
3. Преобразовать массив Z(12) по следующему правилу: перемно-
жить первое и второе число в каждой паре и если произведение отрица-
тельное, то включить первое и второе число, если равно нулю, то не
включать ни одного; если положительное, то только первое число.

Код:
begin
if(Key = Ord('##'),('++')) then
Key = 0;
end;

Последний раз редактировалось Programmer-Analyst; 12.01.2017 в 08:27.
Programmer-Analyst вне форума Ответить с цитированием
Старый 12.01.2017, 09:14   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var z:array[1..4,1..5] of integer;
    b:array of integer;
    i,j,n:integer;
begin
   Randomize;
   For i:=1 to 4 do
   begin
      For j:=1 to 5 do
      begin
         z[i,j]:=-10+Random(21);
         Write(z[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 4 do
   begin
      If z[i,1]=0 then
         For j:=1 to 2 do
         begin
            n:=z[i,j];
            z[i,j]:=z[i,6-j];
            z[i,6-j]:=n;
         end;
   end;
   For i:=1 to 4 do
   begin
      For j:=1 to 5 do
         Write(z[i,j]:2,'  ');
      Writeln;
   end;
   Writeln;
   n:=0;
   SetLength(b,n);
   For i:=1 to 4 do
      For j:=1 to 5 do
         If z[i,j]<0 then
         begin
            n:=n+1;
            SetLength(b,n);
            b[n-1]:=z[i,j];
         end;
   For i:=0 to n-1 do
      Write(b[i]:2,'  ');
   Writeln;
   Readln;
end.
Код:
var s:string;
    i,n,k:integer;
    c:char;
begin
   Write('s = '); Readln(s);
   Write('n = '); Readln(n);
   If n<2 then
      n:=2;
   k:=1;
   c:=s[Length(s)];
   For i:=Length(s)-1 downto 1 do
      If c=s[i] then
      begin
         k:=k+1;
         If k>=n then
            Delete(s,i,n-1);
      end else
         c:=s[i];
   Writeln(s);
   Readln;
end.
Код:
var z:array[0..11] of integer;
    i,p:integer;
begin
   Randomize;
   For i:=0 to 11 do
   begin
      z[i]:=-10+Random(21);
      Write(z[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   For i:=0 to 5 do
   begin
      p:=z[2*i]*z[2*i+1];
      If p<0 then
      begin
         z[2*i]:=p;
         z[2*i+1]:=p;
      end else
      If p>0 then
         z[2*i]:=p;
   end;
   For i:=0 to 11 do
      Write(z[i]:2,'  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Срочно нужна помощь по паскалю до 2 июля! Решить 2 задачи. vladislav57rus Паскаль, Turbo Pascal, PascalABC.NET 0 28.06.2015 17:13
Кто знает как решить данные задачи? Cyber 10111 Паскаль, Turbo Pascal, PascalABC.NET 1 17.12.2013 18:05
Пожалуйста, нужна срочная помощь!!! Как восстановить данные после очистки корзины!!! FeoKat Свободное общение 3 12.11.2009 01:48
Не могу понять как решить задачи. Нужна помощь Студент заочник Помощь студентам 9 30.12.2008 23:49