Уроки 23 - 24
Практическая работа 1.8
«Разработка проекта «Коды символов»»

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

Программа «Коды символов» на языке программирования OpenOffice.org Basic

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

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

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

Лабораторная работа № 8. Шаг 3. Тест (1 - 4)

Лабораторная работа № 8. Шаг 3. Тест (5 - 8)

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

Задача. Напишите программу поиска второго по величине (т. е. следующего по величине за максимальным) элемента в числовом массиве из 30 различных элементов.

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

var
   ____________________;
   _____________________;
begin
  {ввод и вывод массива}
  for i:= 1 to 30 do
     _________________
        ______________________;
        ______________________;
     _______________;
  writeln;
  {первые два элемента массива становятся 
   двумя текущими максимумами}
  max1:=a[1]:
  max2:=a[2];   
  if max2>max1 then begin
                       max1:=a[2];
                       max2:=a[1];
                    end;
  {проверяем очередной элемент} 
  for i := 3 to 30 do
     begin
       {если он больше второго максимума, 
        назначаем его вторым максимумом}
       if a[i]>max2 then max2:=a[i];
       {если теперь первый максимум окажется 
       меньше второго, то меняем их местами}
       if max1<max2 then begin
                           x:=max1; 
                           max1:=max2;
                           max2:=x;
                         end;
     end;
  {выводим второй максимум}
  writeln (________);
end.

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

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

Скриншот

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