Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычисление среднего арифметического чисел от 1 до даного числа Нужно составить модуль в Паскале. Заранее спасибо! Задание: Составить программу, где вводится целое число и вызываются три процедуры: 1) вычисление среднего арифметического чисел от 1 до даного числа; 2) вычисление количества только чётных чисел; 3) вычисление произведения нечётных чисел; https://www.cyberforum.ru/ turbo-pascal/ thread1165310.html В процедуре посчитать сколько элементов равняются минимуму по абсолютной величине. Не считает... Turbo Pascal
Дан массив двумерный. В процедуре посчитать сколько элементов равняются минимуму по абсолютной величине.Вроде все так а к не считает, Может что с параметрами? program funkcii; uses crt; type mat=array of integer; var m: mat; n,k,l,min:integer; procedure input_mat(var m:mat; var n: integer); var a,b,p1,p2,i,j:integer;
Turbo Pascal Сортировка списка по алфавиту Доброго времени суток! Составить программу сортировки списка учащихся по алфавиту, список может быть отдельным файлом, а может быть введён с клавиатуры при запуске программы или быть строковыми переменными присвоенными в теле программы. Заранее благодарен!) https://www.cyberforum.ru/ turbo-pascal/ thread1165284.html Turbo Pascal В файле найти слово, содержащее наибольшее количество заданной буквы https://www.cyberforum.ru/ turbo-pascal/ thread1165231.html
здравствуйте!):)помогите пожалуйста Дан файл, содержащий текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв.
Turbo Pascal Найти минимальное значение по абсолютной величине
Задача. Дан двумерный массив m. Найти минимальный элемент по абсолютной величине и его индексы.Помогите С вводом и выводом массива проблем нет, а вот с условием беда
Turbo Pascal Отсортировать массив и вывести на экран сначала положительные потом отрицательные элементы https://www.cyberforum.ru/ turbo-pascal/ thread1165179.html
В массиве из n чисел (n:real) отсортировать и вывести на экран сначала положительные потом отрицательные а затем нули не нарушая их порядок появления в массиве. Пример: Ввод: 0 6 5 4 -2 -3 6 -1 0 Вывод: Положительные: 6 5 4 6 Отрицательные: -2 -3 -1 Нули:
Turbo Pascal Перед каждой строкой текстового файла вставить номер строки и количество символов в этой строке https://www.cyberforum.ru/ turbo-pascal/ thread1165149.html
Перед каждой строкой текстового файла вставить номер строки и количество символов в этой строке
Процедура удаления в двунаправленном списке Turbo Pascal
Здраствуйте, помогите дописать плиз 1 процедурку к программе. Нужно в двунаправленном списке сделать удаление по фамилии: вот мой код: uses crt; type prizv=string; nomer=integer; List=^TList; TList=record
Turbo Pascal Определить с помощью функции для каждого массива номер наибольшего по абсолютной величине элемента https://www.cyberforum.ru/ turbo-pascal/ thread1165089.html
Определить с помощью FUCTION для каждого массива номер наибольшего по абсолютной величине элемента. Первый массив B(22) второй массив D(33) P.S. нужна полностью вся программа от а до я.
Turbo Pascal Изобразить на экране ЭВМ следующий рисунок: цветок в горшке https://www.cyberforum.ru/ turbo-pascal/ thread1165081.html
Здравствуйте! Помогите пожалуйста сделать рисунок на паскаль:)
Turbo Pascal Переписать текст из файла input.dat в файл output.dat, заменив регистр букв в словах, где 2 и более одинаковые гласные
Задание: Файл input.dat содержит несколько строк текста.Слова в тексте могут разделяться пробелами и знаками препинания . Переписать текст в файл output.dat ,заменив регистр букв в каждом слове,содержащем две и более одинаковые гласные буквы. программа должна состоять из процедур и функций и включать множества Буду очень благодарна!Очень нужна помощь! Заранее спасибо!
Turbo Pascal Использование библиотек DLL. Borland Pascal https://www.cyberforum.ru/ turbo-pascal/ thread1164891.html
Для всех вариантов: - Ввести два целых числа a и b. - Произвести вычисления в подпрограммах. Оформить подпрограммы в библиотеке DLL. 1) функция - результат Х (целое число) передать в вызывающую программу в качестве возвращаемого значения. Использовать статический вызов. 2) процедура - результат Х (целое число) передать в вызывающую программу в виде параметра-переменной. Использовать...
12 / 12 / 12
Регистрация: 13.11.2013
Сообщений: 24
03.05.2014, 22:19 0

Вывести третий символ слова и вывести дважды следующий после него - Turbo Pascal - Ответ 6122424

03.05.2014, 22:19. Показов 2661. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Anna98 как решение

Решение

Pascal
1
2
3
4
5
6
var s:string;
begin
  write('Введите слово: ');
  readln(s);
  writeln(s[3],' ',s[4],' ',s[4])
end.


Вернуться к обсуждению:
Вывести третий символ слова и вывести дважды следующий после него Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2014, 22:19
Готовые ответы и решения:

Вывести на экран третий символ и дважды последний символ слова
дано слово.вывести на экран его третий символ и дважды его последний символ

Определить слова, в которых заданный символ встречается дважды и вывести его в консоль
Не пойму как сделать прогу на Ассемблере Задание такое. Определить слова, в которых заданный...

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

Таблица ASCII: Дан символ. Вывести предшествующий и следующий символы
1. Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а...

2
03.05.2014, 22:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2014, 22:19
Помогаю со студенческими работами здесь

Как вывести на экран третий символ строки?
Как вывести на экран третий символ строки?

Вывести слова текста, которые отличны от первого слова и первая буква слова входит в него ещё раз
Дан текст, содержащий от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между...

Дано слово. Вывести на экран его третий символ
Дано слово.Вывести на экран его третий символ.

Вывести на экран те слова, которые отличны от последнего слова текста и первая буква этого слова входит в него еще раз
Помогите, пожалуйста, с заданием. Что-то туговато у меня идет работа со строками. Более менее я...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru