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

: 1

решить задачу в делфи7

78. Написать программу вычисления сопротивления электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление сопротивления электрической цепи.
Введите исходные данные:
Величина первого сопротивления (Ом) -> 15
Величина второго сопротивления (Ом)-> 27.3
Тип соединения (1 — последовательное, 2 — параллельное) -> 2
Сопротивление цепи: 9.68 Ом.
82. Написать программу проверки знания даты основания Санкт-Петербурга. В случае неверного ответа пользователя программа должна выводить правильный ответ. Ниже представлен реко-
мендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
В каком году был основан Санкт-Петербург?
Введите число и нажмите

Напишите программу, проверяющую число, введенное с клавиатуры на четность. Домашнее задание. C++ #2.

-> 1705
Вы ошиблись, Санкт-Петербург был основан в 1703 году.
86. Написать программу, которая сравнивает два числа, введенных с клавиатуры. Программа должна указать, какое число больше, или, если числа равны, вывести соответствующее сообщение. Ниже представлен рекомендуемый вид экрана во время работы программы.
Введите в одной строке два целых числа
-> 34 67
34 меньше 67.
и нажмите .
95. Написать программу, вычисляющую стоимость междугороднего телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, и коды некоторых городов выделены полужирным шрифтом).
Вычисление стоимости разговора по телефону. Введите исходные данные: Код города -> 812
Город Код Цена минуты, руб.
Владивосток 423 2,2
Москва 095 1,0
Мурманск 815 1,2
Самара 846 1,4
Длительность (целое количество минут)-> 3 Город: Владивосток Цена минуты: 2.20 руб. Стоимость разговора: 6.60 руб.
92. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах)-100. Рекомендуемый вид экрана во время работы программы приведен ниже (данные, введенные пользователем, выделены полужирным шрифтом).
Введите в одной строке через пробел
рост (см) и вес (кг) затем нажмите
-> 170 68
Вам надо поправиться на 2.00 кг.
90. Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры. Ниже представлен рекомендуемый вид экрана профаммы во время ее работы (данные, введенные пользователем, выделены полужирным шрифтом).
Введите целое число и нажмите -> 451
Число 4 51 нацело на три не делится.

Источник: www.programmersforum.ru

Написать программу которая вычисляет оптимальный вес пользователя сравнивая…

Написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдает рекомендации о необходимости поправиться илипохудеть. По формуле рост минус 100…

в избранное ссылка

15 октября 2021

