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

Содержание

Вводится число, выдать на экран положительное оно, отрицательное или равное 0.

Код к задаче: «Вводится число, выдать на экран положительное оно, отрицательное или равное 0»

Листинг программы

uses crt; var a:integer; begin writeln(‘Введите число’); readln(a); if a > 0 then writeln(‘Число положительное ‘) else if a < 0 then writeln(‘Число отрицательное ‘) else writeln(‘Число равное 0’); end.

10 голосов , оценка 4.100 из 5

Похожие ответы

В матрице выявить все квадратные подматрицы, в которых число положительных и отрицательных элементов равно
Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой»
Дано число n из 5 цифр. Составить все комбинации этих цифр
Найти сумму модулей отрицательных элементов массива А
Найти все натуральные числа из промежутка от 1 до 200, У которых сумма цифр равна S
Заменить максимальный по модулю отрицательный элемент массива нулём
Целые числа из промежутка от 100 до 300, у которых сумма делителей равно K
Используя двоичный поиск, определить, есть ли в массиве число, равное Х
Заполните массив случайными числами в интервале [0;100] и найдите его среднее арифметическое
Является ли сумма цифр трехзначного числа равной 9
Найти произведение всех отрицательных чисел введенной последовательности

Все виды студенческих работ на заказ

Функции в паскале. Как возвести число в степень в паскале

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

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

xxxirishkaxxx8 August 2022 | 0 Ответы

reshi zadachu vychisli i zapishi otvet skolko kirpichej potrebuetsya dlya stroitels6a8bfaca58d82f69baa48ec28a551a29 71095

xxxirishkaxxx8 August 2022 | 0 Ответы

reshi zadachu vychisli i zapishi otvet skolko kirpichej potrebuetsya dlya stroitels

xxxirishkaxxx8 August 2022 | 0 Ответы

1 na sorevnovaniyah biatlonist vystrelil v cel 66 raz promahi sostavili shestuyu

xxxirishkaxxx8 August 2022 | 0 Ответы

Читайте также:

Программа тех для тех кто в декрете

kakova glavnaya mysl skazki bratya grimm neblagodarnyj syn

xxxirishkaxxx8 August 2022 | 0 Ответы

ch cherez skolko chasov rasstoyanie mezhdu taksi i avtobusom budet 40km

xxxirishkaxxx8 August 2022 | 0 Ответы

Программирование на Pascal. Условия (ветвление). Видеокурс

ekipazh odnoj pozharnoj mashiny 8 chelovek skolko chelovek odnovremenno mozhet vye

xxxirishkaxxx8 August 2022 | 0 Ответы

esli razryad edinic schitaetsya pervym razryadom to kakim budet chetyrehznachnoe chisl

xxxirishkaxxx8 July 2022 | 0 Ответы

ot kuska syra massa kotorogo 21 kg otrezali 3 kg vo skolko raz massa otrezan

xxxirishkaxxx8 July 2022 | 0 Ответы

predstavte sebya avtorom tolkovogo prirodnogo slovarya vyberite odin iz ego r

xxxirishkaxxx8 July 2022 | 0 Ответы

Источник: scholar.tips

Презентация на тему: Язык Паскаль. Лекция 4 — Разветвленный алгоритм

Разветвленный алгоритм Лекция №4

№ слайда 1

Описание слайда:

Разветвленный алгоритм Лекция №4

План лекции Разветвленный алгоритм Примеры разветвленных алгоритмов Условный опе

№ слайда 2

Описание слайда:

План лекции Разветвленный алгоритм Примеры разветвленных алгоритмов Условный оператор Составной оператор Вложенные условные операторы Оператор выбора Решение задач

Разветвленный алгоритм Разветвленным алгоритмом называется такой алгоритм, в кот

№ слайда 3

Описание слайда:

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

Полная разветвленная алгоритмическая структура

№ слайда 4

Описание слайда:

Полная разветвленная алгоритмическая структура

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

№ слайда 5

Описание слайда:

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

Условный оператор Оператор if выбирает между двумя вариантами развития событий:

№ слайда 6

Описание слайда:

Условный оператор Оператор if выбирает между двумя вариантами развития событий: if <условие> (если) then <один_оператор> (тогда) [else <один_оператор>]; (иначе) Обратите внимание, что перед словом else (когда оно присутствует, конечно же) символ «;» не ставится — ведь это разорвало бы оператор на две части.

Условный оператор Условный оператор if работает следующим образом: Сначала вычис

№ слайда 7

Описание слайда:

Условный оператор Условный оператор if работает следующим образом: Сначала вычисляется значение <условия> — это может быть любое выражение, возвращающее значение типа boolean. Затем, если в результате получена «истина» (true), то выполняется оператор, стоящий после ключевого слова then, а если «ложь» (false) — без дополнительных проверок выполняется оператор, стоящий после ключевого слова else. Если же else-ветвь отсутствует, то не выполняется ничего.

Читайте также:

Доработайте программу так чтобы она выводила на экран слово hello 10 раз в столбик

