|
|
| Другие темы раздела | |
| Turbo Pascal Вывести повторяющиеся элементы последовательности нужно выполнить первое и второе задание, желательно "по проще" ,чтобы можно было объяснить учителю. https://www.cyberforum.ru/ turbo-pascal/ thread1367018.html |
Доделать змейку Turbo Pascal Помогите доделать змейку! program SNAKE; Uses CRT; Label R1,R2,R3,R4,R5; var xp,yp,xg,yg,xh,yh,xs,ys:integer; i,j:integer; ch:char; w,a,s,d:integer; |
| Turbo Pascal Перевод числа n в двоичную и Фибоначчи Пожалуйста, Перевести число N от 0 до 13 в двоичную систему счисления Перевести число N от 0 до 13 в систему счисления Фибоначчи https://www.cyberforum.ru/ turbo-pascal/ thread1366832.html |
Turbo Pascal С начала суток прошло А секунд. Определить время и записать в формате hh:mm:ss
https://www.cyberforum.ru/ turbo-pascal/ thread1366659.html с начала суток прошло А секунд. Определить время и записать в формате: hh:mm:ss. К количеству часов,минут и секунд прибавляются нули,если значения - одноцифровые |
|
Turbo Pascal Как отсортировать массив по полю и вывести в таблицу? uses crt; const pol:array of string=('не женат(не замужем)','женат(замужем)'); pol1:array of string=('муж' ,'жен'); max=100; type sob=record fio:string; mes:integer; den:integer; god:integer; polog:string; |
Turbo Pascal Определить и напечатать целое число, которое является следующим после заданного Написать процедуру,которая определяет и печатает целое число,которое есть следующим по заданному. Составить программу выведения следующего целого по заданному числу. Пользоваться условным оператором не разрешается. https://www.cyberforum.ru/ turbo-pascal/ thread1366534.html |
| Turbo Pascal Определить стоимость покупки по цене и количеству продукта определить стоимость покупки. один диск стоит а руб. b коп. Определите,сколько стоит n дисков. Сначала выводится цена одного диска,потом - количество дисков. https://www.cyberforum.ru/ turbo-pascal/ thread1366530.html |
Создание собственного модуля Turbo Pascal Создать свой собственный модуль ( использовать 3-5 процедур и функций ). Также привести пример программы, использующей собственный модуль программиста. Для размещения в модуль необходимо использовать подпрограммы, которые вы разрабатывали ранее в лабораторных работах №10,11,13,14) Вот те лабы №10 {10 работа 12 вариант Вычислить z-сумму значений функций z = f ( x1/2 , y ) + f ( a , b )... |
|
Turbo Pascal Как сделать меню с управлением стрелками?
https://www.cyberforum.ru/ turbo-pascal/ thread1366459.html Как сделать меню с управлением стрелками? подскажите плиз. |
Turbo Pascal Дан текстовый файл с программой. Исключить комментарии в тексте
https://www.cyberforum.ru/ turbo-pascal/ thread1366393.html 3.4. Порядок выполнения работы 3.4.1. Выбрать способ представления исходных данных задачи и резуль- татов. 3.4.2. Разработать алгоритм решения задачи, разбив его при необходимо- сти на отдельные процедуры или функции. 3.4.3. Разработать программу на языке Pascal. 3.4.4. Разработать тестовые примеры, следуя указаниям, изложенным в разделе 3.2. 3.4.5. Выполнить отладку программы 3.4.6.... |
|
Turbo Pascal Написать функцию, которая определяет, делится ли число N на M нацело Написать функцию,которая определяет делится ли число N на M нацело. Составить программу,которая при введении числа N и M выводит 1, если число N делится нацело на M и любое другое,если нет |
Turbo Pascal Записать число римскими цифрами
https://www.cyberforum.ru/ turbo-pascal/ thread1366253.html я нифига не знаю про паскаль но прошу помогите нужно сделать из десятичных цифрах римские с помощью команды "case" вот пример ток это из рим... в цифрах Program P53; var i: integer; c : char; begin i:=0; writeln('introduceti una din cifrele'); writeln('romane I, V, ,X ,L, C, D, M'); readln(c); |
|
204 / 141 / 57
Регистрация: 25.12.2014
Сообщений: 445
|
|
| 02.02.2015, 20:51 | 0 |
Если искомых букв несколько, то программа должна выводить на экран первую из них по алфавиту - Turbo Pascal - Ответ 717948102.02.2015, 20:51. Показов 1510. Ответов 1
Метки (Все метки)
Ответ
Общие идеи:
Заводим массив счетчиков типа array ['A'..'Z'] of Integer, его обнуляем. Читаем в цикле символы из файла (или перебираем в цикле строку), пока не встретится точка. В этом цикле увеличиваем соответствующий элемент. Потом цикл по массиву, где ищем максимум, одновременно запоминая и букву ему соответствующую. Вернуться к обсуждению: Если искомых букв несколько, то программа должна выводить на экран первую из них по алфавиту Turbo Pascal
0
|
|
|
|
| 02.02.2015, 20:51 | |
|
Готовые ответы и решения:
1
Включить в программу функцию, определяющую самую часто встречающуюся букву. Если таких букв несколько, взять первую по алфавиту Программа должна выводить на DataGrid несколько значений, но выдает ошибку Программа должна выводить на экран информацию о делах, запланированных на заданный день Функция должна выводить несколько значений, но выводить только одно. Почему? |
| 02.02.2015, 20:51 | |
|
Помогаю со студенческими работами здесь
0
Программа должна считывать английский текст и выводить на экран слова, которые начинаются на гласные буквы Программа должна считать количество символов до первого восклицательного знака, если знак отсутствует выводить соответствующее сообщение. Программа должна запросить 3 натуральных числа - знаменатели трех дробей, вычислять и выводить на экран наименьший общий знаменатель.
|
