Процедуры STR и VAL.

В строковую переменную можно записывать не только буквы, но и цифры. Однако это будут не числа, как таковые, а их символьное представление. Для преобразования символьных представлений числа в само число, и наоборот, используются процедуры STR и VAl.

...

Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

Логические операции с целыми числами.

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

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

Индексы одномерного массива.

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

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

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

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования 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
Ответить
 
 
0 # Magaret 14.09.2025 15:34
Appreciate the recommendation. Will try it out.


Also visit my homepage - Paito China 4D: http://178.128.51.64/
Ответить
 
 
0 # Uta 24.09.2025 11:49
you are really a good webmaster. The site loading
velocity is incredible. It kind of feels that you are doing any distinctive trick.
Moreover, The contents are masterpiece. you've done a excellent process on this
matter!

Look at my homepage: Paito SDY Lotto: http://128.199.113.166/
Ответить
 
 
0 # Sharron 09.12.2025 19:57
Great site you have here but I was wanting to know if you knew of any user discussion forums that
cover the same topics talked about here? I'd really love to be a
part of online community where I can get responses from other experienced people
that share the same interest. If you have any suggestions,
please let me know. Cheers!

My webpage: wizardshop: https://wizardshop.cn
Ответить
 
 
0 # Johnny 19.01.2026 16:01
Hi! This is my first visit to your blog! We are a team of volunteers
and starting a new project in a community in the same
niche. Your blog provided us valuable information to work on. You have done a wonderful job!



Feel free to visit my homepage: website: https://qq88one.us.com/
Ответить
 
 
0 # Norris 20.01.2026 16:35
I know this web site: https://wapoz.ru.com/ presents quality dependent posts and additional data, is there any other web page which offers these information in quality?
Ответить
 
 
0 # Pasquale 23.01.2026 18:17
Just desire to say your article is as astounding. The clearness to
your put up is just spectacular and that i could assume you
are an expert on this subject. Well together with
your permission let me to grab your RSS feed to keep updated with drawing
close post. Thanks a million and please keep up the gratifying work.


Visit my webpage bò lạc à ní: https://au88.chat/
Ответить
 
 
0 # Zachery 24.01.2026 06:51
Incredible points. Sound arguments. Keep up the amazing work.


My page; seo lâu mệt lắm: https://wapoz.ru.com/
Ответить
 
 
0 # Bradley 24.01.2026 17:23
I blog often and I genuinely thank you for
your information. This great article has truly peaked
my interest. I will bookmark your website and keep checking for new information about once a week.
I opted in for your RSS feed too.

my webpage; porn: https://www.qq8886.com/
Ответить
 
 
0 # Leon 27.01.2026 20:25
Hi, I desire to subscribe for this weblog to obtain latest updates, so where can i do it please assist.


Also visit my page sex videos: https://www.qq8886.com/
Ответить
 
 
0 # Juan 28.01.2026 14:53
Woah! I'm really loving the template/theme of this website.
It's simple, yet effective. A lot of times
it's very hard to get that "perfect balance" between usability and appearance.
I must say you have done a great job with this. In addition,
the blog loads very quick for me on Firefox. Excellent Blog!


Stop by my webpage ... sex hằng du mục: https://www.qq8827.com/
Ответить
 
 
0 # Katja 29.01.2026 08:10
My spouse and I stumbled over here by a different web page and thought I might check things
out. I like what I see so now i'm following you.
Look forward to checking out your web page for a second time.


Also visit my page :: sex 7
months pregnant: https://www.qq8827.com
Ответить
 
 
0 # Adriene 29.01.2026 16:06
Spot on with this write-up, I absolutely believe that this site needs much
more attention. I'll probably be back again to read more, thanks for the info!


Also visit my web page ... sex hay khong che: https://www.qq8827.com
Ответить
 
 
0 # Isobel 01.02.2026 05:47
I go to see everyday a few web pages and information sites to read articles,
except this web site provides quality based writing.

Also visit my webpage; بوت طائرة 1xbet: https://bit.ly/lannaau
Ответить
 
 
0 # Gabrielle 01.02.2026 20:34
That is a really good tip especially to those fresh to the blogosphere.
Brief but very precise information… Thanks for sharing this one.
A must read post!

my blog post - Shark script الطيارة: https://bit.ly/gtqbyne
Ответить
 
 
0 # Roscoe 06.02.2026 04:06
Greetings from Los angeles! I'm bored at work so I decided to
browse your website on my iphone during lunch break.

I enjoy the info you provide here and can't wait to take a look when I get home.
I'm shocked at how quick your blog loaded on my phone ..
I'm not even using WIFI, just 3G .. Anyways,
wonderful blog!

my web-site - لعبة الطائرة: https://bit.ly/tvcabqb
Ответить
 

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

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