![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 13
|
![]()
DSC06331.JPG вариант номер 23
задача не выводится на экран ,не могу понять где ошибка uses crt; const m=10;k=5; var i,j:integer; a,b:array[1..m,1..k] of integer; c:array[1..k] of integer; flag:boolean; begin randomize; clrscr; for i:=1 to m do begin for j:=1 to k do begin a[i,j]:=random(10); write(a[i,j],' '); end; writeln; end; writeln('============'); for i:=1 to m do begin for j:=1 to k do begin b[i,j]:=random(3); write(b[i,j],' '); end; writeln; end; writeln('============'); for j:=1 to k do begin flag:=true; c[j]:=0; for i:=1 to m do if a[i,j]<b[i,j] then flag:=false; if flag then for i:=1 to m do c[j]:=c[j]+a[i,j]+b[i,j]; end; writeln; for i:=1 to k do write(c[i],' '); end. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
![]()
Здравствуйте, Катенька :D На самом деле все хорошо выводится, просто после запуска RUN паскаль снова Вас возвращает в среду редактирования - он не оставляет Вас в терминале =) Чтобы снова попасть в терминал, надо после выполнения Вами программы через редактор (синий экран) =) тобишь после RUN (Ctrl+F9) нажать Alt+F5 чтобы он вас снова вернул =) и все будет хорошо - вы увидете свои результаты =) они там есть - я проверял =)
Есть еще один способ - вы можете в самом конце программы написать между write(c[i],' '); и end. оператор READLN, чтобы он не выбрасывал вас снова в редактор, а оставался в терминале (черный экран) до тех пор, пока вы не нажмете ENTER =) Удачи! =) |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 13
|
![]()
спасибо ,большое .Вы меня спасли :-*
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
![]()
:D обращайтесь :-*
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 13
|
![]()
а не могли бы мне помочь еще с одной задачкой
Получить массив X1,X2,.,Xn по правилу :Xi=1,если элемент Aij больше каждого из элементов i-й строки матрицы , иначе Xi=0.Найти также сумму элементов матрицы |
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
![]()
я так понял, что матрица дана - то есть в принципе ее можно создать, а потом с ней колдовать вашу задачу xD
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
![]()
просто мне немного условие непонятно - получается мы ищем максимальный элеент матрицы и, если он существует, записываем с элемент нового массива единицу, иначе (я даже не представляю, как может быть иначе, ибо всегда присутствует максимальный и минимальный элемент, за исключением случаев, когда некоторые элементы равны) мы записываем ноль
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 13
|
![]()
Спасибо большое за помощь,вы мне очень помогли я все сдала....урааааа:-*
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
![]()
так я ж даже последнюю задачу Вам не написал
![]() |
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 13
|
![]()
все равно вы мне очень помогли
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решите задачу(( | volk86 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 29.11.2008 19:47 |
Исправте ошибку(оператор case и if) | neomaximus | Помощь студентам | 9 | 29.11.2008 11:36 |
Снять задачу | |{ot | Операционные системы общие вопросы | 5 | 19.10.2008 18:33 |
Исправте программу.Ссылочные типы данных. Динамическая память | ромка) | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 30.05.2008 04:24 |