Program Zadacha1; Var ves, rost, optVes: integer; Begin write (‘введите массу тела’); read (ves); write (‘введите рост в см’); read (rost); optVes: =rost-100; if ves>optVes then write (‘вам необходимо похудеть на’, abs (optVes-ves); if ves в избранное ссылка отблагодарить

Источник: gdzyuka.ru

Оператор сравнения

Данная работа содержит презентацию с теоретическими и практическими заданиями оператора сравнеия. В презентации приведены примеры программ, которые учащиеся могут выполнить в программе Паскаль Так же прилагается планирование двух уроков по теме программирование на языке Паскаль, оператор if.

Вы уже знаете о суперспособностях современного учителя?

Тратить минимум сил на подготовку и проведение уроков.

Быстро и объективно проверять знания учащихся.

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

Избавить себя от подбора заданий и их проверки после уроков.

Наладить дисциплину на своих уроках.

Получить возможность работать творчески.

Просмотр содержимого документа
«план урока команда if»

1. Познавательная – познакомить учеников с командой сравнения IF , привести примеры применения этой команды.
2. Развивающая – развивать логическое мышление.
3. Воспитательная – воспитывать творческий подход к труду.

1. Мотивация учебной деятельности учеников

1. Объявление темы и ожидаемых результатов

• Рассказать о назначении команды сравнения IF ;
• Объяснить назначение основных ключевых слов в этой команде;
• Объяснить правила использования операторных скобок begin и end ;
• Рассказать, как можно организовать ветвление в программе на три и более рукавов;
• Объяснить правила сравнения текстовых величин.

1. Объяснение нового материала – презентация. Во время объяснения сопровождать показ слайдов демонстрацией работы в среде программирования Turbo Pascal;

• Формат команды IF ;
• Полная и неполная формы команды;
• Ветвление на три и более рукавов;
• Сравнение текстовых величин;
• Примеры программ.

1. Физкультминутка.
2. Обсуждение пройденного материала
3. Итоги урока.
4. Домашнее задание: Рабочая тетрадь № 186-187 (Босова Л.Л., А.Ю. Босова Информатика и ИКТ. Рабочая тетрадь для 9 класса)

1. Познавательная – учить детей применять команду сравнения при составлении программ.
2. Развивающая – развивать логическое мышление.
3. Воспитательная – воспитывать творческий подход к труду.

1. Мотивация учебной деятельности учеников

1. Объявление темы и ожидаемых результатов

• Использовать команду сравнения IF при составлении программ;
• Составлять условия для этой команды;
• Объяснить почему компьютер выполняет разные действия в зависимости от проверяемых условий;
• Организовать ветвление в программе на три и более рукавов;

1. Актуализация опорных знаний

• Примеры записи команды сравнения;

1. Выполнение практической работы
2. Физкультминутка.
3. Обсуждение хода практической работы.
4. Итоги урока.
5. Домашнее задание:

• Составить программу: Даны целочисленные координаты точки на плоскости. Если точка не лежит на координатных осях, то вывести 0. Если точка совпадает с началом координат, то вывести 1. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 2 или 3.

Просмотр содержимого презентации
«Оператор сравнения»

Организация программ разветвляющейся структуры.Условный оператор.Для записи на языке Турбо-Паскаль разветвляющихся алгоритмов используется условный операторПолная (расширенная)форма оператораIF If логическое выражение Then оператор 1 Else оператор 2; Пример: If A Else X:=b: Пример 1Составить программу, которая выводит на экран компьютера пример на умножение двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение «Правильно» или «Вы ошиблись» и правильный результат.

Program Pr6;Uses Crt;Var m1, m2, p, otv: integer;BeginRandomize;M1:=random(9)+1;M2:=random(9)+1;P:=m1*m2;Writeln (‘Сколько будет’, m1, ‘ x ’, m2,’ ?’);Writeln (‘Введите ответ и нажмите’)Readln (otv);If otv=p Then Writeln (‘Правильно’);Else Writeln (‘Вы ошиблись’, m1, ‘ x ’, m2,’ =’, p);Readln; End.Вторая серия команд в условном операторе может отсутствовать. При этом признак ее начала – служебное слово Else – опускается. Неполная команда ветвления выглядит так: If условие Then действие; Здесь при справедливости условия выполняется действие, а если условие нарушено, то сразу переходим к оператору, который следует за условным оператором. 5 Then а : = а*2; WriteLn (‘а =’, а); End. Решение Если а 5, то значение а надо заменить на 2а. В противном случае (а Пример 2Program Pr2;Var а : Integer; BeginWriteLn (‘Введите число’); ReadLn (а); If а 5 Then а : = а*2; WriteLn (‘а =’, а); End.Решение Если а 5, то значение а надо заменить на 2а. В противном случае (а Использование нескольких команд после слов Then и Else Выполнив эту программу, вы заметите, что подчеркнутые строки выполняются вне зависимости от того, какие числа вы ввели. Такая ошибка связана с тем, что после ключевого слова Then в условном операторе If выполняется только одна команда, стоящая после него. Остальные же строки выполняются вне зависимости от условных операторов, стоящих перед ними. Чтобы после ключевых слов Then или Else могла выполняться последовательность операторов, они должны быть заключены в операторные скобки – ключевые слова Begin и End . Операторные скобки охватывают фрагмент исходного текста программы, который необходимо считать одним оператором. В качестве операторов, используемых в составном операторе, могут использоваться любые операторы, допустимые в Турбо-Паскале, в том числе условные операторы, а также составные операторы. Составной оператор: Begin оператор 1; оператор 2 ; …… . оператор n ; End; Способы ветвления алгоритма на несколько рукавов.Один из способов реализации ветвления на несколько рукавов – использование вложенных операторов IF Рассмотрим этот способ на примере: Программа для нашего примера примет вид: Program Pr4;Var a,x: integer;BeginWriteln(‘Введите x’)Read (x);If x ElseIf x Then a := 2*xElse a := 0;Writeln (a);End. Второй способ реализации ветвления на несколько рукавов – использование нескольких неполных операторов IFПример5 Составьте программу, определяющую наибольшее значение переменных X,Y,Z. Program Pr5;Var x, y, z, p: integer; BeginWriteLn (‘ Задайте значения x, y, z’); ReadLn (x, y, z); p:=x; If pthen p:=y; If pthen p:=z; WriteLn (‘ Наибольшее значение = ’, p:6); ReadLn;End.Пример 6. Составить программу, проверяющую правильность пароля Предположим, что пароль – это слово «груша». Программа запрашивает у пользователя пароль, сравнивает его с нашим паролем. Если пользователь ввел правильный пароль, то для него доступ открыт, а если пароль не правильный, то доступ закрыт. Program Pr6; Var parol :string; BeginWriteLn (‘ Какой пароль? ’); ReadLn (parol); If parol=‘ груша ’ thenwriteLn (‘ Доступ для Вас открыт ’) ElsewriteLn (‘ Доступ закрыт. ’); ReadLn;End . Пример 7. Составить программу, которая предлагает Ивану-Царевичу выбрать правильное направление пути. У Ивана-Царевича есть три варианта дальнейшего пути:

• направо,
• налево,
• вперед.

Program Pr 7 ;

Var p :string;

WriteLn (‘ Куда путь держишь? ’);

If p=‘ направо ’ then writeLn (‘ Коня потеряешь ’) ;

If p=‘ налево ’ then writeLn (‘ Голову сложишь ’) ;

If p=‘ прямо ’ then writeLn (‘ Невесту найдешь ’) ;

Сегодня мы узнали:

Ветвление на три и более рукава можно организовывать с помощью вложенных команд IF , нескольких неполных команд IF , а также, комбинируя обе возможности.

Сравнение строк на компьютере основано на том, что каждый символ имеет свой АSСII-код, и при сравнении строк сравниваются коды составляющих их символов.

• Написать программу, которая проверяет, делится ли на 3 целое число, введенное с клавиатуры.
• Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100.
• Из трех данных чисел выбрать наибольшее.

Источник: kopilkaurokov.ru