Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Удалить из слова все последующие вхождения первой буквы Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами - пробел, за последним словом - точка. Вывести все слова последовательности, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все последующие вхождения первой буквы. Помогите пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread2400148.html	Turbo Pascal Создание окон windows turbo vision Требуется оформить задач в виде окон windows при помощи turbo vision для исходной задачи. Изначально задача звучит так: "при помощи оператора case организовать и скрепить 3 задачи в одну и по выбору пользователя открывалась та или иная программа, а так же сделать выбор откуда брать исходные данные(файл или же ввод с клавиатуры)". Изначальное условие я сделал, осталось оформить все это в виде окон...
Turbo Pascal Работа с текстовыми файлами https://www.cyberforum.ru/ turbo-pascal/ thread2399735.html Добрый вечер, слёзно прошу помощи... объясните, как считать данные из текстового файла таким образом: Допустим, есть некий текстовый файл, состоящий из строк, каждая из которых представляет фамилию студента и его оценки. Примерно так: Иванов 3 4 5 Бельков 3 4 2 Сергиенко 3 3 4	Turbo Pascal Обработка массива. Исправить код, не могу понять, в чем ошибка... https://www.cyberforum.ru/ turbo-pascal/ thread2398933.html Исправьте код.Не могу понять в чем ошибка PROGRAM lol; Const n=10; VAR(Переменные) A: ARRAY of byte; i,j : integer; temp : byte; p,q,s : byte; b:byte;
Программа с использованием записей и типизированных констант Turbo Pascal Программа с использованием записей и типизированных констант. uses Crt; TYPE podlodka = recorg imja: String; v: Real; torped: Byte; end; const Lodka: array of podlodka = ((imja:’ Щука ‘; v: 14; torped: 16), (imja:’ Дельфин ‘; v: 14; torped:...	Turbo Pascal Оператор варианта CASE: 1. По номеру этажа и кабинета выдать наименование изучаемого предмета в данном кабинете 1. По номеру этажа и кабинета выдать наименование изучаемого предмета в данном кабинете (1 1 – физика, 2 1- труды). 1 этаж 1 – физика 2 – медкабинет 3 – директор 4 – башкирский 2 этаж 1 – математика 2 – завучи 3 – информатика https://www.cyberforum.ru/ turbo-pascal/ thread2398346.html
Turbo Pascal Код не работает после переноса в процедуру https://www.cyberforum.ru/ turbo-pascal/ thread2397877.html Всем доброго времени! Подскажите пожалуйста. Есть такой вот код: k:=1; for i:=1 to 15 do Begin flag:=true; for j:=1 to 15 do if a=b then begin flag:=false; break; end; if flag then	Реализация встроенных функций Turbo Pascal Кто может в виде паскаль кода расписать реалзацию такихвстроенных функций (корень, синус, косинус, арктангенс, натуральный логарифм)?
Turbo Pascal Составить блок схему алгоритма и программу для вычисления функции по формуле https://www.cyberforum.ru/ turbo-pascal/ thread2397627.html Составить блок схему алгоритма и программу для вычисления функции по формуле, для произвольных исходных данных, с двойной точностью:	Turbo Pascal Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке https://www.cyberforum.ru/ turbo-pascal/ thread2397563.html Напишите программу, подсчитывающую количество вхождений заданной вами буквы в введенной строке.
Turbo Pascal Массив: Определить, можно ли выбрать из каждой из заданных матриц по строке с равными множествами элементов... Разработайте алгоритм и составьте программы для решения задачи соответствующего варианта для четырех случаев, матрицы следует разместить в "куче" при выполнении следующих условий: а) число строк и число столбцов  константы; б) число строк  константа, а число столбцов  исходное данное; c) число строк  исходное данное, число столбцов  константа; д) число строк...	Turbo Pascal Написать программу обработки числа по заданному условию https://www.cyberforum.ru/ turbo-pascal/ thread2397231.html С клавиатуры вводится число не более 9 знаков. Если это число меньше 4 знаков или больше 7 - выводится надпись: "error", и программа повторяется. Если же количество знаков входит в диапазон - появляется надпись:"Сведения приняты", и программа заканчивает работу.

bormant

Модератор

7769 / 4598 / 2823

Регистрация: 22.11.2013

Сообщений: 13,077

Записей в блоге: 1

07.02.2019, 16:23

Вывод текста по TRUE/FALSE - Turbo Pascal - Ответ 13305978

07.02.2019, 16:23. Показов 3571. Ответов 7

Метки (Все метки)

Ответ

Когда ктото делает так

Pascal

1 2	k:=True if условие then k:=False;

или наоборот, то где-то умирает маленький пушистый котенок.
Пожалейте котят.

Pascal

function is_triangle(a, b, c: Real): Boolean;
begin
 is_triangle:=(a<b+c) and (b<a+b) and (c<a+b);
end;
 
function is_isosceles(a, b, c: Real): Boolean;
begin
  is_isosceles:=(a=b) or (b=c) or (a=c);
end;
 
function is_equilateral(a, b, c: Real): Boolean;;
begin
  is_equilateral:=(a=b) and (b=c);
end;
 
function is_right(a, b, c: Real): Boolean;
begin
  a:=a*a;
  b:=b*b;
  c:=c*c;
  is_right:=(c=a+b) or (a=b+c) or (b=a+c); { = -- очень плохая идея }
end;

Добавлено через 50 секунд
Сравнивать вычисленные действительные на равенство — идея так себе...

Вернуться к обсуждению:
Вывод текста по TRUE/FALSE Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.02.2019, 16:23

Готовые ответы и решения:

true/false
Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски. Если конь за один ход...

true and false
pomogite napisat' programmu функция возвращает true, если натуральное n равно сумме своих...

Задание на true,false
1.Вычислить значение выражения при p=q=true: (p<true)=(q=false). 2.Записать на Паскале отношение,...

Вычислить выражение: (p<false) = (q=true)
Вычислить выражение: (p<false) = (q=true) при p=q=false

	07.02.2019, 16:23

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.02.2019, 16:23

Помогаю со студенческими работами здесь

Вычислить выражение: not(a or b) при a=true и b=false
Вычислить выражение: not(a or b) при a=true и b=false

Вычислить значение выражения при a=true, b=false
a OR b AND NOT a

Определить значение логического выражения при a=true і b=false:
(not a and not b) and not b or a Подскажите мне ! Shelcok, на будущее - официальный язык форума...

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

Наверх