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

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

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


Ответ
 
Опции темы
Старый 18.12.2011, 13:29   #1
sparksurgeon
Новичок
 
Регистрация: 18.12.2011
Сообщений: 2
Репутация: 10
По умолчанию Ввод и вывод в одной строке

// Цель задачи: используя процедуры и функции из целочисленной матрицы А (n x m) получить вектор, элементами которого будут TRUE, если в соответствующей строке есть хотя бы один положительный элемент, и FALSE, если иначе.

Код:

program labN_N;

const Nmax=40;

type
   inp_matr = array[1..Nmax, 1..Nmax] of integer;
   out_mass = array[1..Nmax] of boolean;

// заполнение массива
procedure fill(var inp_matr1: inp_matr; n, m: integer);
   var i, j: integer;
   begin
        for i:=1 to m do begin
            for j:=1 to n do begin
                read(inp_matr1[i,j]);
            end;
        end;
   end;

// построение вектора
procedure vector(var inp_matr1: inp_matr; out_mass1: out_mass; n, m: integer);
   var key: boolean;
   i, j: integer;
   begin
        for i:=1 to m do begin
            key:=false;
            for j:=1 to n do begin
                if (inp_matr1[i,j] > 0) then
                   key:=true;
                out_mass1[i]:=key;
            end;
        writeln (out_mass1[i]);
        end;
   end;
            

var inp_matr2: inp_matr; out_mass2: out_mass; n, m: integer;
begin
   writeln('Введите длину матрицы');
   readln(n);
   writeln('Введите ширину матрицы');
   readln(m);
   fill(inp_matr2, n, m);
   vector(inp_matr2, out_mass2, n, m);
end.

Суть такая: выходной вектор формируется столбиком после заполнения матрицы. Нужно сделать так чтобы "True" или "False" выводились после заполнения каждой строки через пробел в отдельной процедуре.

Процедура называется "vector", говорили, что делать нужно как-то через pos, но работать с преобразованиями массива в строки - лишний гемор.

Подскажите, можно ли как-то ещё реализовать такого типа вывод?

Последний раз редактировалось sparksurgeon; 18.12.2011 в 14:00.
sparksurgeon вне форума   Ответить с цитированием
Старый 21.12.2011, 01:57   #2
sparksurgeon
Новичок
 
Регистрация: 18.12.2011
Сообщений: 2
Репутация: 10
По умолчанию

Ну что, нет идей?
sparksurgeon вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запретить ввод более одной десятичной точки в форму ввода("некорректный ввод") adller_one PHP 1 14.01.2011 00:59
ввод нескольких переменных в одной строке ЛЕХА_Г Помощь студентам 2 18.12.2009 02:19
ввод текста из одной формы в другие andrey0701 Microsoft Office Word 15 26.10.2009 11:53
два параметра в одной строке vaga Microsoft Office Access 1 22.09.2009 18:00
Замена многоточия одной точкой в строке S. Карась Помощь студентам 9 18.01.2008 19:13


18:09.


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

RusProfile.ru


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