Разделы презентаций


Двовимірні масиви Назарова Н.С. ліцей “Самара”

Содержание

Знайти значення та індекси максимального елемента двовимірного масиву A[1..N,1..М].

Слайды и текст этой презентации

Слайд 1Двовимірні масиви
Назарова Н.С.
ліцей “Самара”

Двовимірні масивиНазарова Н.С.ліцей “Самара”

Слайд 2Знайти значення та індекси максимального елемента двовимірного масиву A[1..N,1..М].

Знайти значення та індекси максимального елемента двовимірного масиву A[1..N,1..М].

Слайд 3
program Max_Element;
uses Crt;
var i, j, k,

l, n, m: integer; {k, l –

індекси найбільшого елемента}
max: real;
a: array[1..20,1..20] of real;


begin
write('Введіть кількість рядків масиву (<=20): ');
readln(n); {Введення кількості рядків масиву}
write('Введіть кількість стовпчиків масиву (<=20): ');
readln(m); {Введення кількості стовпчиків масиву}


for i:=1 to n do
begin
for j:=1 to m do
begin
write(‘A[‘,i, ’, ‘,j,’]=’);
readln(A[i,j]); {Заповнення масиву }
end;
end;

program Max_Element;uses Crt;var     i, j, k, l, n, m: integer;

Слайд 4
max:=a[1,1]; k:=1; l:=1; {Вважаємо, що найбільший елемент є

A[1,1]}
for i:=1 to n do

begin
for j:=1 to m do


begin
If max begin
max:=a[i,j]; {Запам’ятовування значення найбільшого елемента}
k:=i; {Запам’ятовування індексів найбільшого елемента}
l:=j;
end;
end;


writeln (‘MAX=’,max); {Виведення значення найбільшого елемента}
writeln (‘Індекси найбільшого елемента рівні - ’,k, ‘та ’,l);
readkey; {Затримка зображення на екрані}
end.

max:=a[1,1]; k:=1; l:=1;   {Вважаємо, що найбільший елемент є A[1,1]}     for i:=1

Слайд 5Практична робота
1. Обчисліть добуток елементів головної діагоналі квадратної матриці: 4х4
2.

Нехай задана матриця А розмірністю 3×4 із дійсних чисел. Знайти

найбільший елемент у другому рядку даної матриці.
Практична робота1. Обчисліть добуток елементів головної діагоналі квадратної матриці: 4х42. Нехай задана матриця А розмірністю 3×4 із

Слайд 6Program max_st;
Type Matr=array[1..3,1..4] of real;
Var max: real;
a:Matr;
i,j:integer;
begin
for i:=1 to

3 do
for j:=1 to 4 do
begin
write(' a=[', i,

',',j,']=');
readln(a[i,j]);
end;
max:=a[2,1];
for j:=2 to 4 do
if maxmax:=a[2,j];
writeln ('Найбільший елемент другого рядка =', max:8:2);
end.
Program max_st;Type Matr=array[1..3,1..4] of real;Var max: real;a:Matr;i,j:integer; beginfor i:=1 to 3 dofor j:=1 to 4 do begin

Слайд 7Символи та Рядки в Pascal

Символи та Рядки  в Pascal

Слайд 8Рядок - це масив символів, елементів типу char. В

Паскаль рядок відповідає типу даних String.
var Ім ’ я :

string [Довжина];

Якщо довжина не вказана, виділяється пам’ять під рядок до 255 символів.

Теорія 1

var s1:string;

рядок 255 символів

var s2:string[20];

рядок 20 символів

Рядок - це масив символів,  елементів типу char. В Паскаль рядок відповідає типу даних String.var Ім

Слайд 9Правило:
Рядки дорівнюють один одному при однаковому наборі символів та однаковій

довжині;
Наприклад: 'ABC'='ABC' и 'ABC'≠'abc'


Порівняння двох рядків
Теорія

2
Правило:Рядки дорівнюють один одному при однаковому наборі символів та однаковій довжині; Наприклад: 'ABC'='ABC'  и 'ABC'≠'abc' Порівняння

Слайд 10Функція Сору
Функція Сору(S, P, N) виділяє з рядка S

