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.
|
12.06.2014, 10:31 | #4 (permalink) |
Специалист
Регистрация: 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. {Завершение программы} |
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
|
|
|