Составьте программу которая по трем введенным вами числам определит могут ли эти числа быть длинами

Составьте программу которая по трем введенным вами числам определит могут ли эти числа быть длинами

Опубликовано 22.08.2017 по предмету Информатика от Гость >>

Ответ оставил Гость

begin
writeln(Введите два катета A,B и гипотенузу С треугольника);
readln(a, b, c);
if (c >= a + b) or (a + b + c = 0) then writeln(Такого треугольника не существует)
else begin
if sqr(c) = sqr(a) + sqr(b) then writeln(Прямоугольный);
if sqr(c) > sqr(a) + sqr(b) then writeln(Тупоугольный);
if sqr(c) Оцени ответ

Составьте программу которая по трем введенным вами числам определит могут ли эти числа быть длинами

Вопрос по информатике:

Составьте программу которая по трем введенным вами числам определит могут ли эти числа быть длинами сторон треугольника и если да то определить вид этого треугольника

Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?

Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!

• 14.05.2017 21:18
• Информатика
• remove_red_eye 18780
• thumb_up 42

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

• Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
• Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
• Писать без грамматических, орфографических и пунктуационных ошибок.

Этого делать не стоит:

• Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
• Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
• Использовать мат — это неуважительно по отношению к пользователям;
• Писать в ВЕРХНЕМ РЕГИСТРЕ.

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

Решение задач по информатике «Программирование разветвляющихся алгоритмов»

Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

Курс повышения квалификации

Особенности подготовки к сдаче ЕГЭ по информатике и ИКТ в условиях реализации ФГОС СОО

• Сейчас обучается 61 человек из 28 регионов

Курс повышения квалификации

Информационно-коммуникационные технологии в деятельности образовательного учреждения

• Сейчас обучается 32 человека из 19 регионов

Курс повышения квалификации

Геймификация как универсальная технология развития внутренней учебной мотивации школьников

• Сейчас обучается 28 человек из 19 регионов

«Домашнее обучение. Лайфхаки для родителей»

Рабочие листы и материалы для учителей и воспитателей

Более 2 500 дидактических материалов для школьного и домашнего обучения

Описание презентации по отдельным слайдам:

Задачи по теме
“Организация ветвления
на языке Паскаль”

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

Полный оператор условного перехода имеет вид:

if условие
then оператор1

Краткая форма оператора условного перехода имеет вид:

if условие then оператор1;

Примеры условного оператора
Информатика и ИКТ. 9 класс
Наибольшее из двух чисел увеличить в 2 раза

if x>y then x:=2*x else y:=2*y;
3. Является число N четным или нечетным

if N mod 2=0 then write(‘четное’)
else write(‘нечетное’);
2. Найти квадратный корень выражения X-2

Составить программу для нахождения площади треугольника по формуле Герона.
Задача №1.

Информатика и ИКТ. 9 класс
PROGRAM treug;
var a,b,c,p,S:real;
BEGIN
write(‘Введите стороны: ’); readln(a,b,c);
p:=(a+b+c)/2;
if (p-a)*(p-b)*(p-c)>=0 then
begin
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(‘S=‘,S)
end
else writeln(‘Треугольник не существует’);
END.

Задача №2.
Составить программу, которая по трем введенным вами числами определит, могут ли эти числа быть длинами сторон треугольника.

Program 8;
Var a,b,с:integer;
Begin
Readln (a,b,c);
If a>=b+c then Writeln (‘Нет’)
Else if b>=a+с then Writeln (‘Нет’)
Else if c>=a+b then Writeln (‘Нет’)
Else Writeln (‘Да’);
End.

a, b, c – длины сторон треугольника

Задача №3.
Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10.

Program 1;
Var a:integer;
Begin
Readln (a);
If a>0 then a:=a-10 else a:=a+10;
Writeln (a);
End.

Задача №4.
Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его
в 3 раза и вывести на экран.

Program 2;
Var a,b,d:integer;
Begin
Readln (a,b);
d:=a*b;
If d<0 then d:=d*(-2) else d:=d*3;
Writeln (d);
End.

a — первое число
b — второе число
d – произведение

Задача №5.
Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.

Program 3;
Var a,b:integer; d:real;
Begin
Readln (a,b);
d:=a+b;
If d mod 2=0 then d:=a*b else d:=a/b;
Writeln (d);
End.

a — первое число
b — второе число
d – сумма,частное, произведение

Задача №6.
Ввести два числа. Вычесть из большего меньшее.

Program 4;
Var a,b,d:integer;
Begin
Readln (a,b);
If a>b then d:=a-b else d:=b-a;
Writeln (d);
End.

a — первое число
b — второе число
d – разность чисел

Задача №7.
Ввести число. Если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5.

Program 5;
Var a:real;
Begin
Readln (a);
If a<=10 then a:=a*5 else a:=a/2;
Writeln (a);
End.

Задача №6.
Ввести два числа. Если их сумма больше 100, то сумму уменьшить
в 2 раза, в противном случае увеличить в 2 раза.

Program 6;
Var a,b:integer; S:real;
Begin
Readln (a,b);
S:=a+b;
If S>100 then S:=S/2 else S:=S*2;
Writeln (S);
End.

