Практикум «Программная среда Паскаль»
Практическая работа №4
Тема урока: Цикл с предусловием While.
Цель урока: Закрепить полученные знания по теме «Циклы. Цикл с предусловием.». На примере готовой программы получить навыки написания подсчета количества цифр в числе, введенном с помощью клавиатуры. Научиться использовать арифметические операции деление нацело «div», остаток от деления «mod» и изменять программу по заданным условиям, используя ранее полученные знания по нахождению суммы, разности, произведения цифр в числе в зависимости от варианта.
Вариант 1
На рисунке 1 представлена программа подсчета количества цифр в числе, введенном с помощью клавиатуры, которая запрашивает число для ввода с клавиатуры и выводит на экран монитора количество цифр в числе.
program cifra;
var n,k,m: integer;
begin
writeln( ' Введите целое число );
read(n);
m:=n;
k:=0;
while n0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('В введённом числе ',m,' находится ',k,' цифр');
end.
Рисунок 1 «Подсчет количества цифр в числе, введенном с помощью клавиатуры»
Задание 2: Изменить программу на рис.1 так, чтобы на экран монитора, после выполнения программы, выходило не только количество цифр в введённом числе, но и сумма цифр этого числа. Показать учителю выполнение программы, предварительно сохранив программу в сетевой папке «Общая» под своей фамилией.
Пояснение к заданию 2:
Для подсчета суммы цифр числа добавьте новую переменную, например, S;
присвойте этой переменной до начала цикла (перед использованием) S:=0;
для выделения цифры из числа можно использовать арифметическую операцию mod и переменную С:= n mod 10 (остаток от деления);
выполните внутри цикла суммирование S:=S+C;
после окончания цикла, выведите на экран монитора получившуюся сумму S.
Практическая работа №4
Тема урока: Цикл с предусловием While.
Цель урока: Закрепить полученные знания по теме «Циклы. Цикл с предусловием.». На примере готовой программы получить навыки написания подсчета количества цифр в числе, введенном с помощью клавиатуры. Научиться использовать арифметические операции деление нацело «div», остаток от деления «mod» и изменять программу по заданным условиям, используя ранее полученные знания по нахождению суммы, разности, произведения цифр в числе в зависимости от варианта.
Вариант 2
На рисунке 1 представлена программа подсчета количества цифр в числе, введенном с помощью клавиатуры, которая запрашивает число для ввода с клавиатуры и выводит на экран монитора количество цифр в числе.
program cifra;
var n,k,m: integer;
begin
writeln( ' Введите целое число );
read(n);
m:=n;
k:=0;
while n0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('В введённом числе ',m,' находится ',k,' цифр');
end.
Рисунок 1 «Подсчет количества цифр в числе, введенном с помощью клавиатуры»
Задание 2: Изменить программу на рис.1 так, чтобы на экран монитора, после выполнения программы, выходило не только количество цифр в введённом числе, но и сумма первой и последней цифры. Показать учителю выполнение программы, предварительно сохранив программу в сетевой папке «Общая» под своей фамилией.
Пояснение к заданию 2:
Для получения последней цифры используйте арифметическую операцию mod и переменную С: = m mod 10 (остаток от деления) до начала цикла;
для получения первой цифры введите новую переменную, например, m1 и присвойте ей начальное значение введённого числа m1: = n;
первую цифру можно получить после окончания работы цикла while с помощью цикла for i:=1 to k-1 do (выполните внутри цикла for арифметическую операцию m1:= m1 div 10) и переменной m1, после выполнения цикла for, будет присвоена первая цифра введённого числа;
после окончания двух циклов, выведите на экран монитора получившуюся сумму C+m1.
Практическая работа №4
Тема урока: Цикл с предусловием While.
Цель урока: Закрепить полученные знания по теме «Циклы. Цикл с предусловием.». На примере готовой программы получить навыки написания подсчета количества цифр в числе, введенном с помощью клавиатуры. Научиться использовать арифметические операции деление нацело «div», остаток от деления «mod» и изменять программу по заданным условиям, используя ранее полученные знания по нахождению суммы, разности, произведения цифр в числе в зависимости от варианта.
Вариант 3
На рисунке 1 представлена программа подсчета количества цифр в числе, введенном с помощью клавиатуры, которая запрашивает число для ввода с клавиатуры и выводит на экран монитора количество цифр в числе.
program cifra;
var n,k,m: integer;
begin
writeln( ' Введите целое число 100' );
read(n);
m:=n;
k:=0;
while n0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('В введённом числе ',m,' находится ',k,' цифр');
end.
Рисунок 1 «Подсчет количества цифр в числе, введенном с помощью клавиатуры»
Задание 2: Изменить программу на рис.1 так, чтобы на экран монитора, после выполнения программы, выходило не только количество цифр в введённом числе, но и новое число, в котором будут переставлены цифры этого числа в обратном порядке. Показать учителю выполнение программы, предварительно сохранив программу в сетевой папке «Общая» под своей фамилией.
Пояснение к заданию 2:
После окончания работы цикла while и получения значения количества цифр в введенном числе k, организуйте вывод на печать последней цифры числа с помощью цикла for i:=1 to k-1 do;
для получения последней цифры числа используйте арифметическую операцию mod и переменную m:=m1 mod 10; (остаток от деления) цикла;
выведите на печатать полученную последнюю цифру с помощью write;
удалите из числа последнюю цифру с помощью выражения m1:=m1 div 10;
чтобы отделить печать нового числа от вывода количества цифр в числе, после цикла for добавьте writeln;
только после вывода нового числа на экран монитора, печатаем количество цифр в числе.
Практическая работа №4
Тема урока: Цикл с предусловием While.
Цель урока: Закрепить полученные знания по теме «Циклы. Цикл с предусловием.». На примере готовой программы получить навыки написания подсчета количества цифр в числе, введенном с помощью клавиатуры. Научиться использовать арифметические операции деление нацело «div», остаток от деления «mod» и изменять программу по заданным условиям, используя ранее полученные знания по нахождению суммы, разности, произведения цифр в числе в зависимости от варианта.
Вариант 4
На рисунке 1 представлена программа подсчета количества цифр в числе, введенном с помощью клавиатуры, которая запрашивает число для ввода с клавиатуры и выводит на экран монитора количество цифр в числе.
program cifra;
var n,k,m: integer;
begin
writeln( ' Введите целое число );
read(n);
m:=n;
k:=0;
while n0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('В введённом числе ',m,' находится ',k,' цифр');
end.
Рисунок 1 «Подсчет количества цифр в числе, введенном с помощью клавиатуры»
Задание 2: Изменить программу на рис.1 так, чтобы на экран монитора, после выполнения программы, выходило не только количество цифр в введённом числе, но и в конце, и в начале введённого числа стояла дополнительная цифра «R», введённая с экрана монитора. Показать учителю выполнение программы, предварительно сохранив программу в сетевой папке «Общая» под своей фамилией.
Пояснение к заданию 2:
После вывода на экран монитора количества цифр в числе, формируем на печать новое число на экране, используя команду write;
печатаем последовательно цифру «R», введённое число m и ещё раз цифру «R».
цифра «R» вводится вместе с числом в начале программы (read(n, R)).
Практическая работа №4
Тема урока: Цикл с предусловием While.
Цель урока: Закрепить полученные знания по теме «Циклы. Цикл с предусловием.». На примере готовой программы получить навыки написания подсчета количества цифр в числе, введенном с помощью клавиатуры. Научиться использовать арифметические операции деление нацело «div», остаток от деления «mod» и изменять программу по заданным условиям, используя ранее полученные знания по нахождению суммы, разности, произведения цифр в числе в зависимости от варианта.
Вариант 5
На рисунке 1 представлена программа подсчета количества цифр в числе, введенном с помощью клавиатуры, которая запрашивает число для ввода с клавиатуры и выводит на экран монитора количество цифр в числе.
program cifra;
var n,k,m: integer;
begin
writeln( ' Введите целое число );
read(n);
m:=n;
k:=0;
while n0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('В введённом числе ',m,' находится ',k,' цифр');
end.
Рисунок 1 «Подсчет количества цифр в числе, введенном с помощью клавиатуры»
Задание 2: Изменить программу на рис.1 так, чтобы на экран монитора после выполнения программы выходило не только количество цифр в введённом числе, но и найти и вывести на экран монитора наибольшую цифру в введённом числе. Показать учителю выполнение программы, предварительно сохранив программу в сетевой папке «Общая» под своей фамилией.
Пояснение к заданию 2:
Для нахождения наибольшей по значению цифры, добавьте дополнительную переменную для хранения наибольшей цифры, присвоив ей, например, с:=0; значение (до начала работы цикла);
для получения каждой цифры введённого числа используйте арифметическую операцию mod и переменную А например, А:= n mod 10 (остаток от деления на 10) в начале цикла;
после формирования цифры, условный оператор if cthen c:=A; будет сохранять максимальную цифру в числе;
на экран монитора, после вывода количества цифр в числе, формируем информацию о наибольшем числе, используя команду write.
Практическая работа №4
Тема урока: Цикл с предусловием While.
Цель урока: Закрепить полученные знания по теме «Циклы. Цикл с предусловием.». На примере готовой программы получить навыки написания подсчета количества цифр в числе, введенном с помощью клавиатуры. Научиться использовать арифметические операции деление нацело «div», остаток от деления «mod» и изменять программу по заданным условиям, используя ранее полученные знания по нахождению суммы, разности, произведения цифр в числе в зависимости от варианта.
Вариант 6
На рисунке 1 представлена программа подсчета количества цифр в числе, введенном с помощью клавиатуры, которая запрашивает число для ввода с клавиатуры и выводит на экран монитора количество цифр в числе.
program cifra;
var n,k,m: integer;
begin
writeln( ' Введите целое число );
read(n);
m:=n;
k:=0;
while n0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('В введённом числе ',m,' находится ',k,' цифр');
end.
Рисунок 1 «Подсчет количества цифр в числе, введенном с помощью клавиатуры»
Задание 2: Изменить программу на рис.1 так, чтобы на экран монитора после выполнения программы выходило не только количество цифр в введённом числе, но и найти и вывести на экран монитора наименьшую цифру в введённом числе. Показать учителю выполнение программы, предварительно сохранив программу в сетевой папке «Общая» под своей фамилией.
Пояснение к заданию 2:
Для нахождения и хранения наименьшей по значению цифры, добавьте дополнительную переменную, например, С, присвоив ей с:=1000000; (до начала работы цикла);
для получения каждой цифры введённого числа используйте арифметическую операцию mod и переменную А например, А:= n mod 10 (остаток от деления на 10) в начале цикла;
после формирования очередной цифры, условный оператор if AC then c:=A; будет сохранять минимальную цифру в числе;
на экран монитора, после вывода количества цифр в числе, формируем информацию о наименьшем числе, используя команду write.
Практическая работа №4
Тема урока: Цикл с предусловием While.
Цель урока: Закрепить полученные знания по теме «Циклы. Цикл с предусловием.». На примере готовой программы получить навыки написания подсчета количества цифр в числе, введенном с помощью клавиатуры. Научиться использовать арифметические операции деление нацело «div», остаток от деления «mod» и изменять программу по заданным условиям, используя ранее полученные знания по нахождению суммы, разности, произведения цифр в числе в зависимости от варианта.
Вариант 7
На рисунке 1 представлена программа подсчета количества цифр в числе, введенном с помощью клавиатуры, которая запрашивает число для ввода с клавиатуры и выводит на экран монитора количество цифр в числе.
program cifra;
var n,k,m: integer;
begin
writeln( ' Введите целое число );
read(n);
m:=n;
k:=0;
while n0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('В введённом числе ',m,' находится ',k,' цифр');
end.
Рисунок 1 «Подсчет количества цифр в числе, введенном с помощью клавиатуры»
Задание 2: Изменить программу на рис.1 так, чтобы на экран монитора, после выполнения программы, выходило не только количество цифр в введённом числе, но и произведение цифр этого числа. Показать учителю выполнение программы, предварительно сохранив программу в сетевой папке «Общая» под своей фамилией.
Пояснение к заданию 2:
Для подсчета произведения цифр числа добавьте новую переменную, например, Р;
присвойте этой переменной до начала цикла (перед использованием) Р:=1;
для выделения цифры из числа можно использовать арифметическую операцию mod и переменную С:= n mod 10 (остаток от деления);
выполняйте внутри цикла произведение выделенной цифры на предыдущее значение Р:=Р*C;
после окончания цикла, выведите на экран монитора получившееся произведение Р.
2 440
20 114 
