Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Ошибка: разная размерность (ожидалось 1 элемент) https://www.cyberforum.ru/ turbo-pascal/ thread1163027.html в 4 строчке пишет ошибку: разная размерность (ожидалось 1 элемент). Как исправить? program lab9; type BigTable=arrayof real; const T:BigTable=(((6,3,4,6),(600,46,62,93),(800,93,123,185),(1000,160,213,319), (1200,0,314,471),(1400,0,0,659))); Ki=1; Kd=5; KL=3; var F0,F,F1,ndF,pdF:real;	Сравнить первый элемент линейного списка L1 со всеми элементами линейного списка L2 Turbo Pascal Как сравнить первый элемент линейного списка L1 со всеми элементами линейного списка L2
Turbo Pascal Как сделать так, чтобы проверялось совпадения курсором с координатами? https://www.cyberforum.ru/ turbo-pascal/ thread1162881.html Здравствуйте! Помогите пожалуйста сделать так, чтобы комп проверял совпадение координат мыши(они в формате WORD) с координатами переменных X1 и Y1? Добавлено через 8 минут X1 и Y1 - interger	Turbo Pascal Поиск предпоследнего нечетного числа в последовательности https://www.cyberforum.ru/ turbo-pascal/ thread1162859.html Нужно написать программу, которая ищет предпоследнее нечетное число в последовательности. Числа вводятся до тех пор пока, одно из них не окажется равно нулю. Спасибо
Дана квадратная матрица. Найти максимальный элемент матрицы Turbo Pascal Условие: Дана квадратная матрица. Найти максимальный элемент матрицы. (оформить через процедуру/функции.) Без Процедуры/функций сделал, помогите перевести. program ps2; uses crt; const n=5; Var i,j,max:integer; A:array of integer; Begin	Turbo Pascal Сформировать квадратную матрицу порядка n ( где n четное число) по заданному образцу: 1 1 1 .. 1 1 1 0 1 1 .. 1 1 0 0 0 1 .. 1 0 0 ................. 0 1 1 .. 1 1 0 1 1 1 .. 1 1 1 https://www.cyberforum.ru/ turbo-pascal/ thread1162544.html
Turbo Pascal График функции 1 . Очистить экран монитора и при необходимости установить желаемый цвет фона. 2 . Выбрать размещения системы координат в соответствии с левым и правым интервалом и в соответствии с минимальным и максимальным значением функции , которые могут быть достигнуты на этом интервале. 3 . Построить горизонтальную и вертикальную координатные оси. 4 . Подписать названия координатных осей. 5 .... https://www.cyberforum.ru/ turbo-pascal/ thread1162526.html	Простые делители натурального числа Turbo Pascal найти все простые делители натурального числа N
Turbo Pascal Написать программу, которая по заданным трем числам определят, является ли сумма каких-нибудь двух из них положительной написать программу,которая по заданным трем числам определят, является ли сумма каких-нибудь двух из них положительной https://www.cyberforum.ru/ turbo-pascal/ thread1162438.html	Turbo Pascal Составить таблицу по вычислению зарплаты 10 сотрудникам со следующими полями https://www.cyberforum.ru/ turbo-pascal/ thread1162421.html 1.Составить таблицу по вычислению зарплаты 10 сотрудникам со следующими полями: Фамилия, профессия (итр, рабочий), количество отработанных дней за месяц ko, тариф оплаты за месяц t, зарплата(z=ko*t/kr), где kr –количество рабочих дней (в одной ячейке вне таблицы), налог (если Z больше 15000 то 13% от z, иначе 10% для итр и 10% для рабочих профессий), сумма на руки (z минус налог).
Вывести все кратные 7 в матрице 10 на 30 и одновременно непарные в 3 последних последних строчках Turbo Pascal Помогите пожалуста вывести все кратные 7 в матрице 10 на 30 и одновременно непарные в 3 последних последних строчках.зарание спасибо.	Turbo Pascal Сформировать квадратную матрицу по образцу https://www.cyberforum.ru/ turbo-pascal/ thread1162345.html сформировать квадратную матрицу порядка n ( где n четное число) по заданному образцу: 1 0 0 .. 0 0 1 1 1 0 .. 0 1 1 1 1 1 .. 1 1 1 ................. 1 1 0 .. 0 1 1 1 0 0 .. 0 0 1

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

Записей в блоге: 1

01.05.2014, 09:19

Вывести на экран слова, содержащие три буквы - Turbo Pascal - Ответ 6111543

01.05.2014, 09:19. Показов 1886. Ответов 4

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

Ответ

Pascal

Var s,sl:string;
    k,i:byte;
Begin
    write('Текст: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      k:=0;
      For i:=1 to Length(sl) do
       if sl[i] in ['a'..'z','A'..'Z','а'..'п','р'..'я','А'..'П','Р'..'Я','ё','Ё'] then inc(k);
      if k=3 then writeln(sl);
    End;
    readln;
End.

Вернуться к обсуждению:
Вывести на экран слова, содержащие три буквы Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

01.05.2014, 09:19

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

Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Вывести на экран слова, содержащие три буквы
всем привет, помогите решить: Дан текст. Вывести на экран слова, содержащие три буквы. ...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

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

	01.05.2014, 09:19

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

01.05.2014, 09:19

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

Вывести на экран слова из предложения, которые содержат ровно три буквы е
помогите пожалуйста написать программы: 1)Указать порядковые номера символов, составляющих слово...

Вывести слова, содержащие буквы «о» и «е»
Дан произвольный текст на русском языке. Написать программу, которая выводит слова, содержащие...

Вывести на экран слова,содержащие три буквы
1.дана символьная строка ,содержащая текст,заканчивающийся точкой. Вывести на экран...

Вывести на экран слова, содержащие три буквы
1. дана символьная строка ,содерщая текст, заканчиваюшияся точкой. Вывести на экран слова,...

Наверх