a — первое число
b — второе число
S – сумма чисел

Задача №7.
Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число на 2 ,в противном случае уменьшить на 2.

Program 7;
Var a,b,d,s:integer;
Begin
Readln (a);
b:= a div 10; d:= a mod 10; S:= b+d;
If s mod 2=0 then a:=a+2 else a:=a-2;
Writeln (d);
End.
a — двузначное число
b -первая цифра числа
d — вторая цифра числа
S — сумма цифр числа

1. Какое значение будет напечатано в результате работы программы:

Program 1;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a<=b then a:=a+7 else b:=b+4;
x:=a*b;
Writeln (x);
End.

1.-15 2.-50 3.-3 4.-10 5.программа неработоспособна

2. Какое значение будет напечатано в результате работы программы:

Program 2;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a<=b then a:=a*7 else b:=b*4;
x:=a+b;
Writeln (x);
End.

1.-2 2.-16 3.-17 4.-420 5.программа неработоспособна

3. Какое значение будет напечатано в результате работы программы:

Program 3;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a>=b then a:=a*7 else b:=b*4;
x:=a-b;
Writeln (x);
End.

1.8 2.26 3.23 4.41 5.программа неработоспособна

4. Какое значение будет напечатано в результате работы программы:

Program 4;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a<=b then a:=a-b else b:=b-a;
x:=a*b;
Writeln (x);
End.

1.-15 2.-40 3.-24 4.-64 5.программа неработоспособна

5. Какое значение будет напечатано в результате работы программы:

Program 5;
Var a,b,x:integer;
Begin
a:=3; b:=-5;
If a>=b then a:=a+b else b:=b-a;
x:=a*b;
Writeln (x);
End.

1.15 2.40 3.20 4.10 5.программа неработоспособна

• подготовка к ЕГЭ/ОГЭ и ВПР
• по всем предметам 1-11 классов

Рабочие листы и материалы для учителей и воспитателей

Более 2 500 дидактических материалов для школьного и домашнего обучения

«Такие разные дети: преимущества тьюторской позиции учителя»

Свидетельство и скидка на обучение каждому участнику

Дистанционные курсы для педагогов

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

5 910 202 материала в базе

Материал подходит для УМК

«Информатика», Босова Л.Л., Босова А.Ю.

3.4.3. Многообразие способов записи ветвлений

«Интеграция современного искусства в детское творчество»

Свидетельство и скидка на обучение
каждому участнику

Ищем педагогов в команду «Инфоурок»

• ЗП до 91 000 руб.
• Гибкий график
• Удаленная работа

Другие материалы

• Информатика
• 8 класс
• Презентации

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
• Тема: § 3.5. Программирование циклических алгоритмов

• 11.05.2018
• 973
• 8

• Информатика
• 8 класс
• Тесты

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.

• 11.05.2018
• 1024
• 3

• Информатика
• 8 класс
• Другие методич. материалы

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
• Тема: § 1.3. Элементы алгебры логики

• 11.05.2018
• 942
• 1

• Информатика
• 8 класс
• Другие методич. материалы

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
• Тема: Приложение к Главе 2

• 11.05.2018
• 1343
• 4

• Информатика
• 8 класс
• Конспекты

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
• Тема: Приложение к Главе 2

• 11.05.2018
• 716
• 13

• Информатика
• 8 класс
• Конспекты

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
• Тема: 2.1.1. Понятие алгоритма

• 11.05.2018
• 575
• 6

• Информатика
• 8 класс
• Конспекты

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
• Тема: 1.1.5. Правило перевода целых десятичных чисел в систему счисления с основанием q

• 11.05.2018
• 375
• 1

• Информатика
• 8 класс
• Презентации

• Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
• Тема: § 3.1. Общие сведения о языке программирования Паскаль

• 11.05.2018
• 665
• 8

«Практический подход в работе с утратой смысла жизни: логотерапия»

Свидетельство и скидка на обучение каждому участнику

Вам будут интересны эти курсы:

• Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
• Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
• Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
• Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
• Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
• Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
• Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
• Курс повышения квалификации «Введение в программирование на языке С (СИ)»
• Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
• Курс повышения квалификации «Современные тенденции цифровизации образования»
• Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

• 11.05.2018 4739
• PPTX 234.9 кбайт
• 89 скачиваний
• Рейтинг: 5 из 5
• Оцените материал:

Настоящий материал опубликован пользователем Шереметова Любовь Васильевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

Автор материала

• На сайте: 6 лет и 11 месяцев
• Подписчики: 0
• Всего просмотров: 12859
• Всего материалов: 12

40%

Московский институт профессиональной
переподготовки и повышения
квалификации педагогов

Дистанционные курсы
для педагогов

663 курса от 690 рублей

Выбрать курс со скидкой

Выдаём документы
установленного образца!

89 минут

«Ресурсные техники антистрессового и успокоительного дыхания»

69 минут

«Рейтинг и портфолио: альтернативные средства оценивания учебных достижений»

81 минута

«Обучение детей с особыми образовательными потребностями»

• 

• 

• 

Подарочные сертификаты

• Курсы «Инфоурок»
• Онлайн-занятия с репетиторами на IU.RU

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

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.