	Персональная страничка Диканева Тараса Викторовича

Главная \ Преподавательское \ Программирование для начинающих

Выбор среды программирования

1. Линейные программы: арифметические операторы, стандартные функции и ввод/вывод в текстовом режиме

2. Логические выражения и условный оператор

3. Цикл с параметром (for)

4. Вычисления с помощью рекуррентных соотношений

5. Вложенные циклы

6. Задачи на перебор вариантов

7. Переменные-флаги

8. Переменная - счетчик событий

9. Циклы while и repeat

10. Массивы

11. Процедуры и функции

12. Двумерные массивы

13. Графика в Паскале

14. Символы, строки, текстовые файлы

15. Записи

16. Указатели

2. Логические выражения и условный оператор

Предыдущий раздел:

Контрольная работа №2

Следующий раздел:

3.1. Цикл for

Задание 2: Составление логических выражений, условный оператор

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

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

3. Создайте программу, которая запрашивает у пользователя число и сообщает, является ли это число четным.

4. Даны три числа a, b, c. Если среди них есть отрицательные, возведите их в квадрат. Если после возведения в квадрат число стало больше 20, умножьте его на 2.

5. Напишите программу, которая запрашивает значение $x$ , а затем выводит значение следующей функции от $x$ :

$\mathrm{sign}(x)=\left\{ \begin{array}{r} -1, ~x<0\\ 0, ~x=0\\ 1, ~x>0 \end{array} \right.$

6. Напишите программу, которая запрашивает значения $x, y, z$ , а затем выводит значение следующих функций: $\max(x,\min(y,z))$ и $\min(\min(x,y),z)$ .

7. Модифицируйте вашу программу расчета корней квадратного уравнения, добавив к ней проверку неотрицательности дискриминанта. Если дискриминант отрицательный, сообщайте пользователю, что уравнение не имеет корней.

8. Модифицируйте вашу программу расчета корней квадратного уравнения, добавив к ней проверку того, что первый коэффициент не равен нулю. В противном случае сообщайте пользователю, что уравнение не квадратное, а линейное и вычислите его единственный корень. Если первые два коэффициента оба равны нулю, а третье не равно, сообщите пользователю, что корней нет. А если все коэффициенты равны нулю, сообщите, что любое число является корнем.

9. Пользователь вводит три числа. Сообщите ему, упорядочены ли введенные числа по возрастанию.

10. Пользователь вводит три числа – длины сторон треугольника. Программа должна сообщить пользователю:

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

11. «Узник замка Иф»
За многие годы заточения узник замка Иф проделал вилкой в стене прямоугольное отверстие размером d x e. Замок Иф сложен из кирпичей размером a x b x c. Узник хочет узнать, сможет ли он выбрасывать кирпичи в море из этого отверстия, чтобы сделать подкоп. Снабдите его необходимым для решения задачи софтом. На вход программе подаются 5 чисел (a, b, c, d, e), программа должна давать ответ YES или NO.

12. Напишите программу, которая в зависимости от введенного возраста добавляет слова «год», «года» или «лет». Например, при вводе возраста 1, программа сообщает «1 год», при числе 2 – «2 года», при числе 125 – «125 лет».

Следующий раздел:

3.1. Цикл for

Предыдущий раздел:

Контрольная работа №2

Добавить комментарий

37 комментариев

Володя

16.11.2012 в 17:42

№5 Подскажите, правильно ?

var
  x: real;
begin
  writeln('Введи значение ');
  readln(x);
  if x < 0 then
  begin
    x:= -1;
  end
  else if x = 0 then
  begin
    x:= 0;
  end
  else 
  begin
    x:= 1;
  end;
  writeln (sin(x))
end.

Taras

18.11.2012 в 01:14

x ты считаешь правильно, но sin(x) это синус от x. А он тебе не нужен. В общем, выводи либо x без затей, либо пиши что-то вроде:

  writeln('sign(x) = ', x);

Володя

20.11.2012 в 12:10

Понравилась задача № 12
Выложу ка своё решение (со второго раза). Первый раз запутался в условных операторах, да и сам алгоритм неправильно составил
var
age : integer;
begin
writeln(‘Введи возраст ‘);
readln(age);
if (((age mod 100)mod 10) = 1) or ((age mod 10) = 1) then
begin
writeln(‘Возвраст ‘ , age, ‘ год’);
end
else if ((age mod 100)mod 10 = 2) or ((age mod 100)mod 10 = 3) or ((age mod 100)mod 10 = 4) then
begin
writeln(‘Возвраст ‘ , age, ‘ года’);
end
else
begin
writeln(‘Возвраст ‘ , age, ‘ лет’);
end;

end.

	Taras	20.11.2012 в 18:58
Пара замечаний: 1) "(age mod 100)mod 10" это то же самое, что "age mod 10". 2) Программа соврет для 11 лет.

	Аноним	20.11.2012 в 19:34
Точно, спасибо. Тогда дописываем ветку If age = 11 then writeln(‘Возвраст ‘ , age, ‘ лет’)

	Taras	21.11.2012 в 02:42
Еще не будет работать для 12, 13, 14, 111, 112 и т.д.

	Артур	23.11.2012 в 06:55
Ух ты, прикольно, я еще когда решал задачи из первого пункта мне пришлось решить подобную задачу, чтобы к ответам дать правильные окончания, и чтобы придумать код, я думал именно на примере лет и годов. Счас просматриваю задачки и смотрю тут такая задачка))))))

	Артур	23.11.2012 в 07:02
Аноним и володя(или вы один и тот же персонаж), вычисли сначала последнюю одну цифру и последние две(напр.125 эт 25, 2463 эт 63) и привяжи их к переменным, двузначную к своей и однозначную к своей. . . ну а потом составляй логические условия. В первую очередь ставь условие на двузначное число. не разберешься, спрашивай

	оксана	11.09.2013 в 22:03
Здравствуйте, Тарас Викторович, проверьте, пожалуйста, 12 задание. program age; var x: integer; begin readln(x); if ((x-1) mod 10=0) and (not (x mod 10=1)) then begin write(x, ‘ god’); end; if ((x-2) mod 10=0) or ((x-3) mod 10=0) or ((x-4) mod 10=0) then begin write(x, ‘ goda’); end; if (x mod 10=1) or ((x-5) mod 10=0) or ((x-6) mod 10=0) or ((x-7) mod 10=0) or ((x-8) mod 10=0) or ((x-9) mod 10=0) or (x mod 10=0) then begin write(x, ‘ let’); end; end.

	оксана	11.09.2013 в 22:09
ой, после исправления перестало работать для 1, 21 и т.д.

Алексанлдр

25.07.2014 в 16:35

12 задача

program vozrast;
var
n,d,b : real ;

begin
readln(n);
b:= ((n/100) — trunc(n/100))*100;
d:= ((b/10)-trunc(b/10))*10;
if ((b>4)and( b5) or (d=0)then
begin
writeln( n , ‘ лет’);
end else
begin
if (d>=2) then
writeln(n , ‘года ‘)
else

writeln(‘год’);

end;
end.

	АленА	17.10.2014 в 14:44
Задача №1 program zadacha_1; var x, y: integer; begin writeln (‘Введите два числа’); readln (x, y); write (‘Ваши числа в порядке возростания: ‘); if x<y then write (x, ', ',y) else write (y,', ', x) end.

	АленА	17.10.2014 в 14:56
Задачп №2 program zadacha_2; var x, y, z: integer; begin writeln (‘Введите три числа’); readln (x, y, z); write (‘Наибольшее из этих чисел: ‘); if (x>y) and (x>z) then write (x); if (y>x) and (y>z) then write (y); if (z>x) and (z>y) then write (z) end.

	АленА	17.10.2014 в 16:11
Задача №3 program zadacha_3; var x, y: integer; begin writeln (‘Введите число’); readln (x); y:= x mod 2; if (y>0) then write (x, ‘ — число непарное’) else write (x, ‘ — число парное’) end.

	АленА	17.10.2014 в 16:22
Задача №4 program zadacha_3; var a, b, c: integer; begin writeln (‘Введите три числа’); readln (a, b, c); if (a<0) then a:= sqr(a); if (b<0) then b:= sqr(b); if (c20) then a:=a2; if (b>20) then b:=b2; if (c>20) then c:=c*2; write (‘a = ‘, a, ‘, b = ‘, b, ‘, c = ‘, c); end.

	АленА	17.10.2014 в 16:52
Задача №5 program zadacha_5; var x: real; begin write (‘x = ‘); readln (x); if (x>0) then x:=1; if (x=0) then x:=0; if (x<0) then x:=-1; write ('sign(x) = ', x); end.

	АленА	17.10.2014 в 18:26
Задача №6 program zadacha_6; var a, b, x, y, z: real; begin writeln (‘Введите x, y, z’); readln (x, y, z); begin write (‘max(x,min(y,z)) = ‘); if (yx) then a:= y; if (x>y) and (x>z) then a:= x; if (zx)then a:=z; writeln (a); end; begin write (‘min(min(x,y),z) = ‘); if (y<x)and (y<z) then b:= y; if (x<y) and (x<z) then b:= x; if (z<y) and (z<x)then b:=z; writeln (b); end; end.

	АленА	17.10.2014 в 18:28
Опять «съедает» комментарий элементы с решения задачи

	Аноним	29.10.2014 в 19:01
помогите пожалуйста с 7

	Алексей	18.12.2014 в 12:50
а с 11 можете помочь?

	АленА	09.01.2015 в 16:51
program zadacha_11; var a, b, c, d, e: integer; begin writeln(‘размер отверстия ‘); readln(d, e); writeln(‘размер кирпича ‘); readln(a, b, c); if (a<=d) and (b<=e) or (a<=e) and (b<=d) or (c<=d) and (b<=e) or (c<=e) and (b<=d) or (c<=d) and (a<=e) or (c<=e) and (a<=d) then begin writeln('YES') end else begin writeln('NO') end; end.

	Роман	31.01.2015 в 19:28
В задаче №5 написано sign(x) это тоже, что и sin(x) или я что-то путаю?

	Роман	31.01.2015 в 20:25
Алена, в задаче №6, в первой части, если ввести значения х=5, у=8, z=9 ответ выдает 9, а должен быть 8.

	Роман	01.02.2015 в 20:26
правильна ли задача №8? var D,a,b,c:real; begin writeln(‘введите три числа ‘); readln(a); readln(b); readln(c); D:=sqr(b)-4ac; if (a=0)and(b0)then begin writeln(‘это уравнение линейное с корнем ‘,(sqr(b)-c)/b); end else if (a=0)and(b=0)and(c0)then begin writeln(‘квадратное уравнение корней не имеет’); end else if (a=0)and(b=0)and(c=0)then begin writeln(‘корнем является любое число’); end else if (a0)and(D<0)then begin writeln('квадратное уравнение корней не имеет'); end else if (a0)and(D>0)then begin writeln(‘первый корень ‘,(-b-D)/2a,’ второй корень ‘,(-b+D)/2a); end else if (a0)and(D=0)then begin writeln(‘корень уравнения ‘,-b/2*a); end; end.

	Роман	02.02.2015 в 16:16
Алена в задаче 11, если размер отверстия будет совпадать с размером кирпича, то кирпич в такое отверстие вряд ли пройдет.

	Роман	02.02.2015 в 17:34
задача 12 var x:integer; begin writeln(‘введите возраст ‘); readln(x); if ((x mod 10)=1)and((x mod 100)11) then begin writeln(‘введенный возраст ‘,x,’ год.’) end else if((x mod 10)1)then begin writeln(‘введенный возраст ‘,x,’ года.’) end else begin writeln(‘введенный возраст ‘,x,’ лет.’); end; end.

	Роман	02.02.2015 в 17:35
Опять скушало кусочек.:-)

АленА

05.03.2015 в 12:00

