Кабинет Информатики

Понедельник, 17.06.2019, 11:46
Меню сайта
Наш опрос
Для чего нужно портфолио?
Всего ответов: 123
Новости...
Конкурсы
Позитивный контент-2017

Победитель Общероссийского рейтинга школьных сайтов
Знак качества Просвещения

Фонд 21 века
Рейтинг образовательных сайтов mega-talant.com
Эволюция - бесплатные конкурсы для педагогов и школьников
Фонд 21 века
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Besucherzahler
счетчик посещений
Среднее и дошкольное образование Центр профессионального роста Содружество

Проголосуй за наш сайт
Каталог webplus.info
Форма входа

Обработка массивов

Одномерные массивы

Алгоритмы поиска и присвоения значений элементам массива

Задача 1. Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести индексы и значения положительных элементов массива.
 USES Crt;
 CONST   N=10;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I:BYTE;
 BEGIN
   ClrScr;
   { Заполнение массива }
   FOR I:=1 TO N DO Begin
     Write('Введите ',I,' элемент массива ');  ReadLn(A[I]);
   End;
   { Обработка элементов массива }
   FOR I:=1 TO N DO
     IF A[I]>0 THEN  WriteLn('Положительный элемент = ',A[I],' его индекс = ',I);
 END.

Задача 2. Составить программу обработки массива K, состоящего из 20 элементов. Заполнить массив случайными числами в диапазоне от -5 до 25. Все элементы массива К, значения которых находятся в интервале от -2 до 20 возвести в квадрат. Измененный массив вывести на экран.
 USES Crt;
 VAR
   K:ARRAY[0..20] OF INTEGER;
   I:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива случайными числами }
   FOR I:=1 TO 20 DO Begin
     K[I]:=Random(30)-5;   Write(K[I]:3);
   End;   WriteLn;
   FOR I:=1 TO 20 DO
     IF (K[I]<20) AND (K[I]>-2) THEN K[I]:=K[I]*K[I];
   WriteLn('Измененный массив');
   FOR I:=1 TO 20 DO
     Write(K[I]:4);
  END.

Задача 3. Составить программу вычисления и печати значений функции  Y=sin(x-1)/2x. Значения аргументов задать в массиве X, состоящего  из 6 элементов. Значения функции записать в массив Y.
USES Crt;
 VAR
   X,Y:ARRAY[0..6] OF REAL;
   I: BYTE;
 BEGIN
   ClrScr;
   FOR I:=1 TO 6 DO Begin
     Write('Введите ',I,' значение аргумента '); ReadLn(X[I]);
   End;
   FOR I:=1 TO 6 DO Begin
     Y[I]:=SIN(X[I]-1)/(2*X[I]);
     WriteLn(' X= ',X[I]:4:1,'   Y=',Y[I]:5:2);
   End;
 END.

Задача 4. Дан массив M, состоящий из 30 элементов. Элементы массива - произвольные  целые числа. Выдать на экран значение каждого пятого и положительного  элемента.  Указанные элементы выдать в строку.
USES Crt;
 VAR
   M:ARRAY[0..30] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 30 DO Begin
     M[I]:=Random(20)-4;  Write(M[I]:3);
   End;   WriteLn;
   I:=5;
   WriteLn(' Значения каждого пятого и положительного элемента массива');
   While I<=30 DO Begin
     IF M[I] > 0 THEN Write(M[I]:3);
     I:=I+5;
   End;
 END.

Задача 5. Из элементов массива Р сформировать массив М той же размерности  по правилу: если  номер четный, то М[I]=I*P[I],если нечетный, то  M[I]=-P[I].
USES Crt;
 CONST   N=15;
 VAR
   P, M: ARRAY[0..N] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;  Randomize;
   WriteLn(' Значения элементов массива ');
   FOR I:=1 TO N DO Begin
     P[I]:=Random(70);  Write(P[I]:3);
   End;   WriteLn;
   WriteLn(' Значения элементов сформированного массива M');
   FOR I:=1 TO N DO Begin
     IF I mod 2 =0 Then M[I]:=P[I]*I Else M[I]:=-P[I];
     Write(M[I]:4);
   End;
 END.
.....................................................................................................................................
Практические задания
.....................................................................................................................................

  1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой.
  2. Дан одномерный массив  размерностью N, заполненный случайными числами в интервале от -15 до 20. Вывести на экран значения элементов массива, абсолютное значение которых >10.
  3. Дан одномерный массив  размерностью N, заполненный случайными числами. Каждый третий элемент массива возвести в квадрат, если элемент отрицательный. Измененный массив вывести на экран.
  4. Составить программу вычисления и печати значений функции  Y=(sinx+1)cos4x. Значения аргументов задать в массиве X, состоящего  из 10 элементов. Значения функции записать в массив Y.
  5. Заменить первые К элементов массива на противоположные по знаку.
  6. Из элементов массива А, состоящего из 25 элементов, сформировать массив D той же размерности по правилу: первые 10 элементов находятся по формуле Di=Ai+i, остальные - по формуле Di=Ai-i.
Поиск
Календарь
«  Июнь 2019  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930


Социальные сети
Портфолио

Полезные ссылки
  • Учительский портал
  • Педсовет.ORG
  • Дневник.ру
  • ProШколу.ru
  • Pedsovet.su
  • Завуч.инфо
  • Методисты.ру
  • Методсовет
  • УчМет
  • ИнформатикУрок
  • Менеджер образования
  • Сеть творческих учителей
  • Сообщество учителей ИКТ


  • Узнай свой IP адрес
    Перечень олимпиад на 2017-2018 учебный год







    Портал о суевериях, поверьях и приметах народов России