Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
CapNemo
1 / 1 / 6
Регистрация: 10.12.2012
Сообщений: 24
#1

Какова роль логической переменной в приведенном случае - Free Pascal

15.01.2013, 01:05. Просмотров 410. Ответов 2
Метки нет (Все метки)

Роль логической переменной в данном случае.
http://www.cyberforum.ru/free-pascal/thread637976.html
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Symbol;
Var A: string;
       n, i: integer; f:boolean;
Begin
  Writeln(‘Введите строку символов A’);
  Readln(A);
f:=true;
   n:=0;
   For i:=1 to length(A) do
       if (A[i]<>' ') and f then
        n:=n+1;
        f:=(A[i]=' ');
 
 
   Writeln(‘n=,n);
   Readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2013, 01:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Какова роль логической переменной в приведенном случае (Free Pascal):

Какова роль константы P в данном выражении?
Что означает команда: const p:double=pi/180; На примере команды:...

Программа с логической переменной
Логической переменной Pole присвоить значение true, если поля (Hor1, Ver1) и...

Вводить символы с клавиатуры. Присвоить логической переменной L
Помогите, кто чем может. Вводить символы с клавиатуры. Присвоить логической...

Присвоить логической переменной t значение true, если выполняется логическое условие
Добрый вечер. В паскале я разбираюсь пока не очень. Вот решил задачу, но...

Присвоить логической переменной результат сравнения модулей сумм положительных и отрицательных элементов
Исходя из элементов вещественного массива Х1, Х2,..., X12, присвоить логической...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25598 / 17151 / 6821
Регистрация: 22.10.2011
Сообщений: 30,350
Записей в блоге: 6
15.01.2013, 02:04 #2
В данном случае - смысла в ней нет. А вот если правильно написать:
Pascal
1
2
3
4
5
6
   For i:=1 to length(A) do
   begin
       if (A[i]<>' ') and f then
          n:=n+1;
       f:=(A[i]=' ');
   end;
, то смысл сразу появляется. Следующие за первым НЕпробелом символы не будут учитываться, и программа посчитает сколько слов (ну, или групп символов, отличных от пробелов) есть в строке (неважно, сколько символов в каждом слове, может по одному, а может - по 10)...
0
CapNemo
1 / 1 / 6
Регистрация: 10.12.2012
Сообщений: 24
15.01.2013, 02:20  [ТС] #3
А что значит здесь сама переменная?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2013, 02:20
Привет! Вот еще темы с решениями:

Логической переменной "Nachalo" присвоить значение true, если начало системы координат попадает внутрь прямоугольника
Логической переменной &quot;Nachalo&quot; присвоить значение true, если начало системы...

Присвоить логической переменной значение "истина", если все элементы массива не превышают значения своего последнего элемента
На основе элементов вещественного массива Х1,Х2,..Х12 присвоить логической...

Логической переменной T присвоить значение true или false в зависимости от того, является натуральное число R , не большего 100000, степенью 3 или нет
Здравствуйте, помогите пожалуйста, есть задача: Логической переменной T...

Какова длина дистанции в N-й день и какова общая длина, которую осилил спортсмен за все N дней
Начав тренировки, спортсмен в первый день пробег 10 км. Каждый следующий день...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru