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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 01.12.2013, 23:17   #21
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Ветку else уберите вообще, вам же нужно только вывести, Есть ли попадание и вместо вывода элемента массива напечатайте 'есть'

Работает у вас программа
ZX Spectrum-128 вне форума
Старый 01.12.2013, 23:24   #22
Елешечка
Пользователь
 
Регистрация: 06.11.2013
Сообщений: 36
По умолчанию

наверно надо всё таки вывести это число)
Елешечка вне форума
Старый 01.12.2013, 23:26   #23
Елешечка
Пользователь
 
Регистрация: 06.11.2013
Сообщений: 36
По умолчанию

а если этого числа нет всё равно надо что то вывести else нужно
Елешечка вне форума
Старый 01.12.2013, 23:27   #24
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
Writeln('Есть такое число! Оно равно ', masA[i,j]);
Так устроит?


Условие задачи перечитайте. Не надо ничего выводить!

Аааааа, если вообще не такого числа?
Заведите флажок типа boolean. До поиска числа flag:=false если нашли true
И если flag остался false то тогда и выводите упс, нет такого числа

Последний раз редактировалось ZX Spectrum-128; 01.12.2013 в 23:32.
ZX Spectrum-128 вне форума
Старый 01.12.2013, 23:30   #25
Елешечка
Пользователь
 
Регистрация: 06.11.2013
Сообщений: 36
По умолчанию

надо по другому( либоо от кучи нет избавляться и надо как то вывести саму матрицу
Елешечка вне форума
Старый 01.12.2013, 23:31   #26
Елешечка
Пользователь
 
Регистрация: 06.11.2013
Сообщений: 36
По умолчанию

надо) преподша заставит вывести сообщение в том случае если данного числа нет!
Елешечка вне форума
Старый 01.12.2013, 23:35   #27
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Перечитайте выше.
Саму матрицу вывести легко:
Код:
For i:=1 to m do 
  Begin
     For j:=1 to m do
        Write(masa[i,j]);
     Writeln;
   End;
ZX Spectrum-128 вне форума
Старый 01.12.2013, 23:36   #28
Елешечка
Пользователь
 
Регистрация: 06.11.2013
Сообщений: 36
По умолчанию

да я только что так и сделала))) только он выводит теперь то число и такого числа нет!
Елешечка вне форума
Старый 01.12.2013, 23:36   #29
Елешечка
Пользователь
 
Регистрация: 06.11.2013
Сообщений: 36
По умолчанию

program zad1;
var
masA: array [1..5,1..6] of real;
q:real;
m,i,n,j:integer;
emptu:boolean;
begin
writeln ('введите количество');
readln(m);
For i:=1 to m do
For j:=1 to m do
begin
masA[i,j]:=100*i+0.75*j;
end;
writeln('число для поиска ');
readln(q);
For i:=1 to m do
For j:=1 to m do
emptu:=true;
If masA[i,j]=q then
begin
writeln( 'есть',masA[i,j]);
emptu:=false;
end;
if emptu then writeln( 'такого числа нет');

END.
Елешечка вне форума
Старый 01.12.2013, 23:37   #30
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код в студию
ZX Spectrum-128 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан одномерный массив, сформировать новый массив по заданному правилу {Delphi} Nickolai47 Помощь студентам 5 16.12.2012 14:51
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны Koksa Помощь студентам 0 10.10.2011 11:26
Из массив А получить массив В, удвоив все нечётные элементы удвоены ( на Pascal) KARTER Помощь студентам 1 18.06.2011 19:58
Массив - Нужно написать массив и распечатать на экран с конца в начало(язык С++) econ Помощь студентам 1 29.05.2011 22:02