Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти сумму элементов главной диагонали матрицы Дан двумерный массив n*m. Найти сумму элементов главной диагонали при n=m. https://www.cyberforum.ru/ pascalabc/ thread1743870.html Написать программу, которая находит максимальное значение и умножает его на минимальное значение Pascal ABC
Дан двумерный массив, размером n*m. Написать программу, которая находит максимальное значение и умножает его на минимальное значение.
Pascal ABC Составить программу, которая находит сумму четных элементов массива Дан двумерный массив от 1 до n. Составить программу ,которая находит сумму четных элементов массива. https://www.cyberforum.ru/ pascalabc/ thread1743868.html Pascal ABC Найти количество согласных букв предложения В входном файле записано предложение. Вывести в выходной файл построчно следующие результаты количество согласных букв, самое длинное слово, сумму нечетных цифр, сумму чисел, все слова палиндромы, напечатать все символы встречающиеся в тексте только один раз https://www.cyberforum.ru/ pascalabc/ thread1743830.html
Возведение числа в квадрат, передача параметра по значению и по ссылке Pascal ABC
Написать две функции возведения числа в квадрат. Использовать в первой функции передачу параметра по значению, во второй – по ссылке.
Pascal ABC Составить двусвязный список из слов некоторого предложения https://www.cyberforum.ru/ pascalabc/ thread1743701.html
2. Составить двусвязный список из слов некоторого предложения. Вставить новое слово перед каким-либо из элементов списка. Что останется от повторенного несколько раз удаления каждого второго элемента (какое последнее слово).
Pascal ABC Все четные числа заменить нулем 1.Дан односвязный список типа кольцо, элементами которого являются целые числа. Все четные числа заменить нулем. https://www.cyberforum.ru/ pascalabc/ thread1743700.html Pascal ABC Определить прирост суммы вклада в банке (циклы с пред- и пост-условием)
Гражданин 1 июля открыл счет в банке, вложив S руб. Через каждый месяц размер вклада увеличивается на N% от имеющейся суммы. Определить прирост суммы вклада за 1,2,...,10 месяц.
Pascal ABC Анимация: взлет ракеты \помогите пожалуйста нарисовать ракету с анимацией взлета https://www.cyberforum.ru/ pascalabc/ thread1743624.html Pascal ABC Вывести все простые числа, оканчивающиеся на 1 Создать файл из 250 целых чисел, лежащих на отрезке U, используя генератор случайных чисел. -Вывести все данные на экран. -Вывести все простые числа, оканчивающиеся на 1. -Найти числа, отличающиеся от среднего арифметического более чем на 100. Помогите пожалуйста. Надо сдать что бы был допуск к экзамену. https://www.cyberforum.ru/ pascalabc/ thread1743612.html
Pascal ABC Вывод данных файла на экран: Ошибка времени выполнения: Bad typed file size
23 421 12 421 12 124 43 65 765 532 432 вот дан в файле надо вывести на экран Var f:file of integer; n,i:integer; Begin Assign(f,'C:\PABCWork.NET\input.txt');Reset(f); for i:=1 to filesize(f) do begin read(f,n); writeln(n);
Pascal ABC Незвестное имя x. Что это значит https://www.cyberforum.ru/ pascalabc/ thread1743575.html
прошу помочь. не могу понять в чем проблема program zmeika; uses crt; type spoint=record x:integer; y:integer; end; {тип для точки} const
0 / 0 / 0
Регистрация: 23.02.2016
Сообщений: 3
0

Получить гистограмму длин строк файла - Pascal ABC - Ответ 9182475

24.05.2016, 14:22. Показов 975. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Заданный текстовый файл. Получить гистограмму длин строк этого файла.
вот что мне удалось написать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program fajly;
var f:text;
a:array[1..100] of string;
len:array[1..100] of integer;
max,i,n,m,j:integer;
begin
assign(f,'f.txt'); 
rewrite(f);    readln(n); close(f); reset(f);
   i:=0;
 while not eof(f) do 
    begin
    inc(i);
    readln(f,a[i]);
    end;
    close(f);
  n:=i;
  for I := 1 to n do
  len[i]:=length(a[i]);
      for I := 1 to n do
   begin
      for j := 1 to len[i] do write('#');
      writeln;
   end;
   readln;
end.
Добавлено через 43 секунды
Что здесь не так?

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

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

Найти сумму длин самой длинной и k-й от конца файла строк
Задание: Найти сумму длин самой длинной и k-й от конца файла строк. Моя программа: var s:...

Получить гистограмму (столбчатую диаграмму) длин всех слов файла
Добрый день,помогите пожалуйста доработать программу. Нужно получить гистограмму (столбчатую...

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

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

Сформировать гистограмму длин слов, хранящихся в текстовом файле
помогите с этим заданием !!!..... Сформировать гистограмму длин слов, хранящихся в текстовом...

Вывести вертикальную гистограмму длин слов введенного текста
Здравствуйте, дали задачу "вывести вертикальную гистограмму длин слов введенного текста". не особо...

Вывести вертикальную гистограмму длин слов введенного текста
Вывести вертикальную гистограмму длин слов введенного текста

Для заданного текста построить гистограмму распределения длин слов.
Для заданного текста построить гистограмму распределения длин слов. Помогите пожалуйста.В С++

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