Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Использование Var, Integer, Readln.

Процедура Readln используется не только для задержки экрана. Ее основная задача - ввод данных с клавиатуры. В этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. Для этого нам будет необходимо познакомиться с разделом ...

Div, Mod, сложение, вычитание в Pascal.

Помимо операций умножения и сложения, над целочисленными переменными производятся операции Div (операция целочисленного деления), Mod (вычисление остатка от целочисленного деления), операция вычитания «-».

Циклы и массивы

Многомерные массивы.

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

Организация условного перехода. Оператор IF.

Для программирования разветвляющихся процессов, содержащих две ветви, используется оператор IF условного перехода (ветвления), имеющий две конструкции.

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

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


program massiv3;
uses crt;
const N=10;
type X=array [1..N] of integer;
var LINE:X;
I:integer;
begin
clrscr;
for I:=1 to N do
begin
write (‘Введите ’,I, ‘ число ’);
readln (LINE[I]);
end;
for I:=1 to N do
write (-LINE[I]:5);
writeln;
readln
end.

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

В строке №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. Однако, с точки зрения грамотного стиля составления программы, второй вариант более предпочтителен.

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

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

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

massivih v paskalj....

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

massivih v paskalj.....

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


Предыдущая статья : Использование массивов.

Оглавление : Уроки Паскаль. Массивы.

Следующая статья : Randomize и Random в Pascal.


Комментарии  

 
-1 # буга 29.11.2012 13:59
readln(a);
a:=a-2*a;
writeln(a);
 
 
+3 # LemonLite 26.04.2015 08:55
Ну я не знаю..... этот сайт ЛУЧШИЙ просто ЛУЧШИЙ я освоил здесь этот pascal просто благодарен тому кто решил создать такой сайт и научить людей как работать в pascal! Спасибо тебе кто бы ты там не был!!!
 
   ГлавнаяПаскальМассивы в ПаскальИспользование массивов.