Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
паскаль
Кто-нибудь,помогите пожалуйста выполнить задание..оочень буду благодарна.Никак не получается оно,замучалась уже(

1. Задания
В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одним массивом, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам.

2. Правила оформления работы
1. Предусмотреть вывод на экран ФИО, № группы студента, сделавшего работу.
2. Автоматическое формирование исходного массива.
3. Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями.
4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода массива.

Вот то задание,которое дано как условие: Дан массив целых чисел а1,…, аn.Все элементы массива, предшествующие наименьшему числу, домножить на это число.
Вот как это условие выполнено в Паскале:
Var A:array[1..100] of integer;
i,imin,n:integer;
Begin
write('Введите размерность: ');readln(n);
writeln('Исходный массив');
For i:=1 to n do
Begin
A:=random(11)-5;
write(A:3);
if i=1 then imin:=1;
if A<A [imin]then imin:=i;
End;
writeln;
writeln('Минимальный элемент: ',A[imin]);
writeln('Преобразованный массив');
For i:=1 to n do
Begin
if i<imin then A:=A*A[imin];
write(A
:3);
End;
readln;
End.
1 | Автор: mokr-lena | 2013-04-24, 18:27 | Изменено: mokr-lena - Ср, 2013-04-24, 18:28   |  Репутация: [ + 0 ]
Сначала сделай вот что:
Цитата (mokr-lena)
Обязательны процедуры формирования и вывода массива.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-04-25, 08:08   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: