Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ИринаМех
0 / 0 / 0
Регистрация: 07.03.2016
Сообщений: 8
#1

Попасть в "мишень" - Pascal ABC

07.03.2016, 12:04. Просмотров 280. Ответов 5
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
 var
    x,y,R:integer;
    L:boolean;
 begin
     writeln('x,y,R ? '); 
     readln(x,y,R);
     L:=(x>=0)and(x*x+y*y<=R*R)  and (x<=0)and(y>=0) and (x=y)and ((x*y)/2) and (y<=0)and ( x<=0) and (x=y)and((x*y)/2)  ;
     writeln(L)
 end.
Program2.pas(7) : Нельзя преобразовать тип real к boolean
Искренне не понимаю в чем дело.
Название: 5O_GN8428C4.jpg
Просмотров: 17

Размер: 12.8 Кб
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2016, 12:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Попасть в "мишень" (Pascal ABC):

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун"
Из слова &quot;клоун&quot; путем &quot;вырезок&quot; и &quot;склеек&quot; его букв получить слова...

Даны текстовый файл "F" и строка "S". Получить все строки файла "F", содержащие в качестве фрагмента строку "S".
Плиз помогите написать прогу: Даны текстовый файл &quot;F&quot; и строка &quot;S&quot;. Получить...

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ"
Пожалуйста, составьте программу, которая из слов&quot;СТРАХ&quot;,&quot;БЕЛКА&quot;,&quot;ЦЫПЛЁНОК&quot;...

Удвоить в строке буквы "ю", "ъ", "ф", "э", а между словами оставить только по одному пробелу
Пользователь заполняет символьную строку русскими буквами. Буквы ю, ъ, ф, э в...

Изобразить стрелку и осуществить движение по клавишам "вверх", "вниз", "вправо", "влево"
Необходимо изобразить стрелку и осуществить движение по клавишам &quot;вверх&quot;,...

Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка"
4 .Даны строки а=&quot;вариант&quot;,b= &quot;Высоко&quot;, с = &quot;макароны&quot;. Получить слово...

5
Kapytan
129 / 143 / 64
Регистрация: 27.06.2013
Сообщений: 514
07.03.2016, 13:48 #2
((x*y)/2) не есть boolean, а есть integer.
1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25624 / 17177 / 6830
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
07.03.2016, 13:49 #3
Не integer, а real. Деление в Паскале никогда не возвращает целый результат, если это не div
2
ИринаМех
0 / 0 / 0
Регистрация: 07.03.2016
Сообщений: 8
07.03.2016, 16:51  [ТС] #4
Мне нужно тру или фолс, поэтому boolean
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
07.03.2016, 17:17 #5
Лучший ответ Сообщение было отмечено ИринаМех как решение

Решение

Напиши правильно условие, скобки правильно расставь и получишь boolean

Добавлено через 16 минут
Например так
Pascal
1
2
3
4
5
6
7
8
9
var
    x,y,R:real;
    L:boolean;
 begin
     writeln('x,y,R ? ');
     readln(x,y,R);
     L:=((x>=0)and(x*x+y*y<=R*R))or((x<0)and (abs(y)>=abs(x))and(abs(y)<=r));
     writeln(L)
 end.
1
ИринаМех
0 / 0 / 0
Регистрация: 07.03.2016
Сообщений: 8
07.03.2016, 17:52  [ТС] #6
ах вот оно что, спасибо огромное
0
07.03.2016, 17:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2016, 17:52
Привет! Вот еще темы с решениями:

Определить сколько "5", "4", "3", "2" было выставлено в каждом классе
известны оценки за контрольную по физике каждого ученика двух классов....

Заменить букву "А" на "КО" и подсчитать общее количество букв "Ф" и "В"
Заменить букву &quot;А&quot; на &quot;КО&quot; и подсчитать общее кол-во букв &quot;Ф&quot; и &quot;В&quot; . и ...

Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет"
1.Ввести один из символов &quot;Y&quot; или &quot;n&quot;. При вводе &quot;Y&quot; вывести на экран слово...

Подсчитать сколько раз в тексте встречаются буквы "л" и "а" стоящие отдельно.заменитьь все буквы "л" на "77"
Задача.Подсчитать сколько раз в тексте встречаются буквы &quot;л&quot; и &quot;а&quot; стоящие...


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

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

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