Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить, какая буква введена — гласная, согласная звонкая, согласная глухая https://www.cyberforum.ru/ turbo-pascal/ thread1425761.html Ученик вводит с клавиатуры букву русского алфавита. Компьютер должен сказать, какая это буква - гласная, согласная звонкая, согласная глухая или другая какая-нибудь (можно и НЕ ЗНАЮ). Выполнить задание с использованием оператора case.	Найти максимальный положительный элемент двумерного массива Turbo Pascal Двумерный массив: Найти максимальный положительный элемент двумерного массива Количество значений брать маленькое (от 1 до 2 и от 1 до 3-х)
Turbo Pascal Поменять местами максимальный положительный и минимальный отрицательный элементы массива Одномерный массив: Поменять местами максимальный положительный и минимальный отрицательный элементы массива Т(14) https://www.cyberforum.ru/ turbo-pascal/ thread1425700.html	Turbo Pascal Построить график функции у=6х-3 Построить график функции у=6х-3 https://www.cyberforum.ru/ turbo-pascal/ thread1425640.html
Получить одномерный массив из минимальных элементов каждой строки матрицы, кроме элемента главной диагонали Turbo Pascal дана квадратная матрица А(N,M) получить одномерный массив из минимальных элементов каждой строки матрицы кроме элемента главной диагонили	Turbo Pascal Составить процедуру, которая будет находить за ним следующее простое число Начальная задача звучит так: Дано простое число, составить функцию, которая будет находить за ним следующее простое число program F1; uses crt; function Prost(n:integer):boolean; var i:integer; begin if(n>2)and(n mod 2=0) then begin Prost:=false; https://www.cyberforum.ru/ turbo-pascal/ thread1425514.html
Turbo Pascal Упорядочить по возрастанию элементы каждой строки матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1425489.html 1) Операции с элементами массива: Задача (Упорядочить по возрастанию элементы каждой строки мат*рицы размером n x m.).	Turbo Pascal Использование стандартных функций и разработка собственных прерываний в ОС MS DOS 1.Составьте текст программы на языке Паскаль, которая формирует на экране ме¬ню, строки которого соответствуют названиям пунктов 2-4 лабораторной. По¬следний пункт меню Выход завершает работу программы. Пункты меню имеют сквоз¬ную нумерацию (табл.1.1) и выполняются при нажатии соответствующей клавиши. Пока программа должна обрабатывать нажатие клавиши только для завершения работы. № варианта...
Turbo Pascal Определить количество 8-значных чисел, у которых сумма цифр меньше ,чем N https://www.cyberforum.ru/ turbo-pascal/ thread1425367.html Дано натуральное число N. Определить количество 8-значных чисел, у которых сумма цифр меньше ,чем N. Если таких чисел нет ,то вывести слово "нет".	Turbo Pascal Для получения результата составить функцию, исходными данными которой являются два массива https://www.cyberforum.ru/ turbo-pascal/ thread1425363.html Для получения результата составить функцию, исходными данными которой являются два массива x1,x2,...,xn u y1,y2.(один из них) или матрица А из n строк и n столбцов. Кроме этого, разработать программу для отладки составленной функции. Наибольшая абсолютная величина элемента среди Y1,Y2,...,Yn
Найти среднее арифметическое элементов матрицы Turbo Pascal Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу А из 5 строк и 5 столбцов или одномерные массивы указанной длинны. Нацти среднее арифметическое элементов матрицы А, и, если матрица А не содержит ни одного отрицательного элемента, изменить элементы матрицы путем вычитания из них среднего арифметического.	Turbo Pascal Отделить корни уравнения аналитически и уточнять один из них методом Ньютона https://www.cyberforum.ru/ turbo-pascal/ thread1425325.html отделить корни уравнения вида: ax3-bx2+cx+d=0, аналитически и уточнять один из них методом Ньютона(касательных ) с точностью до 0.001

lexan

1 / 1 / 1

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

Сообщений: 25

20.04.2015, 20:23 [ТС]

Форматирование текста по заданной ширине - Turbo Pascal - Ответ 7506307

20.04.2015, 20:23. Показов 2522. Ответов 2

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

Ответ

а как отвязаться от числа строк и связать с файлом? Я в этом просто не шарю

Добавлено через 1 час 6 минут

Pascal

 var f1, f2 :text;
 a: array [0..300] of string[100];
 i, j: integer;
 begin
Assign(f1,'D:\work.txt');
 
Assign (f2, 'D:\word.txt');
reset(f1);
rewrite(f2);
 
while not eof(f1) do begin 
read(f1,a[i]);
 if pos(' ', a[i]) > 0
        then while length(a[i]) <= 79 do
          for j := length(a[i]) downto 1 do
            begin
              if a[i][j] = ' ' then insert(' ', a[i], j);
              if length(a[i]) = 80 then break
            end;
    end;
  
 
 writeln(f2,a[i]);
 
  
  close(f1);
  close(f2);
  end.

Вернуться к обсуждению:
Форматирование текста по заданной ширине Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

20.04.2015, 20:23

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

Форматирование текста по ширине
Здравствуйте. Мне нужно отформатировать текст(одну строку) по ширине(вводится с клавиатуры) - т.е....

Подкорректировать программу по форматированию текста по заданной ширине
Есть программа форматирования текста по заданной ширине,надо добавить сюда чтото, так чтобы, когда...

RichEdit 3.0 и форматирование по ширине
Я использую MFC. Пытаюсь сделать в RichEditView форматирование абзацев по ширине, но ничего не...

Форматирование строки по ширине
Дан текст, состоящий из предложений. Ввод текста осуществляется в несколько строк (не более 20)....

	20.04.2015, 20:23

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

20.04.2015, 20:23

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

ListBox - форматирование по ширине строки
Всем доброго дня, назрел вопрос - есть listbox в него загружаю данные(строка представлена двумя...

RichEdit или RTF форматирование текста, а лучше HTML форматирование
Привет формучани. Подскажите бесплатный компонент который позволил бы выводить текст в формате...

Выравнивание текста по ширине верхнего текста
Подскажите можно ли в layout файле задать выравнивание (отступ) текста по ширине верхнего текста,...

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

Наверх