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", и программа повторяется. Если же количество знаков входит в диапазон - появляется надпись:"Сведения приняты", и программа заканчивает работу.

Constantin Cat

3406 / 1825 / 489

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

Сообщений: 3,696

07.02.2019, 11:38

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

07.02.2019, 11:38. Показов 3567. Ответов 7

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

Ответ

Pascal

if is_triangle(a,b,c):=true then write('Треугольник ') and
if is_isosceles(a,b,c):=true then write('Равнобедренный  ') and
if is_equilateral(a,b,c):=true then write('Равносторонний  ') and
if is_right(a,b,c):=true then write('Прямоугольный  ')

1) В условиях :=true истина проверяется сама, её не нужно проверять знаком равенства "=", и тем более присваиванием.
2) and, вместо точки с запятой - круто.

Pascal

 if is_triangle(a,b,c)then
   begin
     write('Треугольник  ');
     if is_isosceles(a,b,c) then
       if is_equilateral(a,b,c) then writeln('Равносторонний')
                                else writeln('Равнобедренный');
     if is_right(a,b,c) then writeln('Прямоугольный  ')
   end;

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

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.02.2019, 11:38

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

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, 11:38

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.02.2019, 11:38

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

Вычислить выражение: 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 в зависимости от того, имеют три заданных целых...

Наверх