Составной оператор Составной оператор - объединение нескольких операторов в одну

№ слайда 8

Описание слайда:

Составной оператор Составной оператор — объединение нескольких операторов в одну группу. Группа операторов внутри составного оператора заключается в операторные скобки (begin-end). begin оператор 1; оператор 2; end;

Составной условный оператор Если в качестве оператора должна выполниться серия о

№ слайда 9

Описание слайда:

Составной условный оператор Если в качестве оператора должна выполниться серия операторов, то они заключаются в операторные скобки begin-end. Конструкция Begin . End называется составным оператором. if <логическое выражение> then begin оператор 1; оператор 2; . end else begin оператор 1; оператор 2; . end;

Пример разветвленного алгоритма Задача 1. Вычислить отношение двух целых чисел.

№ слайда 10

Описание слайда:

Пример разветвленного алгоритма Задача 1. Вычислить отношение двух целых чисел. Var a,b : integer; ratio : real; Begin writeln(‘Введите два числа: ‘); read (a,b); ratio:= a / b; writeln (‘Отношение = ‘,ratio:6:2); End. Когда вы введете 0 для второго значения, программа напечатает сообщение об ошибке (Divide by zero — Деление на ноль) и остановится.

№ слайда 11

Описание слайда:

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

№ слайда 12

Описание слайда:

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

№ слайда 13

Описание слайда:

Неполная разветвленная структура Задача 3. Составить программу, которая, если введенное число отрицательное меняет его на противоположное. Program Chisla; Var x : integer; Begin writeln(‘Введите число ‘); readln(x); if x<0 then x:=-x; writeln (x); readln; End.

Вложенные условные операторы Program z4; Var a, b, c : integer; Begin переключатель> of <список_констант> : <один_оператор>; [<список_констант> : <один_оператор>;] [<список_констант> : <один_оператор>;] [else <один_оператор>;] end;</p><p><img decoding=

Читайте также:

Программа cellular data не работает

Оператор выбора Пример оператора выбора: case symbol of 'a'..'z', 'A'..'Z' : wri

№ слайда 17

Описание слайда:

Оператор выбора Пример оператора выбора: case symbol of ‘a’..’z’, ‘A’..’Z’ : writeln(‘Это латинская буква’); ‘а’..’я’, ‘А’..’Я’ : writeln(‘Это русская буква’); ‘0’..’9′ : writeln(‘Это цифра’); ‘ ‘,#10,#13,#26 : writeln(‘Это пробельный символ’); else writeln(‘Это служебный символ’); end;

Оператор выбора Задача 5. Написать программу преобразования цифр в слова. Progra

№ слайда 18

Описание слайда:

Оператор выбора Задача 5. Написать программу преобразования цифр в слова. Program z5; Var a, b, c : integer; Begin writeln(‘Введите цифру ‘); readln(a); case a of 0 : writeln (‘ноль‘); 1 : writeln (‘один‘); 2 : writeln (‘два‘); 3 : writeln (‘три‘); 4 : writeln (‘четыре‘); 5 : writeln (‘пять‘); 6 : writeln (‘шесть‘); 7 : writeln (‘семь‘); 8 : writeln (‘восемь‘); 9 : writeln (‘девять‘) else writeln (‘Это число не является цифрой‘); end; readln; End.

Решение задач Задача 6. Чтобы получить одну молекулу серной кислоты H2SO4 нужно

№ слайда 19

Описание слайда:

Решение задач Задача 6. Чтобы получить одну молекулу серной кислоты H2SO4 нужно 2 атома водорода (Н), 1 атом серы (S) и 4 атома кислорода (О).В химическом реакторе имеется А атомов водорода, В атомов кислорода и С атомов серы. Составьте алгоритм или напишите программу, вычисляющую, сколько молекул серной кислоты может получится из такого количества атомов?

Решение задач Алгоритм решения этой задачи может быть записан следующим образом:

№ слайда 20

Описание слайда:

Решение задач Алгоритм решения этой задачи может быть записан следующим образом: Переменные: тип — целый A,B,C,M1,M2,K; Ввести A,D,C; Вычислить целую часть от деления А на 2 М1=цел.часть (А/2); Вычислить целую часть от деления B на 4 М2=цел.часть (B/4); Найти минимальное из трех чисел С, М1, М2 K=min(C,M1,M2); Выдать на печать: В редакторе образуется К молекул кислоты.

Решение задач Задача 7. Определить принадлежит ли точка А(X0,Y0) данной фигуре.

№ слайда 21

Описание слайда:

Решение задач Задача 7. Определить принадлежит ли точка А(X0,Y0) данной фигуре.

Решение задач Задача 8. Напишите программу, которая вычисляет стоимость междугор

№ слайда 22

Описание слайда:

Решение задач Задача 8. Напишите программу, которая вычисляет стоимость междугородного телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и длительность разговора. Ниже приведены коды некоторых городов.

№ слайда 23

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

Рейтинг

( Пока оценок нет )

Загрузка ...