Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Найти сумму элементов матрицы, лежащих выше главной диагонали Задать и распечатать массив 10×10,состоящий из целых случайных чисел в интервале . Найти сумму элементов,лежащих выше главной диагонали. https://www.cyberforum.ru/ free-pascal/ thread1671006.html Free Pascal Решение ребуса: "4 * Дома = Район"
Помогите пожалуйста с решением ребуса. ДОМА +ДОМА +ДОМА +ДОМА _______ РАЙОН В интернете нашла но код не тот.нужно написать ,как пример со(шлак*3=блок)
Free Pascal Закрасить треугольники елки https://www.cyberforum.ru/ free-pascal/ thread1670075.html
Помогите закрасить треугольники program elka; uses graph, crt; var g,h,x,y: integer; begin readln(x,y); g := detect;
Free Pascal Проверка матрицы на вырожденность https://www.cyberforum.ru/ free-pascal/ thread1669735.html
Написал программу для нахождения обратной матрицы. Если обратная матрица существует, то программа работает правильно, если нет(т.е. матрица вырожденная) то либо выкидывает с ошибкой 207, либо вычисляется обратная матрица с нереально большими числами. Так вот, хотел бы узнать, есть ли способ задать какое-нибудь условие вырожденности матрицы, и тогда в случае его истинности прекратить дальнейшие...
Вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получить случайным образом Free Pascal
Ввести массив из n чисел. Далее требуется: вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получить случайным образом; окончание работы программы при нажатии на клавишу «R»;
Free Pascal Бином Ньютона - Определить член, не содержащий х https://www.cyberforum.ru/ free-pascal/ thread1669067.html
Всем привет, наш преподаватель дала нам контрольную по биному,5/8 задач решил, остальные 3 честно говоря без понятия, помогите пожалуйста очень нужно желательно подробнее 1)Сумма коэффициентов 2-ого и 3-го слагаемых разложения (((\sqrt{x^2}-\frac{1}{2*\sqrt{x}})^n равна 25,5, Определить член не содержащий х? 2)Найти х если третий член разложения (2\sqrt{2\wedge -1}+\frac{4}{\sqrt{4}})^6...
Free Pascal Изменить матрицы Нужно сделать на динамическом ладу. Даны 2 матрицы (2х2) А=1 1 1 1 В=2 2 2 2 надо получить на выходе А=1 1 1 1 В=1 1 1 1 помогите пожалуйста https://www.cyberforum.ru/ free-pascal/ thread1668894.html Бином Ньютона Free Pascal
Всем привет, наш преподаватель дала нам контрольную по биному,5/8 задач решил, остальные 3 честно говоря без понятия, помогите пожалуйста очень нужно желательно подробнее ;)
Free Pascal Разобрать метод Гаусса сегодня мучался весь день , пытаясь реализовать метод Гаусса на Паскале(получилось очень коряво и не всё равно не правильно работает) после чего нашёл такое изящное решение, только я не понимаю почему сначала идёт сначала for j и и почему a меняет на a uses crt; const e = 0.000001; var a,a1: array of real; https://www.cyberforum.ru/ free-pascal/ thread1668574.html Free Pascal Массив: Создание матриц, чтобы на каждой позиции стояла разность индексов i и j Здравствуйте добрые люди, или не добрые... (это как получится) Не могли бы вы услужить, и сделать две программы, а то тяжело немного.(просто только начал изучать free pascal) Создать матрицу a :array of integer, заполнить ее так, чтобы на каждой позиции стояла сумма индексов i и j (т.е. a = i + j), вывести ее на экран красиво. Создать матрицу a :array of integer (тут M и N задаются в разделе... https://www.cyberforum.ru/ free-pascal/ thread1668544.html
Программа наподобие антивируса Free Pascal
Нужно создать программу наподобие антивируса. Из файла tracert.exe в папке windows нужно взять сигнатуру (не менее 16 знаков (цифр)),ее нужно вписать в программу как константу.Далее эту сигнатуру программа должна проверять в каждом файле,который там есть. Если она будет такая же,программа должна выдать этот файл и путь к нему. Когда программа закончит все эти файлы проверять,то она должна...
Free Pascal Объединение двух линейных списков Есть два списка: list1 и list2. Нужна программа, которая объединит их(второй добавит в "хвост" первого). https://www.cyberforum.ru/ free-pascal/ thread1667340.html
256 / 142 / 85
Регистрация: 13.10.2011
Сообщений: 454
26.02.2016, 10:26 0

Подсчитать в строковой матрице количество слов, длина которых превышает 5 символов - Free Pascal - Ответ 8803641

26.02.2016, 10:26. Показов 1888. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses crt;
Const m=3;n=3;
Var i,j,k:integer; a:array[1..n,1..m]of string;
Begin
 clrscr;
 randomize;
 for i:=1 to n do
  for j:=1 to m do
   begin
    writeln('Vvedite a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 for i:=1 to n do
  begin
   for j:=1 to m do write(a[i,j],' ');
   writeln;
  end;
 k:=0;
 for i:=1 to n do
  for j:=1 to m do
   if length(a[i,j])>5 then inc(k);
 write('Slov bolshe 5 simvolov=',k);
End.


Вернуться к обсуждению:
Подсчитать в строковой матрице количество слов, длина которых превышает 5 символов Free Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2016, 10:26
Готовые ответы и решения:

В строке символов определить количество слов, у которых длина больше указанной пользователем
В строке символов определить количество слов, у которых длина больше указанной пользователем....

Определить количество слов в тексте и вывести только те слова, количество символов в которых нечетное
Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Определить количество слов и...

Подсчитать количество слов, в которых предпоследняя буква - заданная
В текстовом файле book.txt посчитать количество слов,в которых предпоследняя буква - заданная.Все...

Удалить слова из данного файла, длина которых превышает данное число n
Помогите пожалуйста написать программу на паскале. Дан текстовый файл.Удалить слова из данного...

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

В заданном тексте подсчитать количество слов, длина которых не превышает пяти символов
Здравствуйте. Помогите с кодом: в заданном тексте подсчитать кол-во слов, длина которых не...

Подсчитать количество слов, длина которых не превышает заданного числа
Дана строка символов. Группы символов, разделенные пробелами (одним или несколькими) и не...

Подсчитать количество слов, длина которых не превышает заданного числа
Дана строка символов. Группы символов, разделенные пробелами (одним или несколькими) и не...

Строка: Подсчитать количество слов в текстовом файле, длина которых не превышает числа 3...
Помогите пожалуйста. Составить программу, которая подсчитывает количество слов в текстовом файле...

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