отрицательные числа заменить знак паскаль

Имя (обязательное)

Добавить комментарий

Ну тот мозахизм можно заменить ище на:а:=а*(-1); Правда не понимаю зачем

readln(a);a:=a-2*a;writeln(a);

Следующая статья :

Предыдущая статья :

Мы видим, что положительное число вывелось в нижней строке отрицательным, а отрицательное положительным.

Запускаем программу и вводим 10 различных чисел, как отрицательных, так и положительных

В строке 14 задаем новый цикл for I:=1 to N do для оператора write (-LINE[I]:5). Таким образом, мы выводим на экран значения всех элементов массива. (элементы массива содержат значения, которые мы ввели с клавиатуры). Так как нам необходимо вывести эти значения на экран с противоположным знаком, перед LINE[I] ставиться знак «-» . Кроме того, указываем формат вывода для каждого числа (:5). В результате, при выводе на экран, под каждое число будет выделено 5 знакомест.

Строка 9. Записываем цикл. Следует помнить, что после записи for I:=1 to N do у нас следуют операторы, которые необходимо заключать в отдельный блок begin end. В нашей программе 2 оператора (строка 11 и 12) заключены в отдельный блок, поэтому цикл for I:=1 to N будет выполняться для обоих этих операторов (10 раз будет выводиться сообщение на экран и 10 раз будем вводить число с клавиатуры).

В строке 6 записываем переменную «I», которая будет являтся счетчиком для цикла.

В строке 4 объявляем массив. Для объявления массива мы использовали новый раздел Type. Это раздел для описания типов переменных. Эти типы определяет сам пользователь. Здесь мы объявляем массив из целых чисел.  [1..N] это диапазон чисел, причем N заранее определен в разделе констант Const и равен 10. Если бы мы объявляли массив старым способом, то у нас получилась бы такая строка: var LINE:array [1..N] of integer. В нашем примере мы записываем так: type X=array [1..N] of integer. А далее, в строке 5, мы записываем переменную LINE и указываем для нее тип данных X. Получается, что для переменной мы указываем тип данных, который описали в строке 4 в разделе Type. Можно объявлять массивы любым способом: и в разделе описания переменных Var, и в разделе описания типов переменных Type. Однако, с точки зрения грамотного стиля составления программы, второй вариант более предпочтителен.

В строке 3 объявляем раздел описания констант Const. Записываем константу «N» и присваиваем ей значение 10. Это значение не будет меняться по ходу выполнения программы.

write ( Введите ,I, число );

type X=array [1..N] of integer;

 Использование массивов (продолжение).

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

Привет! Ты попал (или, может быть, попала) на сайт, посвященный программированию, компьютерам и всему что с ними связано.

информатика и программирование

Использование массивов (продолжение).