Требовалось написать программу которая определяет имеется ли среди введенных с клавиатуры питон
Программа на Паскале
var х0, у0, у: real;
else writeln ('точка не лежит внутри области');
else writeln ('точка не лежит внутри области'); end;
writeln ('точка не лежит внутри области');
Последовательно выполните задания:
1) Приведите пример таких чисел х0 и у0, при которых программа неверно решает поставленную задачу.
2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы (можно указать любой способ доработки исходной программы).
3) Укажите, как можно доработать программу, чтобы вместо вложенных оператором IF она содержала логическию операцию AND.
№2 Требовалось написать программу, которая решает уравнение «ах2 + bх+с = 0» относительно х для действительных чисел а, b, с, введенных с клавиатуры, о которых заведомо известно, что a <>0, b<>0, c<>0.
Была написана следующая программа:
Программа на Паскале
var а, b, с, D, х 1, х2: real;
readln(a, b, с, х 1, х2);
If D>0 then begin
xl := (-b + sqrt (D))/(2*a);
x2 := (-b - sqrt (D))/(2*a);
else writeln ('действительных корней нет');
Известно, что программа написана с ошибками. Последовательно выполните три задания:
1) Приведите пример таких чисел а, b, с. при которых программа неверно решает поставленную задачу.
2) Укажите, какая часть программы является лишней.
3) Укажите, как, по-вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы.
№3 Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры целых чисел а и b хотя бы одно четное. Была написана следующая программа:
Программа на Паскале
var a, b: integer;
if a > 0 then b := b mod 2;
writeln ('четных чисел нет')
else writeln( 'четное число есть');
Известно, что программа написана с ошибками. Последовательно выполните три задания: 1) приведите пример таких чисел я, Ь, при которых программа неверно решает поставленную задачу;
3) укажите, как, по вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы;
4) укажите, как можно доработать программу, чтобы она вместо вложенных операторов IF содержала логическую операцию OR.
Думаю что примерно вот так:
№1
1) Приведите пример таких чисел х0 и у0, при которых программа неверно решает поставленную задачу.
x0 = 1, y0 = -1.
2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы (можно указать любой способ доработки исходной программы).
Добавить условие что (y0>0), например в строку: if (y0 < y) then writeln ('точка лежит внутри области')
получится: if (y0>0)AND(y0 < y) then writeln ('точка лежит внутри области')
3) Укажите, как можно доработать программу, чтобы вместо вложенных оператором IF она содержала логическию операцию AND.
var х0, у0, у: real;
begin
readln (х0, у0);
у = 2 – х0;
if (x0<2) AND (х0>0) AND ((y0 < y) AND (y0 >0)) then writeln ('точка не лежит внутри области');
else writeln ('точка не лежит внутри области');
end.
№2
1) Приведите пример таких чисел а, b, с. при которых программа неверно решает поставленную задачу.
a = 1, b = 2. Если D = 0, то программа считает что действительных корней есть, хотя в данной ситуации есть один корень.
2) Укажите, какая часть программы является лишней.
В строке readln(a, b, с, х 1, х2); не требуется считывание x1 и x2.
3) Укажите, как, по-вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы.
Заменить условие в строке If D>0 then begin на >=0.
Либо можно сделать еще один if для рассчета корня при D=0.
If D>0 then begin
xl := (-b + sqrt (D))/(2*a);
x2 := (-b - sqrt (D))/(2*a);
write('x1 =’, x1);
write('x2 =', x2);
end
else If D=0 then begin
xl := (-b/(2*a);
write('x1 = x2 =’, x1);
end
else writeln ('действительных корней нет');
№3
1) приведите пример таких чисел я, Ь, при которых программа неверно решает поставленную задачу;
Если a и/или b отрицательные.
3) укажите, как, по вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы;
Условия a > 0 и b > 0 заменить на a<>0 и b<>0.
4) укажите, как можно доработать программу, чтобы она вместо вложенных операторов IF содержала логическую операцию OR.
var a, b: integer;
begin
readln(a, b);
a := a mod 2;
b := b mod 2;
if (a = 0) OR (b = 0) then writeln( 'четное число есть');
else writeln('четных чисел нет');
end.
№1 Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное.
Была написана следующая программа : • var a, b : integer ; • begin • readln(a, b) ; • a : = a mod 2 ; • if a > ; 0 then b : = b mod 2 ; • if b > ; 0 then • writeln ('четных чисел нет') • else • writeln ('четное число есть') ; • end.
Доработайте эту программу таким образом, чтобы задача решалась верно.
№2 С клавиатуры вводится трёхзначное число.
Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.
var a, b : integer ;
write('Введите А и В ') ;
if ((a> ; 0) and (a mod 2 = 0)) or ((b> ; 0) and (b mod 2 = 0))
then writeln ('Четное число есть')
else writeln ('Четных чисел нет') ;
Написать программу в ПАСКАЛЕ Пользователь вводит число с клавиатуры?
Написать программу в ПАСКАЛЕ Пользователь вводит число с клавиатуры.
Если оно четное, вывести "Четное", если нечетное, вывести "Нечетное".
Если меньше 1, вывести "число неверное, попробуйте ещё раз".
Как составить программу, которая определяет является ли сумма цифр введённого целого трёхзначного числа четным числом?
Как составить программу, которая определяет является ли сумма цифр введённого целого трёхзначного числа четным числом?
Написать программу, которая подсчитывает количество четных индексов положительных элементов введенного с клавиатуры массива целых чисел?
Написать программу, которая подсчитывает количество четных индексов положительных элементов введенного с клавиатуры массива целых чисел.
. Составьте программу (полный текст программы) для решения следующей задачи?
. Составьте программу (полный текст программы) для решения следующей задачи.
Введите с клавиатуры три числа : А, В, С.
Если все они четные, то найдите и выведите на экран их сумму.
Если все они нечетные и A> ; B> ; C, то определите и выведите значения наибольшего и наименьшего из чисел.
Иначе, выведите числа без изменения.
Фрагмент программы : if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S : = a + b + c ; writeln('сумма равна ', S) ; end ; if (a mod 2 < ; > ; 0) and (b mod 2 < ; > ; 0) and (c mod 2 < ; > ; 0) and (a> ; b) and (b> ; c) then begin writeln('наибольшее число ', A) ; writeln('наименьшее число ', C) ; end else writeln('a = ', a, ' b = ', b, ' c = ', c) ;
Написать программу, которая проверяет, является ли четным введенное с клавиатуры целое число?
Написать программу, которая проверяет, является ли четным введенное с клавиатуры целое число.
Составте программу, определяющую, является ли введеное число с клавиатуры целое число четным?
Составте программу, определяющую, является ли введеное число с клавиатуры целое число четным.
С клавиатуры вводится число, определить является ли оно четным, результат вывести на экран?
С клавиатуры вводится число, определить является ли оно четным, результат вывести на экран.
(написать программу в паскале).
Написать программу, определяющую является число, введенное с клавиатуры, четным или нечетным?
Написать программу, определяющую является число, введенное с клавиатуры, четным или нечетным.
Написать программу решения слудующией задачи : с клавиатуры вводятся целые числа до тех пор, пока не будет введен нуль?
Написать программу решения слудующией задачи : с клавиатуры вводятся целые числа до тех пор, пока не будет введен нуль.
Подсчитать количество введенных четных чисел.
Сложное задание по информатике : Нужно написать программу на паскале, не используя if, then, else, с таким результатом : Введите число если число четное, то вывести 10 ; если нечетное, то вывести - 10?
Сложное задание по информатике : Нужно написать программу на паскале, не используя if, then, else, с таким результатом : Введите число если число четное, то вывести 10 ; если нечетное, то вывести - 10.
Если вам необходимо получить ответ на вопрос №1 Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное?, относящийся к уровню подготовки учащихся 10 - 11 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Вот пример кода : program Znanija ; var cena, kolvokg, dengi, sdacha, nyno : Integer ; begin read(cena) ; read(kolvokg) ; read(dengi) ; nyno : = cena * kolvokg ; sdacha : = dengi - nyno ; write('Надо = ') ; write(nyno) ; write(' ; сдача = ') ; write(..
Область рисования. Объект Область рисования Graphics позволяет выбрать в качестве области рисования определенный элемент управления и обладает методами рисования графических фигур. Сначала необходимо в разделе объявления переменных определить имя о..
Мне лень читать простите.
Pascal : type cl = class public children : integer ; f : integer ; ff : integer ; end ; var c : cl ; begin c : = new cl ; writeln('Введите кол - во учеников : ') ; read(c. Children) ; writeln('Введите кол - во стульев : ') ; read(c. F) ; if c. Chi..
Просто 1 килобайт это 1024 байтов 5×1024 = 5120 байтов В 1 байте 8 битов 5120×8 = 40960 битов Все.
5 Кбайтов = 5 * байтов = 5 * 1024 байтов = 5120 байтов = 5120 * бит = 40960 бит.
№1 Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное.
Была написана следующая программа : • var a, b : integer ; • begin • readln(a, b) ; • a : = a mod 2 ; • if a > ; 0 then b : = b mod 2 ; • if b > ; 0 then • writeln ('четных чисел нет') • else • writeln ('четное число есть') ; • end.
Доработайте эту программу таким образом, чтобы задача решалась верно.
№2 С клавиатуры вводится трёхзначное число.
Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.
var a, b : integer ;
• if (b > ; 0) and (a > ; 0) then
• writeln ('четных чисел нет')
• writeln ('четное число есть') ;
using namespace std ;
Помогите пожалуйста, поблагодарю :написать программу которая суммирует все четные числа введенные с клавиатуры ( ввести 6 чисел)?
Помогите пожалуйста, поблагодарю :
написать программу которая суммирует все четные числа введенные с клавиатуры ( ввести 6 чисел).
Составить блок схему для программы Паскальvar n : integer ;beginwrite('введите число n = ') ;readln(n) ;write(' число n - ') ;if n mod 2 = 0then write('четное')else write ('нечетное') ;writeln( ) ;wri?
Составить блок схему для программы Паскаль
beginwrite('введите число n = ') ;
else write ('нечетное') ;
else write ('отрицательное ') ;
then write('кратно 3 ')
else write ('не кратно 3 ') ;
Клавиатуры вводится трёхзначное число?
Клавиатуры вводится трёхзначное число.
Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.
1. С клавиатуры вводятся два числа?
1. С клавиатуры вводятся два числа.
Определить имеется среди них четное число.
(Паскаль АВС) Напишите программу которая в последовательности натуральных чисел определяет максимальное четное число?
(Паскаль АВС) Напишите программу которая в последовательности натуральных чисел определяет максимальное четное число.
Программа получает на вход количество чисел в последовательности, а затем сами числа.
Программа должна вывести одно максимальное четное число!
Помогите написать в паскале?
Помогите написать в паскале!
Ввести три целых числа x, y, z.
Если хотя бы одно из них четное, то первому четному числу присвоить значение произведения этих чисел.
Сообразил только как определить чётное или нечётное число а как дальше не могу понять!
var x, y, z : integer ;
Writeln ('Введите число') ;
if x mod 2 = 0 then
writeln ('Это число чётное')
writeln ('Число нечётно') ;
Writeln ('Введите число') ;
if y mod 2 = 0 then
writeln ('Это число чётное')
writeln ('Число нечётно') ;
Writeln ('Введите число') ;
if z mod 2 = 0 then
writeln ('Это число чётное')
writeln ('Число нечётно') ;
Почему программа(паскаль) не выполняет первое условие if?
Почему программа(паскаль) не выполняет первое условие if?
Program tn ; var a : integer ; begin writeln ('Введи число') ; read(a) ; if ((a> ; = 1000)and (a< ; 100))then writeln ('Ошибка') ; if (((a mod 10) + ((a div 10) mod 10) + a div 100 ) mod 2 = 0) then writeln ('Сумма цифр данного трехзначного числа - четное число')else writeln('Сумма - число нечетное') ; end.
Написать программу, которая определяет количество четных чисел из введенной с клавиатуры последовательности N чисел?
Написать программу, которая определяет количество четных чисел из введенной с клавиатуры последовательности N чисел.
Написать программу на Паскале.
3. Дана программа на Паскале для определения чётности числа : var x : integer ; begin write ('Введите x : ') ; readln (x) ; if x mod 2 = 0 then writeln ('Это четное число') else writeln ('Это нечетное?
3. Дана программа на Паскале для определения чётности числа : var x : integer ; begin write ('Введите x : ') ; readln (x) ; if x mod 2 = 0 then writeln ('Это четное число') else writeln ('Это нечетное число') ; end.
Нарисовать блок - схему алгоритма по данной программе.
Составьте программу на языке Паскаля, определяющую, является ли введенное с клавиатуры целое число четным Пример ввода : 68 Пример вывода : Число 68 - четное?
Составьте программу на языке Паскаля, определяющую, является ли введенное с клавиатуры целое число четным Пример ввода : 68 Пример вывода : Число 68 - четное.
На странице вопроса №1 Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Вот пример кода : program Znanija ; var cena, kolvokg, dengi, sdacha, nyno : Integer ; begin read(cena) ; read(kolvokg) ; read(dengi) ; nyno : = cena * kolvokg ; sdacha : = dengi - nyno ; write('Надо = ') ; write(nyno) ; write(' ; сдача = ') ; write(..
Область рисования. Объект Область рисования Graphics позволяет выбрать в качестве области рисования определенный элемент управления и обладает методами рисования графических фигур. Сначала необходимо в разделе объявления переменных определить имя о..
Мне лень читать простите.
Pascal : type cl = class public children : integer ; f : integer ; ff : integer ; end ; var c : cl ; begin c : = new cl ; writeln('Введите кол - во учеников : ') ; read(c. Children) ; writeln('Введите кол - во стульев : ') ; read(c. F) ; if c. Chi..
Просто 1 килобайт это 1024 байтов 5×1024 = 5120 байтов В 1 байте 8 битов 5120×8 = 40960 битов Все.
5 Кбайтов = 5 * байтов = 5 * 1024 байтов = 5120 байтов = 5120 * бит = 40960 бит.
Основы
Введение
При изучении любого языка программирования очень важно много практиковаться. В этом уроке Вы найдёте различные задачи, которые помогут Вам развить алгоритмическое мышление.
I like Python
Напишите программу, которая выводит на экран текст «I***like***Python» (без кавычек).
Управляемый разделитель
Напишите программу, которая считывает строку-разделитель и три строки, а затем выводит указанные строки через разделитель.
Сумма трёх чисел
Напишите программу, которая считывает три целых числа и выводит на экран их сумму. Каждое число записано в отдельной строке.
Следующее и предыдущее
Напишите программу, которая считывает целое число, после чего на экран выводится следующее и предыдущее целое число с пояснительным текстом.
Разделяй и властвуй
Напишите программу, которая считывает целое положительное число xx и выводит на экран последовательность чисел x, 2x, 3x, 4x, 5x, разделённых тремя черточками.
Расстояние в метрах
Напишите программу, которая находит полное число метров по заданному числу сантиметров.
Сама неотвратимость
Безумный титан Танос собрал все 6 камней бесконечности и намеревается уничтожить половину населения Вселенной по щелчку пальцев. При этом если население Вселенной является нечетным числом, то титан проявит милосердие и округлит количество выживших в большую сторону. Помогите Мстителям подсчитать количество выживших.
Пересчет временного интервала
Напишите программу для пересчёта величины временного интервала, заданного в минутах, в величину, выраженную в часах и минутах.
Трехзначное число
Напишите программу, в которой рассчитывается сумма и произведение цифр положительного трёхзначного числа.
Четырёхзначное число
Напишите программу для нахождения цифр четырёхзначного числа.
Пароль
При регистрации на сайтах требуется вводить пароль дважды. Это сделано для безопасности, поскольку такой подход уменьшает возможность неверного ввода пароля.
Напишите программу, которая сравнивает пароль и его подтверждение. Если они совпадают, то программа выводит: «Пароль принят», иначе: «Пароль не принят».
Четное или нечетное?
Напишите программу, которая определяет, является число четным или нечетным.
Роскомнадзор
Напишите программу, которая определяет, разрешен пользователю доступ к интернет-ресурсу или нет.
Формат входных данных
На вход программе подаётся целое число — возраст пользователя.
Формат выходных данных
Программа должна вывести текст «Доступ разрешен» если возраст не менее 18, и «Доступ запрещен» в противном случае.
Арифметическая прогрессия
Напишите программу, которая определяет, являются ли три заданных числа (в указанном порядке) последовательными членами арифметической прогрессии.
Наименьшее из четырёх чисел
Напишите программу, которая определяет наименьшее из четырёх чисел.
Только +
Напишите программу, которая считывает три числа и подсчитывает сумму только положительных чисел.
Принадлежность 1
Напишите программу, которая принимает целое число x и определяет, принадлежит ли данное число промежутку от -1 до 17.
Принадлежность 2
Напишите программу, которая принимает целое число x и определяет, принадлежит ли данное число указанным промежуткам: от минус бесконечности до -3 и от 7 до бесконечности.
Принадлежность 3
Напишите программу, которая принимает целое число x и определяет, принадлежит ли данное число указанным промежуткам: от -30 до -2 и от 7 до 25.
Високосный год
Напишите программу, которая определяет, является ли год с данным номером високосным. Если год является високосным, то выведите «YES», иначе выведите «NO». Год является високосным, если его номер кратен 4, но не кратен 100, или если он кратен 400.
Ход ладьи
Даны две различные клетки шахматной доски. Напишите программу, которая определяет, может ли ладья попасть с первой клетки на вторую одним ходом. Программа получает на вход четыре числа от 1 до 8 каждое, задающие номер столбца и номер строки сначала для первой клетки, потом для второй клетки. Программа должна вывести «YES», если из первой клетки ходом ладьи можно попасть во вторую, или «NO» в противном случае.
Ход короля
Даны две различные клетки шахматной доски. Напишите программу, которая определяет, может ли король попасть с первой клетки на вторую одним ходом. Программа получает на вход четыре числа от 1 до 8 каждое, задающие номер столбца и номер строки сначала для первой клетки, потом для второй клетки. Программа должна вывести «YES», если из первой клетки ходом короля можно попасть во вторую, или «NO» в противном случае.
Вид треугольника
Напишите программу, которая принимает три положительных числа и определяет вид треугольника, длины сторон которого равны введенным числам.
Самописный калькулятор
Напишите программу, которая считывает с клавиатуры два целых числа и строку. Если эта строка является обозначением одной из четырёх математических операций (+, -, *, /), то выведите результат применения этой операции к введённым ранее числам, в противном случае выведите «Неверная операция». Если пользователь захочет поделить на ноль, выведите текст «На ноль делить нельзя!».
Цветовой микшер
Красный, синий и желтый называются основными цветами, потому что их нельзя получить путем смешения других цветов. При смешивании двух основных цветов получается вторичный цвет:
- если смешать красный и синий, то получится фиолетовый;
- если смешать красный и желтый, то получится оранжевый;
- если смешать синий и желтый, то получится зеленый.
Пересечение отрезков
На числовой прямой даны два отрезка: [a1; b1] и [a2; b2]. Напишите программу, которая находит их пересечение.
Пересечением двух отрезков может быть:
- отрезок;
- точка;
- пустое множество.
И, напоследок, как делать не надо ))
Пока не проверил, просто скопировал. Тем не менее спасибо огромное.
Спасибо большое! Благодарю ! Скопировала.
В последней задаче про определение отрезков ошибка.
if min(b1, b2) < max(a1, a2):
print('пустое множество')
Данное условие не является достаточным для подтверждения отсутствия пересечения, т.к. максимальное значение в 1 множестве может находиться в пределах второго множества.
Исправьте на:
if max(b1, b2) < min(a1, a2):
print('пустое множество')
Давайте, как принято в хорошей разработке, опираться на тесты. Вот набор данных, соответствующий Вашему утверждению «Данное условие не является достаточным для подтверждения отсутствия пересечения, т.к. максимальное значение в 1 множестве может находиться в пределах второго множества»:
1
5
4
6
Запускаем скрипт и проверяем:
4 5
Вывод: полное соответствие исходным условиям.
Если у Вас есть другой набор тестовых данных, при котором скрипт работает не правильно, прошу Вас его предоставить.
Возможно, Вас запутало невыразительное именование переменных. Здесь b1, b2 — правые концы отрезков, а a1, a2 — левые.
1) С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.
2) Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное. Была написана следующая программа:
если a>0 то b:=mod(b,2) все
вывод "четных чисел нет"
вывод "четное число есть"
var a, b: integer;
if a > 0 then b := b mod 2;
writeln ('четных чисел нет')
writeln ('четное число есть');
Известно, что программа написана с ошибками. Последовательно выполните три задания:
а) приведите пример таких чисел а, b, при которых программа неверно решает поставленную задачу;
б) укажите, как, по вашему мнению, нужно доработать программу (не используя сложные условия), чтобы не было случаев ее неправильной работы;
в) укажите, как можно доработать программу, чтобы она вместо вложенных операторов IF содержала один условный оператор со сложным условием.
2) Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости ( x , y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
вывод "не принадлежит"
Последовательно выполните следующее:
а) приведите пример таких чисел x , y , при которых программа неверно решает поставленную задачу;
б) укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы; это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы.
1) С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напечатать эту сумму прописью, например:
двадцать один рубль
сто семьдесят три рубля
девятьсот пятнадцать рублей
2) Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости ( x , y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
вывод "не принадлежит"
Последовательно выполните следующее :
а) приведите пример таких чисел x , y , при которых программа неверно решает поставленную задачу;
б) укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы; это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы.
Контрольная работа
Циклы
1) Определите значение переменной s после выполнения фрагмента программы:
2) Определите значение переменной s после выполнения фрагмента программы:
нц для к от -3 до 5
for k:=-3 to 5 do begin
3) По каналу связи передается последовательность положительных целых чисел, все числа не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение – наибольшее число из последовательности, которое делится на 10.
Напишите эффективную программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение, а также проверяет правильность контрольного значения. Программа должна напечатать отчет следующего вида:
Получено .. чисел
Полученное контрольное значение: ….
Вычисленное контрольное значение:…
Контроль пройден (или – контроль не пройден)
1) Укажите наименьшее и наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 6:
var x, L, M: integer;
while x > 0 do begin
2) Определите значение переменной s после выполнения фрагмента программы:
нц для к от 1 до 5
нц для j от 1 до k
3) По каналу связи передается последовательность положительных целых чисел, все числа не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение – наибольшее число, которое можно получить умножением двух различных элементов последовательности.
Напишите эффективную программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение, а также проверяет правильность контрольного значения. Программа должна напечатать отчет следующего вида:
Получено .. чисел
Полученное контрольное значение: ….
Вычисленное контрольное значение:…
Контроль пройден (или – контроль не пройден)
1) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите максимальное и минимальное числа, при вводе которых алгоритм печатает сначала 3, а потом 7.
если mod ( x ,2) = 1 то
M := M + div(mod ( x ,10) ,2)
var x, L, M: integer;
while x > 0 do begin
if x mod 2 = 1 then
2) Определите значение переменной s после выполнения фрагмента программы:
нц для к от 1 до 5
нц для j от 1 до k
нц для m от 1 до j
3) По каналу связи передается последовательность положительных целых чисел, все числа не превышают 1000, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение – наибольшее число X, которое:
а) делится на 10;
б) может быть получено умножением двух различных чисел, входящих в полученную последовательность.
Напишите эффективную программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение, а также проверяет правильность контрольного значения. Программа должна напечатать отчет следующего вида:
Получено .. чисел
Полученное контрольное значение: ….
Вычисленное контрольное значение:…
Контроль пройден (или – контроль не пройден)
Контрольная работа
Процедуры и функции
1) Определите результат работы функции при входном значении, равном 123456:
алг цел qq(цел x0)
нц для i от 1 до 3
function qq(x: integer):integer;
var i , s : integer;
for i:=1 to 3 do begin
2) Напишите процедуру, которая выводит на экран переданное ей число в системе счисления, которая задается вторым параметром (от 2 до 10).
1) Определите результат работы функции входном значении, равном 123456:
алг цел qq(цел x0, y )
function qq(x: integer):integer;
var i, s: integer;
while x > 0 do begin
s:= 10*s + x mod 10;
2) Напишите процедуру, которая переводит переданное ей натуральное число в систему счисления, которая задается вторым параметром (от 2 до 20).
1) Определите результат работы функции при входных значениях, равных 123456 и 78901:
алг цел qq(цел x0, y 0)
нц пока x > 0 и y > 0
function qq(x,y: integer)
var i, s: integer;
while (x > 0) and (y > 0) do
s:= 10*s + (x+y) mod 10;
2) Напишите процедуру, которая выводит на экран переданное ей число в негадвоичной системе счисления, основание которой равно (–2). Например,
Контрольная работа
Массивы
1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов, которые оканчиваются на 8 и делятся на 3.
2) Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры.
3) Заполните массив случайными числами в интервале [0,1000] и выведите номера всех элементов, которые равны последнему элементу.
1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.
2) Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию суммы цифр.
3) Заполните массив случайными числами в интервале [0,1000] и выведите номера двух соседних элементов, произведение которых наибольшее.
1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов, запись которых в двоичной системе – палиндром (например, 101012 = 21).
2) Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию количества делителей.
3) Заполните массив случайными числами в интервале [0,1000] и выведите номера трёх различных минимальных элементов. Разрешается сделать только один проход по массиву.
Контрольная работа
Символьные строки
1) С клавиатуры вводится символьная строка. Определите, сколько в ней цифр.
2) С клавиатуры вводится предложение, в котором каждые два слова разделены ровно пробелом. Определите, сколько слов в этом предложении.
3) Напишите функцию, которая удаляет из переданной ей символьной строки все символы ''.
1) С клавиатуры вводится символьная строка. Определите, какой символ встречается в ней чаще всего.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами. Определите, сколько слов в этом предложении начинается на букву «а».
3) Напишите функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя повторяющиеся пробелы на один пробел.
1) С клавиатуры вводится символьная строка длиной. Определите, сколько раз встречается в строке каждый из входящих в нее символов.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами. Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту же букву.
3) Напишите функцию, которая удаляет из переданной ей символьной строки все символы, заключенные в угловые скобки '' (вместе с этими скобками).
Контрольная работа
Файлы
Уровень A. В каждой строке файла записано три числа, каждое из которых находится в интервале [0,255]. Эти числа обозначают красную, зелёную и синюю составляющие цвета в цветовой модели RGB. Запишите в другой файл полные коды заданных цветов в виде целых чисел (код цвета = 255·255· R + 255·G + B).
Уровень B. В каждой строке файла записано три числа, каждое из которых находится в интервале [0,255]. Эти числа обозначают красную, зелёную и синюю составляющие цвета в цветовой модели RGB. Запишите в другой файл полные коды заданных цветов в виде целых чисел в шестнадцатеричной системе счисления (цвет (128,255,255) запишется как 80FFFF).
Уровень C. В файле записаны данные о результатах сдачи экзаменов по математике, русскому языку и физике. Каждая строка содержит фамилию, имя и три целых числа – количество баллов, набранных участником по каждому предмету:
Вывести в другой файл данные учеников, которые получили в сумме больше 240 баллов. Список должен быть отсортирован по убыванию балла. Формат выходных данных:
Читайте также: