Логические и символьные константы.

В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ...

Строки в Паскаль.

Тип данных String (строковый тип) используется в Паскаль для обработки текстов. Если в одну переменную типа Char можно записать лишь один символ, то в переменную типа String можно записать до 255 символов.

Функции trunc, round в Pascal.

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

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

Работа со строковыми данными.

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

Линейные процессы вычислений.

Простейший алгоритм представляет собой цепочку блоков (операторов) от начального блока до конечного. Каждый блок должен быть выполнен один единственный раз. Это линейный алгоритм. Он отражает ...

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

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


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.


Комментарии   

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