2.var n,s,i:integer;beginwriteln (‘Программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n>11)’);write (‘Введите n: ‘);readln (n);for i:=11 to n doif i mod 2 = 1 then s:=s+i;writeln (‘Сумма нечетных чисел от 11 до ‘,n,’ равна ‘,s)end.1.var a,b:real;beginwriteln (‘Программа для решения уравнения ax=b’);write (‘Введите a и b: ‘);readln (a,b);if (a=0) and (b=0) then writeln (‘x — любое число’)else if (a=0) and (b<>0) then writeln (‘решений нет’)else writeln (‘x = ‘,b/a)end.
Добавить свой ответ Ответить на вопрос
Последние вопросы
Источник: znanija.site
Требовалось написать программу которая решает уравнение a x b
Задание 24. Требовалось написать программу, которая решает уравнение а|х| = b относительно х для любых чисел а и введённых с клавиатуры. Все числа считаются действительными. Программист торопился и написал программу неправильно.
Программа, определяющая корни квадратного уравнения. Язык программирования Python.
Последовательно выполните три задания:
1) Приведите пример таких чисел a, b, x, при которых программа неверно решает поставленную задачу.
2) Укажите, какая часть программы является лишней.
3) Укажите, как нужно доработать программу, чтобы не было случаев её неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы.)
не нужно вводить x с клавиатуры;
3) Возможная доработка:
if b = 0 then write(‘любое число’)
else write (‘нет решений*)
write(‘x = ‘, b/a, ‘ или x =’, -b/a)
if b = 0 then write(‘x =0’)
else write (‘нет решений’);
(могут быть и другие способы доработки).
Источник: self-edu.ru
Требовалось написать программу которая решает уравнение a x b
if a = 0 then
if b = 0 then
write (‘любое число’)
else write (‘нет решений’)
if b = 0 then
else write(‘x =’,b/a,’ или x =’,-b/a);
Последовательно выполните три задания:
1) Приведите пример таких чисел a, b, x, при которых программа неверно решает поставленную задачу.
2) Укажите, какая часть программы является лишней.
3) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
- Программа работает неправильно, если a и b не равны нулю и имеют разные знаки: в этом случае уравнение не имеет решений (поскольку модуль – неотрицательная величина), а программа выдаст два решения. Хотя в задании сказано «Приведите пример таких чисел a, b, x,…», значение x ни на что не влияет, в ответе можно указать любое число x. Например,
Лишняя часть программы – ввод x, поскольку это не исходные данные, а результат. Поэтому вместо оператора
Python для самых маленьких. Линейные уравнения. Решение задач
Возможная доработка программы – добавить еще один условный оператор, обрабатывающий неучтенный случай (a и b не равны нулю и имеют разные знаки), при котором нет решений:
var a,b,x: real;
if a = 0 then
if b = 0 then
write (‘любое число’)
else write (‘нет решений’)
if b = 0 then
if a*b 20 then begin
writeln(‘Средний балл ‘, s:10:3);
Вариант 2
- Требовалось написать программу, которая решает уравнение «» относительно x для любых чисел a и b, введенных с клавиатуры. Все числа считаются действительными. Программист торопился и написал программу неправильно:
if b = 0 then
if a = 0 then
write(‘нет решений’)
Последовательно выполните три задания:
1) Приведите пример таких чисел a, b, x, при которых программа неверно решает поставленную задачу.
2) Укажите, какая часть программы является лишней.
3) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
Решение:
Программа работает неправильно, если a и b равны нулю: в этом случае решением уравнения является любое число x, а программа выдаст только решение . Хотя в задании сказано «Приведите пример таких чисел a, b, x,…», значение x ни на что не влияет, в ответе можно указать любое число x. Например,
Лишняя часть программы – ввод x, поскольку это не исходные данные, а результат. Поэтому вместо оператора
Возможная доработка программы – добавить еще один условный оператор, обрабатывающий неучтенный случай (a и b равны нулю), при котором решением является любое число:
var a,b,x: real;
if b = 0 then
if a = 0 then
write(‘любое число’)
else write(‘x = 0’)
if a = 0 then
write(‘нет решений’)
else write(‘x =’,-b/a);
можно еще немного оптимизировать программу: заметим, что в обеих частях первого условного оператора встречается оператор if a = 0 then; его можно «вынести» наверх, сделать внешним, а не вложенным:
if a = 0 then
if b = 0 then
write(‘любое число’)
else write(‘нет решений’)
если вы боитесь запутаться во вложенных условных операторах, можно использовать сложные условия и рассмотреть три возможных варианта (важно не забыть ни один!):
if (a=0) and (b=0)then
write(‘любое число’);
if (a=0) and (b<>0)then
write(‘нет решений’);
if a <> 0 then
здесь нужно убедиться, что для каждого варианта входных данных сработает один и только один условный оператор
- Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Напишите программу, которая подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.
var A: array[1..N] of integer;
i, x, y: integer;
for i:=1 to N do readln(A[i]);
Фактически нужно найти минимальный рост ученика среди всех учеников, имеющих рост 180 см или выше.
Значение минимального роста будем хранить в переменной x. Поскольку известно, что все ученики не выше 200 см, сначала в переменную x запишем 200 (или любое большее число). Затем в цикле от 1 до 30 рассматриваем все элементы массива A. Если очередной элемент больше или равен 180 (нашли игрока-баскетболиста) и одновременно меньше x, записываем значение этого элемента в переменную x. После окончания цикла выводим значение переменной x. Недостающая часть программы может выглядеть так:
x := 200; < или любое число >= 200 >
for i:=1 to N do
if (A[i] >= 180) and (A[i]
Источник: mognovse.ru