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

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

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

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

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

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

Доброе время суток. Нуждаюсь в вашей СРОЧНОЙ помощи в решении в край сложной для меня задачи Есть такой исходник :
Код:
program z1;
const n=10;
var a: array [1..n] of integer;
    buf,i,P:integer;
    f:byte;
begin
writeln('Введіть елементи масиву');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;
if f=1
   then begin
        buf:=a[1];
        a[1]:=a[n];
        a[n]:=buf;
        end
   else for i:=1 to n do
        a[i]:=-abs(a[i]);
for i:=1 to n do
    writeln(a[i]);
end.
Но,суть вот в чем: надо переделать эту задачу под процедуры. Мне вчера добрый человек помог с процедурой ввод
Код:
Procedure Input;
begin
writeln('Введіть елементи масиву');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
End;
теперь же я нуждаюсь в процедуре решение и выввод(и собсна как это все вместе слепить). Буду очень признателен и благодарен за помощь
hars1 вне форума
Старый 15.05.2014, 19:23   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Добрый человек вывод тоже оформил
ZX Spectrum-128 вне форума
Старый 15.05.2014, 19:25   #3
hars1
Пользователь
 
Регистрация: 18.03.2014
Сообщений: 11
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Добрый человек вывод тоже оформил
О,и снова здравсвуйте) Если честно, то я настолько слаб в паскале, что понял только ввод, а вывод-нет) Помогите мне с программой,пожалуйсто)
hars1 вне форума
Старый 15.05.2014, 21:05   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Код:
program z1;
const n=10;
var a: array [1..n] of integer;
    buf,i,P:integer;
    f:byte;

procedure InputP;
begin
 writeln('Введіть елементи масиву');
 for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
end;

Procedure Solution;
begin
f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;
if f=1
   then begin
        buf:=a[1];
        a[1]:=a[n];
        a[n]:=buf;
        end
   else for i:=1 to n do
        a[i]:=-abs(a[i]);
end;

procedure OutputP;
begin
for i:=1 to n do
    writeln(a[i]);
end;

begin
  inputP;
  Solution;
  OutputP;
end.
ZX Spectrum-128 вне форума
Старый 15.05.2014, 21:50   #5
hars1
Пользователь
 
Регистрация: 18.03.2014
Сообщений: 11
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Код:
program z1;
const n=10;
var a: array [1..n] of integer;
    buf,i,P:integer;
    f:byte;

procedure InputP;
begin
 writeln('Введіть елементи масиву');
 for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
write('Введіть P: ');
readln(P);
end;

Procedure Solution;
begin
f:=1;
for i:=1 to n do
    if f=1
       then
       if i mod 2 =0
          then if (a[i]>0) and (a[i]<P)
                  then f:=1
                  else f:=0
          else
       else break;
if f=1
   then begin
        buf:=a[1];
        a[1]:=a[n];
        a[n]:=buf;
        end
   else for i:=1 to n do
        a[i]:=-abs(a[i]);
end;

procedure OutputP;
begin
for i:=1 to n do
    writeln(a[i]);
end;

begin
  inputP;
  Solution;
  OutputP;
end.

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


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется срочная помощь! miana Помощь студентам 0 05.05.2009 19:34
Нужна срочная помощь world12_tk Общие вопросы C/C++ 1 24.02.2009 20:49
Нужна срочная помощь!!! Михей Фриланс 5 26.04.2008 17:19