підрядок довжиною N символів, починая з позиції P. Де N

та P – цілі вирази.

Теорія 3

У фразі МАМА МЫЛА РАМУ слово РАМУ починається з 11 літери та складається з 4 літер
COPY(s1,11,4)

Функція Сору Функція Сору(S, P, N) виділяє з рядка S підрядок довжиною N символів, починая з позиції

Слайд 11s1:='ABCDE123456789';
val(s1,n,code);
Writeln(n);
Функція Concat. Функція Concat здійснює об’єднання рядків Rl; R2, R3

в один рядок в такому порядку, в якому вони записані
Приклад.

Program Fconcat;
Const Rl='Moвa '; R2='програмування '; R3=’Turbo Pascal';
Var R:string[35];
begin
R:=concat(Rl,R2,R3);
writeln(R);
end.

6

s1:='ABCDE123456789';val(s1,n,code);Writeln(n);Функція Concat. Функція Concat здійснює об’єднання рядків Rl; R2, R3 в один рядок в такому порядку, в

Слайд 128
Функція Pos. Функція Pos знаходить номер позиції Р, з якої

починається перше входження слова C в рядку R. Якщо слово

C в рядку R не знайдено, то буде надруковано число 0.
Приклад. Program Fpos;
Const R=‘інформатика'; C=‘форма';
Var P: integer;
begin
P:=Pos(C, R);
writeln('P=',P);
end.

8Функція Pos. Функція Pos знаходить номер позиції Р, з якої починається перше входження слова C в рядку

Слайд 139
Процедура Insert. Процедура Insert вставляє слово R1 в рядок R,

починаючи з позиції Poz.

Приклад. Program PInsert;

Var Poz: integer;
R, R1: string[35];
begin
R:='Moвa Pascal';
R1:=’Turbo ‘;
insert(R1, R, 6);
writeln(R);
end.

9Процедура Insert. Процедура Insert вставляє слово R1 в рядок R, починаючи з позиції Poz.Приклад. Program PInsert;

Слайд 1410
Процедура Delete. Процедура Delete знищує слово, яке починається з

вказаної позиції Poz і має задану довжину N в рядку

R.
Приклад. Program PDelete;
Var R:string[35];
begin
R:='Moвa Turbo Pascal';
delete(R, 6, 6);
writeln(R);
end.
10 Процедура Delete. Процедура Delete знищує слово, яке починається з вказаної позиції Poz і має задану довжину

Слайд 15Підготуватися до контрольної роботи,
Записати функцію length

Підготуватися до контрольної роботи, Записати функцію length

Слайд 167
Функція Length. Функція Length видає фактичну довжину рядка, яка міститься

в даній змінній. При підрахуванні довжини рядка враховуються усі символи,

в тому числі і проміжки!!!
Приклад. Program Flength;
Const R=’Turbo Pascal’;
Var N: integer;
begin
N:=length(R);
writeln('n=',N);
end.

7Функція Length. Функція Length видає фактичну довжину рядка, яка міститься в даній змінній. При підрахуванні довжини рядка

Слайд 1711
Скласти програму обчислення кількості букви «А» в реченні.
Program z1;
Var

S: string;
N, i,k:integer;
Bеgin
Writeln(‘->s’); readln(s);
N:= length(s);
K:=0; For i:=1 to n do
If

s[i]=’a’ then k:=k+1;
Writeln(‘k=’,k); End.
11 Скласти програму обчислення кількості букви «А» в реченні.Program z1;Var S: string;N, i,k:integer;BеginWriteln(‘->s’); readln(s);N:= length(s);K:=0; For i:=1

Слайд 18 Завдання 7. Змінній присвоїти ПІБ, вивід почати з 8

символу 3 літери


Завдання 8. Скласти програму обчислення кількості букви «с»

в реченні “ Я навчаюсь в ліцеї Самара”

13 Практична робота

Задача 2. Знайти довжину слів: ДИСКОВОД, ВІДЕОМОНІТОР, КОМПЮТЕР

Завдання 7. Змінній присвоїти ПІБ, вивід почати з 8 символу 3 літериЗавдання 8. Скласти програму обчислення

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика