If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
Решение задачи, на языке: Паскаль, C
If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
Решение задачи, на языке: Паскаль, C
If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
Решение задачи, на языке: Паскаль, C
If4. Даны три целых числа. Найти количество положительных чисел в исходном наборе.
Решение задачи, на языке: Паскаль, C, С++
If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.
Решение задачи, на языке: Паскаль, C, Кумир
If6. Даны два числа. Вывести большее из них.
Решение задачи, на языке: Паскаль, C
If7. Даны два числа. Вывести порядковый номер меньшего из них.
Решение задачи, на языке: Паскаль, C
If8. Даны два числа. Вывести вначале большее, а затем меньшее из них.
Решение задачи, на языке: Паскаль, C
If9. Даны две переменные вещественного типа: $$A$$, $$B$$. Перераспределить значения данных переменных так, чтобы в $$A$$ оказалось меньшее из значений, а в $$B$$ — большее. Вывести новые значения переменных $$A$$ и $$B$$.
Решение задачи, на языке: Паскаль, C, Кумир
If10. Даны две переменные целого типа: $$A$$ и $$B$$. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных $$A$$ и $$B$$.
If11. Даны две переменные целого типа: $$A$$ и $$B$$. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных $$A$$ и $$B$$.
Решение задачи, на языке: Паскаль, C
If12. Даны три числа. Найти наименьшее из них.
Решение задачи, на языке: Паскаль, C, Кумир
If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).
Решение задачи, на языке: Паскаль, C
If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.
If15. Даны три числа. Найти сумму двух наибольших из них.
Решение задачи, на языке: Паскаль, C, Кумир
If16. Даны три переменные вещественного типа: $$A$$, $$B$$, $$C$$. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных $$A$$, $$B$$, $$C$$.
Решение задачи, на языке: Паскаль, C, Кумир
If17. Даны три переменные вещественного типа: $$A$$, $$B$$, $$C$$. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных $$A$$, $$B$$, $$C$$.
Решение задачи, на языке: Паскаль, C
If18. Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.
Решение задачи, на языке: Паскаль, C, Кумир
If19. Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Определить порядковый номер числа, отличного от остальных.
Решение задачи, на языке: Паскаль, C, С++
If20. На числовой оси расположены три точки: $$A$$, $$B$$, $$C$$. Определить, какая из двух последних точек ($$B$$ или $$C$$) расположена ближе к $$A$$, и вывести эту точку и ее расстояние от точки $$A$$.
Решение задачи, на языке: Паскаль, C
If21. Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси $$OX$$ или $$OY$$, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3.
Решение задачи, на языке: Паскаль, C
If22. Даны координаты точки, не лежащей на координатных осях $$OX$$ и $$OY$$. Определить номер координатной четверти, в которой находится данная точка.
Решение задачи, на языке: Паскаль, C, Кумир
If23. Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.
Решение задачи, на языке: Паскаль, C, Кумир
If24. Для данного вещественного x найти значение следующей функции $$f$$, принимающей вещественные значения:
$$f(x) =egin
If25. Для данного целого x найти значение следующей функции $$f$$, принимающей значения целого типа:
$$f(x) =egin
Решение задачи, на языке: Паскаль, C, Кумир
If26. Для данного вещественного x найти значение следующей функции $$f$$, принимающей вещественные значения:
$$f(x) =egin
Ответ
Проверено экспертом
Если не разделять понятия неотрицательных и положительных, то этот код:
Var
A,B,C,P,O:integer;
Begin
P:=0;
O:=0;
WriteLn(‘Введи три числа’);
ReadLn(A,B,C);
if A>=0 then P:=P+1
else O:=O+1;
if B>=0 then P:=P+1
else O:=O+1;
if C>=0 then P:=P+1
else O:=O+1;
WriteLn(‘Положительных чисел ‘,P);
WriteLn(‘Отрицательных чисел ‘,O)
End.
Если разделять, то этот:
Var A,B,C,P,O,N:integer;
Begin
P:=0;
O:=0;
N:=0;
WriteLn(‘Введи три числа’);
ReadLn(A,B,C);
if A=0 then N:=N+1
else
if A>0 then P:=P+1
else O:=O+1;
if B=0 then N:=N+1
else
if B>0 then P:=P+1
else O:=O+1;
if C=0 then N:=N+1
else
if C>0 then P:=P+1
else O:=O+1;
WriteLn(‘Положительных чисел ‘,P);
WriteLn(‘Отрицательных чисел ‘,O);
WriteLn(‘Нулей ‘,N)
End.
Всем привет! Сегодня мы начнем долгожданный разбор задач по программированию if1-15, а также вспомним и научимся применять различные процедуры. В решениях к некоторым задачам Вам встретится возможно неизвестная прежде процедура Inc. Пояснения к ней и к другим процедурам можно найти в этой статье .
If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
If4°. Даны три целых числа. Найти количество положительных чисел в исходном наборе.
If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.
If6°. Даны два числа. Вывести большее из них.
If7. Даны два числа. Вывести порядковый номер меньшего из них.
If8°. Даны два числа. Вывести вначале большее, а затем меньшее из них.
If9. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
If10. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If11. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If12°. Даны три числа. Найти наименьшее из них.
If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).
Небольшое пояснение
If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.
Пояснение
If15. Даны три числа. Найти сумму двух наибольших из них.
Фух! На сегодня все! Если у вас возникли какие-либо вопросы не стесняйтесь, оставляйте все свои вопросы в комментариях под статьей! И не забывайте кликать по кнопочкам и рассказывать о нас своим друзьям.