Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal В правильном треугольнике проведена средняя линия. Найти площадь образовавшейся трапеции В общем само задание: Задание 1. Составить программу для решения задачи с применением функции и процедуры пользователя. В правильном треугольнике проведена средняя линия. Найти площадь образовавшейся трапеции, дважды используя функцию вычисления площади правильного треугольника по формуле: s=\frac{a^2\sqrt{3}}{4} В общем сделал я вот так: program Lab4ex1; https://www.cyberforum.ru/ pascal/ thread1323238.html	Pascal Список и вывод информации Имеем текстовый документ с определенным количеством студентов и 4 оценки по разным предметам. На выходе должны быть указаны отличники по всем предметам. В конце сделать подсчет полных отличников. Пример: A B C 5 5 5 5 17/7/1991 B A C 4 4 5 4 10/5/1990 C B A 3 4 5 4 12/12/1992 C A B 5 5 5 5 13/3/1991 1ый предмет: A B C 17/7/1991
Pascal Графика, буквы 2D И 3D https://www.cyberforum.ru/ pascal/ thread1322999.html За данным примером реализовать букву 'Л' в 2D и 3D. Пример с буквой 'Ш': uses graphabc; procedure p2d; begin setbrushcolor(clperu); fillrect(120,300,500,350);//shpala fillrect(120,350,170,100);//\\1 stovp fillrect(285,350,335,100);//\\2stovp90 fillrect(450,350,500,100);//3stovp end;	Pascal Изменить текст входящего текстового файла так, чтобы в исходящем файле не оставалось пустых строк написать программу которая превращает текст входящего текстового файла так, чтобы в исходящем файле не оставалось пустых строк. https://www.cyberforum.ru/ pascal/ thread1322948.html
Pascal Устранить из последовательности символов все группы трех смежных букв "АВС" Устранить из последовательности S1. . . Sn все группы трех смежных букв АВС . Добавлено через 30 минут я нашёл решение, как тему удалить?	Pascal Провести частотный анализ текста: посчитать, сколько различных символов встречается в данном тексте https://www.cyberforum.ru/ pascal/ thread1322887.html 4.19. Файл содержит информацию в виде символьных строк произвольной длины. Провести частотный анализ текста: посчитать, сколько различных символов встречается в данном тексте. В новый файл записать информацию в виде гистограммы: символ + количество , равное числу этих символов в тексте. Пример: А ******************* (символ ‘А’ встречается в тексте 22 раза) В ********** (символ ‘В’...
Pascal Типизированный файл состоящий из множеств. Процедура ввода https://www.cyberforum.ru/ pascal/ thread1322829.html Написал процедуру ввода но она не обнуляет заносимое множество в файл. Всего в файл заносится 5 множеств по 3 элемента в каждом. Так вот если я ввожу 123 в первое, 456 во второе, то выдает он: 123 123456 Обнуление я воткнул, но все равно не пашет. У меня уже ночь, а это 12-я программа за день и я уже не соображаю, ребят, помогите. Что не так? Прикладываю еще и процедуру вывода, для...	Pascal Добавить к последовательности наименьшее число символов так, чтобы последовательность стала палиндромом Даны натуральное число N и символы S,...,S.Преобразовать последовательность S,...,S, добавив к ней наименьшее число символов S,...,S так, чтобы последовательность S,...,S стала палиндромом: S=S,S=S и т.д.
Pascal Построение траектории https://www.cyberforum.ru/ pascal/ thread1322807.html Составте программу для ввода координат движущейся точки и построения траектории движения	Pascal удалить все четырехбуквенные слова в каждой строке текстового файла Выполнить обработку текста из внешнего текстового файла, созданного в редакторе: удалить в каждой строке все четырехбуквенные слова. Результаты обработки поместить во внешний файл. Есть предположение по поводу алгоритма: считаем символы до очередного пробела, и если их количество = 4 , то удаляем предыдущие 4 символа как это реализовать в коде? вот результат моих мучений.... https://www.cyberforum.ru/ pascal/ thread1322750.html
Pascal Исправить ошибку в коде var s,n,i:integer; a:array of integer; begin s:=0; readln(n); for i:=1 to n do readln(a); while (a<>0) do begin if (a>0) and (amod 2=0)then S:=s+a;	Pascal Вывести математическую команду, присвоив значения цифр Нужно вывести команду, например s*5, но чтобы за место такой команды в выводе показывало цифру "1". Присваивать команде значение единицы не получается, пишет ошибку принадлежности типов. https://www.cyberforum.ru/ pascal/ thread1322740.html

Sharkness

Задание по теме "строки" - Pascal - Ответ 6957696

08.12.2014, 14:23. Показов 454. Ответов 1

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

Author24 — интернет-сервис помощи студентам

С клавиатуры ввести символы. Посчитать кол-во символов >k; <k; =k. Результат выдать на экране.

Pascal

const k=6;
var
  St:string;
Begin
  Readln(St);
  If Length(St)<k then Writeln(' символов меньше ' ,k)
  else
     If Lenght(St)>k then Writeln( ' символов больше ' ,k)
     else Writeln( ' символов ровно ' ,k)
end.

Преподаватель перечеркнул всё после Begin (4 строчка) и написал Writeln(' Введите строку ');
Напишите пожалуйста правильно.

Вернуться к обсуждению:
Задание по теме "строки" Pascal

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

08.12.2014, 14:23

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

Задание по теме записи
Сформировать файл, содержащий расписание вылета самолетов. Указывается номер рейса, пункт...

Задание по теме «Подпрограммы»
Написать программу, которая проверяет гипотезу Гольдбаха для заданного нечетного значения. Гипотеза...

Задание по теме «Операторы цикла"
Написать программу, которая по заданному натуральному значению n и действительному a вычисляет...

Задание по теме «Ветвящиеся алгоритмы (условный оператор)»
№1.Написать программу, которая определяет делителем каких чисел (среди трех введенных) является...

Задание по теме Рекурсия
function B(y:integer):integer; forward; function A(x:integer):integer; begin if x>0 then...

	08.12.2014, 14:23

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

08.12.2014, 14:23

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

Задание по теме целочисленного типа данных
Имеется оператор v := shortint.MaxValue. Какой тип и значение получит переменная v, если к ее...

Решить задание по теме классы (подробности в теме)
class A { int f(int a) { /*.....*/ } } class B extends A { int f(int a) { ...

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

Задание по теме - Подпрограммы
Написать программу, которая формирует новый массив, элементами которого являются...

Задание по теме “Файлы”
Задание по теме “Файлы” Написать программу, которая ищет в файле слово, введенное с клавиатуры и...

Задание по теме файлы
Создать текстовый файл,в котором записать не менее 20 целых чисел в диапазоне от -7 до 7. Вывести...

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

Наверх