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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.03.2011, 11:52   #1
fait218
Пользователь
 
Регистрация: 09.03.2011
Сообщений: 10
По умолчанию Программа

http://i.pixs.ru/storage/8/5/5/Bezim...34_1827855.jpg - условие
Цитата:
program shesotsemdesyatchitire;
uses crt;
var a: array [1..10] of integer;
b: array [1..15,1..15] of integer;
n,i,j: integer;
begin
clrscr;
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
b[i,j]:= random(31);
writeln(b[i,j]:5);
end;
writeln;
end;
if i+j mod 2 =0 then if i+j=a[i] then begin
b[i,j]:=0; end;
writeln('0');
end.
скажите что тут не правильно?( зарание спасибо...
fait218 вне форума
Старый 10.03.2011, 12:20   #2
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Задание - заменить нулями элементы, у которых сумма индексов четная и элемент содержится в массиве a.
В программе сравнение только с i`м элементом массива a, причем не самого элемента, а суммы индексов.
Изменить на что-то в духе

Код:
if i+j mod 2 =0 then 
for k:=1 to 10 do
if a[k]=b[i,j] then begin
b[i,j]:=0;
break; 
end;
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума
Старый 10.03.2011, 12:29   #3
fait218
Пользователь
 
Регистрация: 09.03.2011
Сообщений: 10
По умолчанию

Огромное спасибо)
fait218 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа AllPasso Свободное общение 9 31.01.2011 15:00
Программа открыается если есть другая программа. bookkc Паскаль, Turbo Pascal, PascalABC.NET 12 14.10.2009 20:09
[PASCAL]Программа создания файла, программа обработки файла Виколяшка Фриланс 7 23.09.2009 17:38
Программа создания файла, программа обработки файла [PASCAL] Виколяшка Помощь студентам 1 22.09.2009 22:56