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

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

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

Функции Copy, Pos, процедуры Delete, Insert.

Функция Copy позволяет копировать из строки часть символов. Функция имеет 3 параметра. Copy (st, index, count). St-строка из которой копируют, Index-номер символа, с которого начинается копирование, Count-количество символов, которое будет ...

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

Разветвляющийся вычислительный процесс.

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

Подпрограммы, определенные пользователем.

Технология программирования с использованием подпрограмм предусматривает разбиение программ на логически связанные, но функционально-замкнутые компоненты, имеющие свое имя, что дает следующие ...

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

Формат записи оператора If имеет 2 формы: неполную (If..Then) и полную (If..Then..Else).

Конструкция If..Then.




program vetvlenija;
uses crt;
var A:real;
begin
clrscr;
write ('Введите число A: ');
readln (A);
if A>=0 then
writeln ('Вы ввели положительное число');
readln
end.


В строке №7 мы вводим с клавиатуры какое-нибудь число.

В строке №8 записываем оператор If, который проверяет условие о том, что значение переменной «A» (т.е. введенное нами число) больше либо равно 0. Если это условие выполняется (т.е. если введенное нами число больше либо равно 0), тогда должно выполняться действие, которое следует за словом Then. У нас за словом Then следует строка №9, которая выводит на экран сообщение. Запомните, что после слова Then точка с запятой не ставится.

konstrukciya if..then

После запуска программы вводим какое-нибудь число, например 5 и нажмем Enter.

konstrukciya if..then.

Если мы попробуем ввести отрицательное число, то сообщение на экран не выводится. В Паскале есть возможность осуществлять те или иные действия (например, выводить на экран сообщение) при не выполнении условий. Для этого используется конструкция If..Then..Else.


Конструкция If..Then..Else.





program number19;
uses crt;
var A:real;
begin
clrscr;
write ('Введите число A: ');
readln (A);
if A>=0 then
writeln ('Вы ввели положительное число')
else
Writeln('Вы ввели отрицательное число');
readln
end.



В отличии от предыдущей задачи, здесь у нас появилось новое слово Else (строка №10). Это слово в конструкции If..Then..Else говорит программе, что делать, если условие не выполняется.

Строка №8. Если «A» больше либо равно 0, тогда выводится сообщение в строке №9.

Строка №10. Записывается слово Else, которое означает, что в противном случае (т.е. если «A» не больше и не равно 0) должно выполняться действие, следующее за словом Else. У нас за словом Else выводится на экран сообщение в строке №11. Запомните, что перед Else и после Else точка с запятой не ставится.

Записываем программу в Паскале, запускаем и вводим какое-нибудь положительное число (например, 5).

konstrukciya if..then..else

konstrukciya if..then.

Снова запускаем программу и вводим отрицательное число (например, -5)

konstrukciya if..then..else.


Предыдущая статья : Процедуры STR и VAL.

Оглавление : Уроки Паскаль. Ветвления.

Следующая статья : Использование вложенного оператора If.


Комментарии  

 
+5 # J-CAT 04.12.2012 12:21
сяб, теперь разобрался! :lol:
Ответить
 
 
-6 # Нео 12.12.2012 15:17
опа опять знакомый JS и PHP! 8)
Ответить
 
 
-7 # Дмитрий 04.06.2013 06:25
Извините, я не могу составить программу. Мне нужно сделать так, чтобы при вводе слова "Стареют" выводилось слово "молодец", а если введено неправильно, выводилось слово "Неправильно". Это можно?
Ответить
 
 
-9 # SaintAntoniyi 28.03.2014 10:08
Смотри статьейки о String переменной
Ответить
 
 
-5 # Павел 12.05.2014 08:01
Попробуй так:

var str1:string;
begin
write('Введите слово: ');
readln(str);
if str = 'Стареют' then write('Молодец!')
else write('Неправильно!');
readln;
end.

Если неправильно то извините проверить не мог - так как нету при себе компилятора.
Ответить
 
 
-4 # Павел 12.05.2014 08:03
ой ошибочка вышла вместо "var str1:string" напишите "var str:string"
Ответить
 
 
-5 # Ильющка 27.10.2014 06:27
сижу на уроке не могу сдлеать памагите!!!
Ответить
 
 
-2 # Ася 08.10.2017 21:16
Спасибо за информацию ;)
Ответить
 
 
-2 # Fernandez 15.03.2022 11:06
:D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D
Ответить
 
 
-1 # Fernandez 15.03.2022 11:06
:D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D
Ответить
 
 
0 # Zara 21.05.2025 18:18
wonderful issues altogether, you just gained a new reader.
What may you recommend about your publish that you made a few days in the
past? Any sure?

Feel free to surf to my homepage - buka situs ini, Mario: https://boombam.app/index.php/User:RoseannaMichaud,
Ответить
 
 
0 # Johnny 08.08.2025 05:28
With stackable rebates on parts for the
summer, our Certified Service technicians can help keep
your vehicle running smoothly all season long.


Visit my web-site :: http://hedron-arch.com/: http://hedron-arch.com/component/k2/item/17-facebook-buys-video-ad-tech-start-up?start=0
Ответить
 
 
0 # Ray 08.08.2025 07:26
Great site you have got here.. It's hard to find excellent writing like yours these days.
I seriously appreciate people like you! Take care!!


my homepage: slot gacor terbaru: http://www.smarteducation.OR.Kr/index.php?document_srl=156003&mid=board_ISwc24&ref_ucid=ad157a02027a15ad0001027a15ad&details=418&mid=board_ISwc24
Ответить
 

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

   ГлавнаяПаскальВетвления в ПаскальВетвления в Pascal.