Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 14.05.2020
Сообщений: 6

Дан текстовый файл, содержащий целые числа. Найти количество шестерок в каждой строке

15.05.2020, 17:50. Показов 815. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан текстовый файл, содержащий целые числа

1) Найти количество шестерок в каждой строке

2) Количество строк

3) Среднее количество шестерок
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.05.2020, 17:50
Ответы с готовыми решениями:

Задание по Pascal
Решение задачи по Pascal abc,запутался как делать строки и отступы.

Задание по Pascal
Японская радиокомпания провела опрос N радиослушателей по вопросу: «Какое животное вы связываете с Японией и японцами?». Составить...

Олимпиадная задание на Pascal
Добрый день! Помогите пожалуйста решить задачу: Имя входного файла: input.txt Имя выходного файла: output.txt Король Флатландии...

4
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
15.05.2020, 18:04
Цитата Сообщение от Freeman_666_ Посмотреть сообщение
1) Найти количество шестерок в каждой строке
Это про цифры или числа?
Цитата Сообщение от Freeman_666_ Посмотреть сообщение
3) Среднее количество шестерок
Здесь чего-то не хватает.

P.S. Правила говорят:
5.5 Запрещено размещать тему в нескольких подразделах одного раздела одновременно (кросспостинг), а также дублировать тему в одном разделе.
5.4 Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.

Работа с Pascal
Дан текстовый файл, содержащий целые числа. Найти количество шестерок в каждой строке
0
0 / 0 / 0
Регистрация: 14.05.2020
Сообщений: 6
15.05.2020, 18:08  [ТС]
там нигде о таком не сказано , это преподаватель свои задания сам составлял , всё что было я написал , а по поводу цифр или чисел , я думаю это про числа
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
15.05.2020, 18:16
Цитата Сообщение от Freeman_666_ Посмотреть сообщение
там нигде о таком не сказано
Где и о каком таком?

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var t := ReadAllLines(ReadLnString('имя файла'));
  var all := 0;
  'шестёрок по строкам:'.Print;
  foreach var line in t do
    all+=line.ToWords.Count(word->word='6').Print;
  println;
  $'всего строк {t.Count}'.Println;
  $'Среднее количество шестерок = {all/t.count}'.Println;
end.
1
 Аватар для Sun Serega
2355 / 1458 / 526
Регистрация: 07.04.2017
Сообщений: 4,798
15.05.2020, 19:19
Цитата Сообщение от JuriiMW Посмотреть сообщение
all+=
Вообще никто не запрещает использовать .Print внутри колбеков
Pascal
1
var all := t.Sum(line-> line.ToWords.Count(word-> word = '6' ).Print );
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.05.2020, 19:19
Помогаю со студенческими работами здесь

Дифференцированное задание по PASCAL
Ввести с клавиатуры целое число. • Если число находится в интервале от 100 до 110, то используя подпрограмму, в матрицах P(N,M), Q(N1,M1)...

Задание в Pascal ABC
Дана строка. Группы символов, разделённых пробелами (одним или несколькими) и не содержащим пробелов внутри себя будем называть словами....

Перенос задание из Pascal в Lazarus
Всем привет, перелопатил много тем на вашем форуме по поводу моего вопроса, не нашел подходящего решения, так что пришлось создать тему ...

Курсовая работа по pascal (1 задание)
программа должна выполнять сортировку данных смешанного типа следующей структуры: 1)номер школы 2)район расположения 3)количество...

Pascal ABC>Задание For4
http://i007.***********/1011/64/b038958f2fac.jpg


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru