Программирование на языке Pascal ABC

Программирование  на языке Pascal ABC

 

Цель: выработать основные навыки создания компьютерных программ, умение преодолевать трудности при работе на компьютере.

 

В итоге выполнения лабораторных работ студент должен получить:

Навыки: составления и отладки программ на языке высокого уровня.

Умения: формализовать свою  проблему, составить алгоритм, позволяющий на основе исходных данных получать результат за конечное время; записать алгоритм в виде программы для компьютера; отыскать и устранить ошибки в построенной программе.

 

Задания вариант №7

 

1. Дано многозначное натуральное число. Подсчитать количество нулей, встречающихся в его записи. Строковый тип данных не использовать.
2. Напишите программу, находящую среди элементов с нечетными номерами наибольший и наименьший элементы.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ход работы:

1. Дано многозначное натуральное число. Подсчитать количество нулей, встречающихся в его записи. Строковый тип данных не использовать

 

Алгоритм

1. Описываем тип
2. Вводим число
3. пока число меньше 9, то есть делится на 10 цикл
4. получаем остаток от деления
5. уменьшаем число на 1 разряд (делим на 10)
6. если остаток равен 0, то счетчик увеличиваем на единицу
7. конец цикла
8. выводим на экран значение счетчика 
   

Program chisla;

Var i,  ost :integer;

N: Longint;

Begin

  Writeln(' введите число: ');

readln(N);

  i:=0;

while N > 9 do

begin

ost:=N mod 10  ;

N:=N div 10  ;

if ost=0 then i:=i+1;

end;

Writeln(' кол-во нулей: ', i);

readln();

  end.

 

Результат выполнение программы:

Рис. 1

 

2. Напишите программу, находящую среди элементов с нечетными номерами наибольший и наименьший элементы.

 

Алгоритм решения:

1. Ввести размерность массива с клавиатуры.
2. Заполнить массив псевдослучайными числами.
3. Вывести элементы массива на экран.
4. Найти максимальный и минимальный элементы.
5. Вывести сообщение о том, какие элементы были найдены.

 

Program chisla1;

const n=15;

Var i, max, min  : integer;

    mass: array [1..n] of integer;

Begin

Writeln(' zapolnite massiv: ');

for i := 1 to n do readln ( mass [ i ]);

for i := 1 to n do write ( mass [ i ]:4);

max := mass[1];

min := mass[1];

i := 1;

while i <= n do

begin

if mass[i] < min then min := mass[i];

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

i := i+2;

end;

    readln;

writeln('MAX: ',max);

writeln('MIN: ',min);

readln;

end.

 

Результат выполнения программы:

 

 

 

 

 

Вывод: В ходе контрольной работы  я получил навыки программирования на языке

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

исправлять ошибки в  коде программы. Преодолел трудности  при работе

на компьютере.