Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 11.06.2014, 20:26   #1 (permalink)
йцуйцу
Banned
 
Регистрация: 29.05.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите с описанием

Ребятки помогите доработать программу,
Требования
1) Программы должны обязательно содержать комментарии – как текст программы, так и все запросы по вводу данных к пользователю.
2) Выводы результатов должны быть информативными (не просто числовое значение) и в удобной для восприятия форме.
3) При запуске программы должно появляться краткое сообщение об ее назначении.
const n=2;
type mass= array[1..2*n] of Real;
function Big(aA: mass;ai: byte): Real;
var m: Real;
begin
if aA[ai]>aA[ai-1] then m:= aA[ai]
else m:= aA[ai-1];
Big:= m;
end;
var A,B: mass;
j,i: byte;
t: Real;
begin
for i:=1 to 2*n do
begin
Write('A[',i,':1]=');
Readln(A[i]);
end;
Writeln;
for i:=1 to 2*n do
Write(A[i]:5:1);
Writeln;
Writeln;
i:=2;j:=1;
repeat
t:= Big(A,i);
B[j]:= t;
Inc(i,2);
Inc(j)
until i>2*n;
for i:=1 to (j-1) do
Write(B[i]:5:1);
Readln;
end.

З.ы. Могу скинуть текст задачи, задавайте вопросы, отвечу.
йцуйцу вне форума   Ответить с цитированием
Старый 11.06.2014, 20:26   #2 (permalink)
йцуйцу
Banned
 
Регистрация: 29.05.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Дан массив A(N), N - четное. Сформировать массив B(N), элементами которого являются большие из двух рядом стоящих в массиве A чисел. Например, массив А состоит из элементов 1 3 5 -2 0 4, тогда массив В: 3 5 4.
йцуйцу вне форума   Ответить с цитированием
Старый 11.06.2014, 20:31   #3 (permalink)
йцуйцу
Banned
 
Регистрация: 29.05.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Пожалуй хватит хотя бы описания
йцуйцу вне форума   Ответить с цитированием
Старый 12.06.2014, 10:31   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Ладно, но только, уж извините, я эту программу весьма основательно "причесал": уж слишком много лишнего там наворочено.
Код:
const
 Nmax=20;    {Максимальная длина массива B}

function Big(Q1,Q2:real): Real; {функция выбора максимального из двух чисел}
begin
 if Q1>Q2 then Big:=Q1 else Big:=Q2;
end;

var  {Ввод переменных}
 A:Array[1..2*Nmax] of real;
 B:Array[1..Nmax] of real;
 i,n:byte;

Begin {Начало программы}
 Write('Число элементов массива B ');
 Readln(n);
 for i:=1 to 2*n do  {Цикл ввода исходного массива}
  begin
   Write('A[',i,']= ');
   Readln(A[i]);
  end;
 Writeln; {Отступ (пустая строка)}
 Writeln('Исходный массив:');
 for i:=1 to 2*n do {Вывод на экран исходного массива}
  Write(A[i]:5:1);
 Writeln; {Отступ (пустая строка)}
 Writeln; {Отступ (пустая строка)}
 for i:=1 to n do {Формирование массива B}
  B[i]:=Big(A[2*i],A[2*i-1]);
 Writeln('Новый массив:');
 for i:=1 to n do {Вывод на экран полученного нового массива}
  Write(B[i]:5:1);
 Readln {Приостановка выполнения программы с показом результата}
end. {Завершение программы}
Vladimir_S вне форума   Ответить с цитированием
Старый 12.06.2014, 22:44   #5 (permalink)
йцуйцу
Banned
 
Регистрация: 29.05.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо, друг мой)
йцуйцу вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

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

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




Часовой пояс GMT +4, время: 14:26.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.