Роман, по поводу №6 при х=5, у=8, z=9 , правильный ответ 8 и 5, читайте условие. Нужно найти в первом случае max(x,min(y,z)) — максимум из двух чисел
1-е: x =5
2-е: min(y,z) = 8 (минимум от 8 и 9 = 8),
а значит максимум из 5 и 8 = 8.

Понятно написала?

А что касается кирпича равного по размеру отверстия, то на мой взгляд он пройдет.

	АленА	05.03.2015 в 12:03
Ой, Роман, вы так и написали 8 , проверила моей программой тоже 8. Тогда в чем был вопрос?

	Виктор	02.05.2015 в 23:05
Напишите Решение Задачи №11

Сая

20.05.2015 в 19:50

Задача 11. если сделать так, правильно?

program Program9;

var
a, b, c, d, e: real;

begin
writeln(‘введите размер отверстия, числа «d» и «e»‘);
readln(d, e);
writeln(‘введите размер кирпеча, из которого сложен замок, числа «a», «b», «c»‘);
readln(a, b, c);
if (d > a) and (d > b) and (d > c) and (e > a) and (e > b) and (e > c) then
writeln(‘YES’)
else
writeln(‘NO’);

end.

Сая

20.05.2015 в 21:28

12 задача. Решила поделиться своим решением )

program Program12;

var
b, c, s: integer;

begin
writeln(‘сколько вам лет?’);
readln(b);
c := b mod 100;
s := b mod 10;
if (c = 11) or (c = 12) or (c = 13) or (c = 14) or (c = 15) or (c = 16) or (c = 17) or (c = 18) or (c = 19) then
begin
writeln(‘вам ‘, b, ‘ лет’);
end else
begin
if s = 1 then
writeln(‘вам ‘, b, ‘ год’);
if (s = 2) or (s = 3) or (s = 4) then
writeln(‘вам ‘, b, ‘ года’);
if (s = 5) or (s = 0) then
writeln(‘вам ‘, b, ‘ лет’);
end;

end.

	Ruslan	14.01.2016 в 21:44
//12. Напишите программу, которая в зависимости от введенного возраста добавляет слова «год», «года» или «лет». //Например, при вводе возраста 1, программа сообщает «1 год», при числе 2 – «2 года», при числе 125 – «125 лет». program два_двенадцать; var x, y: integer; begin writeln (‘Введите возраст’); read (x); if x<1 then begin write ('Ошибка, возраст должен быть больше нуля') end else if x=1 then begin write (x, ' год') end else if x=5 then begin write (x, ‘ лет’) end; end.

	Pavel	20.02.2016 в 12:21
program vozrast; var x,y:integer; begin writeln(‘vvedite vozrast’); readln(x); if x10) and (y=5) and (y=2) and (y<=4) then writeln(x,' goda'); end.

Danil

03.11.2016 в 08:51

n6
Думаю так))

var
a:integer;
begin
Writeln(‘Введите ваш возраст:’);
readln(a);
if a1) and (a<=4) then
Writeln('Вам ',a,'года')
else
Writeln('Вам ',a,'лет');
end.

	Nord	20.11.2017 в 21:29
12-й номер. Хоть и сделан способом вырезания чисел и не оди из самы простых,но программа работает для всех чисел и цель ее работы достигнута. Var x,z:integer; y:real; begin; write(‘Введите число:’); readln(x); if (x=3) or (x=4)or (x=2) then begin writeln(x,’ ‘,’года’); end; if (x=6)or (x=5)then begin writeln(x,’ ‘,’лет’); end; if (x=1) then begin writeln(x,’ ‘,’год’); end; if x>6 then begin y:=(x mod 5)-1; if (y0) then begin writeln(x,’ ‘,’лет’); end; if (y=0) then begin writeln(x,’ ‘,’год’); end; end; end.

	Аноним	25.12.2018 в 22:08
А какое правильное решение на 11 задачу?

Персональная страничка Диканева Тараса Викторовича

2. Логические выражения и условный оператор

Задание 2: Составление логических выражений, условный оператор

37 комментариев

Добавить комментарий

Персональная страничка
Диканева Тараса
Викторовича