Планирование уроков на учебный год (по учебнику Н.Д. Угриновича)



Уроки 25 - 26
Практическая работа 1.9
«Разработка проекта «Слово-перевертыш»»




Содержание урока

Программа «Слово-перевертыш» на языке программирования OpenOffice.org Basic

Проект «Слово-перевертыш» на языках объектно-ориентированного программирования Visual Basic и Gambas

Лабораторная работа № 9. Шаг 1. Знакомимся с алгоритмами сортировки и двумерными массивами в языке программирования Паскаль

Лабораторная работа № 9. Шаг 2. Решаем задачи на Паскале. Задача 1

Лабораторная работа № 9. Шаг 2. Решаем задачи на Паскале. Задача 2

Лабораторная работа № 9. Шаг 2. Решаем задачи на Паскале. Задача 3

Лабораторная работа № 9. Шаг 2. Решаем задачи на Паскале. Задача 4

Лабораторная работа № 9. Шаг 2. Решаем задачи на Паскале. Задача 5

Лабораторная работа № 9. Шаг 2. Решаем задачи на Паскале. Задача 6

Лабораторная работа № 9. Шаг 3. Тест


image Шаг 2. Решаем задачи на Паскале

image Задача 6. Заполните матрицу размера n × m случайными числами из отрезка [1..100]. Найдите позицию минимального элемента среди максимальных элементов каждого ряда.

1. Дан шаблон программы решения задачи. Дополните его – составьте программу.

program matritca_6;
uses crt;
var
   a: _________ ________  ________________
   i, j, n, m, imax, jmax, iimin, jjmin, min :_____________
begin
  randomize;
  writeln  ('Введите размер квадратной матрицы');
  ________________; 
  {получение матрицы случайных чисел}
  for i:= __ to __ do
    for j:= __ to __ do
      _____________;
  {вывод полученной матрицы}
  for i:= 1 to n do
     _________
       for j:= 1 to m do
          _____________
       ______________
     ______

  {основная часть}
  min:=101;   {Подумайте почему}
  for i:= 1 to n do
     _________

        {поиск позиции максимального элемента 
         в каждой строке матрицы}
        imax:=___;
        jmax:=___;
        for j:= 1 to m do
          if ________________ then
             _________
                 imax := __;
                 jmax := __;
             _______;

       {поиск позиции минимального из максимальных элементов}
       if ________________________ then
          _________
             min:=_________;
             iimin := _______;
             jjmin := _______;
          _______;

     _______;
  writeln ______________;
______

2. Выполните программу. Если обнаружите ошибки, исправьте их.

3. Скриншот выполнения программы (текст программы должен быть виден):

 Скриншот 


Cкачать материалы урока
image







Наверх