Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Не могу решить следующие задачи :
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 в 09:27.
Programmer-Analyst вне форума   Ответить с цитированием
Старый 12.01.2017, 10:14   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,534
Репутация: 1425

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




17:23.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru