Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal В заданной матрице А[ 1:N, 1:M ] поменять местами следующие два элемента В заданной матрице А поменять местами следующие два элемента:минимальный по абсолютной величине и последний четный https://www.cyberforum.ru/ pascal/ thread279688.html	Pascal Выкинуть отриц. элементы массива Здравствуйте,надеюсь я здесь найду помощь) проблема заключается в том что надо написать программу: "выкинуть все отрицательные элемента массива" ну и идеи не рождаются никак( заранее спасибо))
Pascal КОльца помогите написать прогу тема КОЛЬЦА: 8) Дан целочисленный файл f, содержащий равное число положительных и отрицательных чисел и не содержащий нулей. Составить из файла f список так, чтобы шли два положительных, два отрицательных, два положительных числа и т.д. спасибо за ранее)) https://www.cyberforum.ru/ pascal/ thread279676.html	Pascal Есть текстовый файл с вопросами и ответами.Нужно выводить на экран 1вопрос и ответы на 1вопрос https://www.cyberforum.ru/ pascal/ thread279653.html Есть текстовый файл с вопросами и ответами.Нужно выводить на экран 1вопрос и ответы на 1вопрос.После того как юзер ответил на 1 вопрос выводиться 2вопрос и варианты ответов и т.д. 1.Алгоритм — это: а)правила выполнения определенных действий; б)ориентированный граф, указывающий порядок исполнения некоторого набора команд; в)понятное и точное предписание исполнителю совершить последовательность...
Pascal Маленькая графическая программа на Паскале Всем привет, очень нужна помощь с небольшой графической программой. Суть её в том, что она выводит один символ, который можно двигать стрелками, а при нажатии Esc появляется второй символ и когда второй символ двигаем к первому, то первый исчезает. Нужно изменить программу так, чтобы когда второй символ приближался к первому, то он бы перепрыгивал первый символ. Ниже код программы. Заранее...	Pascal Программа,для нахождения числа е Составить программу нахождения числа е с точностью ε, используя разложение в ряд по следующей формуле е^х=1+х\1!+х^2\2!+...+х^n\n!+... . Сравнить з результатом, полученным с помощью стандартной функции exp. https://www.cyberforum.ru/ pascal/ thread279618.html
Pascal ни знаю как дальше Вычислить y=cos x + cos x(в степени)2 + cos x(в Степени)3 + … +cos x(в степени )n: застрял, ни знаю как дальше решить Продолжите: program Vuchisliti; uses crt; var x,n,i:integer; y:real; begin clrscr; writeln('Vvedite chislo'); https://www.cyberforum.ru/ pascal/ thread279606.html	Pascal Найти произведение ненулевых элементов каждой матрицы. Найти произведение ненулевых элементов каждой матрицы. Результат записать в файл a4?
Pascal Преобразованные матрицы записать в те же файлы? https://www.cyberforum.ru/ pascal/ thread279559.html 2 столбец матрицы y, 1 столбец матрицы z и 4 столбец матрицы x умножить на p, где p=min (суммы x; суммы y; суммы z). Преобразованные матрицы записать в те же файлы?	Pascal результаты матрицы x и q записать в файл d3 https://www.cyberforum.ru/ pascal/ thread279547.html Помогите написать курсовую. Найти произведение x=y(4,2)z(2,4) и q=z(2,4)x(4,4) и результаты матрицы x и q записать в файл d3. Матрица Y вводится из файла d1. Матрица z вводится из файла d2?
Pascal Алгоритм на строки Доброго времени суток. Прошу помочь найти ошибку в программе, решающей следующую задачу: «Есть некая камера, снимающая въезд на мост. Периодически в поле зрения камеры проезжают машины, у которых камера записывает номер и время, в которое машина проехала. Будем считать, что если номер машины встречается в базе данных нечетный раз, то машина въехала на мост, а если четный, то машина вернулась...	Pascal Пусть дано n вещественных чисел, которые вводятся по одному. Найти сумму чисел, меньших по абсолютному значению квадрата порядкового номера вводим Пусть дано n вещественных чисел, которые вводятся по одному. Найти сумму чисел, меньших по абсолютному значению квадрата порядкового номера вводимого числа. (Операторы цикла) https://www.cyberforum.ru/ pascal/ thread279492.html

3646 / 1378 / 243

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

Сообщений: 4,526

19.04.2011, 22:05

Ввести фамилию, имя и отчество в одну строковую переменную - Pascal - Ответ 1568705

19.04.2011, 22:05. Показов 3647. Ответов 1

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

Сообщение было отмечено wizard 007 как решение

Решение

Pascal

write ('Dlina = ', length (str));
write ('samoye dlinnoye slovo : '); i:=1; m1:=0; m2:=0;m3:=0;
while str[i]<>' ' Do {i,m1,m2,m3,i1,i2,i3 :integerr} begin
Inc i; Inc (m1);    end; Inc (i); i2:=i;
 
while str[i]<>' ' Do  begin
Inc i; Inc (m2);    end; Inc (i); 
i3:=i;
while str[i]<>' ' Do  begin 
 
Inc i; Inc (m3);    end;
i1:=1;
if m1<m2 then begin if m2>m3 then wrire (copy(str,i2,m2))
                                           else  write (copy(str,i3,m3));
                    end
               else if m1>m3 then write (copy (str,i1,m1))
                                  else  write (copy(str,i3,m3));

Вернуться к обсуждению:
Ввести фамилию, имя и отчество в одну строковую переменную Pascal

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

19.04.2011, 22:05

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

Строки: ввести фамилию, имя и отчество, вывести имя в столбик
Ввести фамилию, имя и отчество как одно данное строкового типа. Вывести имя в столбик.

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

Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы
Пример: Введите фамилию, имя и отчество: Иванов Петр Семёнович П.С. Иванов

В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы
В одной строке ввести фамилию, имя, отчество. Вывести на экран фамилию и инициалы. Пояснения: ...

	19.04.2011, 22:05

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

19.04.2011, 22:05

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

Ввести фамилию, имя, отчество, возраст жителя Среднего Урала
Ввести фамилию, имя, отчество, возраст жителя Среднего Урала. а)Вывести инициалы и пол человека...

Ввести фамилию, имя и отчество как одно данное строкового типа
Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и...

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и 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 открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх