Тестирование готовой программы на языке Pascal
Теоретическая часть

Условный оператор IF обеспечивает выполнение или невыполнение некоторого оператора в зависимости от заданных условий. К ним относятся операторы IF и CASE. Формат для IF:

ЕСЛИ (условие = ИСТИНА) ТО ВЫПОЛНИТЬ <оператор1> ИНАЧЕ ВЫПОЛНИТЬ <оператор2>;

То же на языке Паскаль:

IF (условие = ИСТИНА) THEN (оператор 1) ELSE (оператор2);

Обратите внимание: перед ELSE точка с запятой не ставится!!!

Пример:

IF Temp>100 THEN Writeln(’Вызывайте пожарных! ’) ELSE Writeln(’Bce в порядке’);

В операторе IF вторая часть может отсутствовать:

IF (условие = ИСТИНА) THEN (оператор1);

В этом случае, если условие ложно, оператор IF игнорируется и выполняется следующий за IF оператор. Такой оператор называется неполным.

Оператор IF используется в тех случаях, когда имеется два варианта действий в зависимости от какого-то условия.

Ход работы

Запустить программу PascalABC.

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

Программа-Выполнить или нажатием на клавиши F9.

Пример: Вывести на экран большее из двух данных чисел.

Составим алгоритм решения задачи:

1Начало.
2Ввод чисел х и у.
3Если х>у, то выполнить вывод (х), иначе - вывод (у).
4Конец.
Программа:

Program Primer 1;
Var х, у: Integer;
Begin
writeln ('Введите два числа через пробел*);
readln(x,y); { вводим два целых числа через пробел }
if х>у then writeln(x) { если (If) х больше у, то (then) выводим х }
else writeln(y); { иначе (else) выводим у }
End

Решите самостоятельно задачу, составив алгоритм и программу:

1) Вывести на экран номер четверти, которой принадлежит точка с координатами (х, у), при условии, что х и у отличны от 0.

198

494

Посмотреть ответы 1

Ответы на вопрос:

Назмина134

Информатика

4,6(95 оценок)

Function abc(a: integer): integer; begin result: =0; while a> 0 do begin if a mod 10 = 0 then result: =result+1; a: =a div 10; end; end; var a: integer; begin read(a); writeln(abc(a)); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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