Не существует проблем, Не содержащих в себе дар

• Название: Не существует проблем, Не содержащих в себе дар
• Дата: 10.02.2023
• Размер: 174.46 Kb.
• Имя файла: d93c7123ba8169f2e5cfc7476bdfa5a1.pptx
• Тип: Документы; #929413

Не существует проблем,

Не содержащих в себе дар,

Предназначенный вам.

Вы ищите проблемы,

Потому что вам нужны их дары.

Ричард Бах.

План построения программы.
1)описание переменных.
2)стандартный ввод-вывод массива.
3)поиск и удвоение положительных элементов
4)вывод элементов массива в строку.


1)описание переменных.

Var A:array[1..25] of integer;

i: integer;

2)стандартный ввод-вывод исходного массива.

randomize;

For i:=1 to 25 do

Begin

a[i]:=-10+random(21);

write(a[i]:4);

end; writeln;

3) поиск и удвоение положительных элементов.

For i:=1 to 25 do

If a[i]>0 then a[i]:=2*a[i];

4) вывод обработанного массива в строку.

For i:=1 to 25 do

write(a[i]:4);

writeln;

Var A:array[1..25] of integer;

i: integer;

begin

randomize;

For i:=1 to 25 do

Begin

a[i]:=-10+random(21);

write(a[i]:4);

end; writeln;

For i:=1 to 25 do

If a[i]>0 then a[i]:=2*a[i];

For i:=1 to 25 do

write(a[i]:4);

writeln;

end.

1)Найдите ошибки при описании массива и правильный вариант:

а) Var A: array(1..100) of integer;
б) Var A: array[1…100] of integer;
в) Var A: array[1..10] of readln;
г) Var A: array[1..10] of integer;

2)Сколько элементов в массиве и каким способом задаются элементы массива?

Var A: array[1..100] of integer;

i:integer;

Begin

For i:=1 to 15 do

readln(A[i]);

3) Найдите ошибки при задании массива и правильный вариант :

а) For i=1 to 15 do б) For i:=1 to 15 do;

readln(A[i]); readln(A[i]);

в)randomize; г)randomize;

For i:=1 to 15 do For i:=1 to 15 do

Begin Begin

a[i]:=-10+random[21]; a[i]:=-10+random(21);

write(a(i):4); write(a[i]:4);

end; writeln; end; writeln;

4)Зачем нужен каждый алгоритм (что делает с массивом)?

а) s:=0; б)k:=0

For i:=1 to 20 do For i:=1 to 15 do

s:=s+a[i]; if a[i]>0 then k:=k+1;

в) For i:=1 to 20 do

if a[i] mod 2 =0 then write(a[i]:4);

г)max:=a[1];

For i:=1 to 20 do

if a[i]>max then max:=a[i];

Нужно поменять местами 2-й и 5-й элементы массива, состоящего из десяти целых чисел.

Был массив:

10, 30, -7, 15, 75, 16, -5, 0, 14, -10

Стал массив:

10, 75, -7, 15, 30, 16, -5, 0, 14, -10

Тема урока: «Перестановка элементов в одномерном массиве»

Цель урока: научиться переставлять элементы массива

Схема перестановки двух элементов с использованием промежуточной переменной

Алгоритм перестановки двух элементов в общем виде.

pr:=a[i];

a[i]:=a[j];

a[j]=pr;

План построения программы.
1)описание переменных.
2)стандартный ввод-вывод массива.
3) перестановка элементов.
4)вывод элементов массива в строку.

Program z1;

Var A:array[1..10] of integer;

i,pr: integer;

begin

randomize;

For i:=1 to 10 do

Begin

a[i]:=-10+random(21);

write(a[i]:4);

end; writeln;

pr:=a[2];

a[2]:=a[5];

a[5]:=pr;

For i:=1 to 10 do

write(a[i]:4);

writeln;

end.

Пришло время попробовать свои силы за компьютером.

Домашнее задание.

Повторить известные алгоритмы обработки массивов, выучить алгоритм перестановки.

Написать программу решения задачи

Задать массив, состоящий из 20 целых чисел. Поменять местами 3-й и максимальный элементы массива.