Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить, является ли последовательность упорядоченной Определить, является ли последовательность n чисел упорядоченной. https://www.cyberforum.ru/ turbo-pascal/ thread249344.html	Turbo Pascal Определить, является ли заданное натуральное число совершенным Определить, является ли заданное натуральное число совершенным, то есть равным сумме всех своих (положительных) делителей, кроме самого этого числа (например, число 6 совершенно: 6=1+2+3).
Turbo Pascal Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. https://www.cyberforum.ru/ turbo-pascal/ thread249331.html Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. помогите кто знает,заранее спасибо):)	Turbo Pascal Пирамидальная сортировка https://www.cyberforum.ru/ turbo-pascal/ thread249319.html Никак не могу понять , въехать в эту сортировку. Объясните пожалуйста уважаемые программисты! Не могу понять как идёт отбор при построении пирамиды с сортировкой. Лучше если объясните на примере данного набора букв: В А С Е Ч К О А Н Д
Дана символьная строка. Подсчитать в ней количество вхождений букв r, k, t. Turbo Pascal Дана символьная строка. Подсчитать в ней количество вхождений букв r, k, t. (помогите кто может это сделать?)	Turbo Pascal Получить новый массив путем деления всех элементов массива на наибольший по модулю элемент https://www.cyberforum.ru/ turbo-pascal/ thread249307.html Дан двумерный массив. Получить новый массив путем деления всех элементов массива на наибольший по модулю элемент.
Turbo Pascal Перевернуть массив Дан массив целых чисел упорядоченный по возрастанию.Сделать из него массив упорядоченный по убыванию. С использованием только базовых действий.Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread249306.html	Замена окончаний ING на ED Turbo Pascal Уже месяц сдаю курсовую работу и не могу добиться одного результата. Проблема заключается в том, что при замене окончаний в слове с ing на ed если после слова не поставить пробел слово не переведется. Надо сделать так чтобы программа проверяла конец слова. И если там есть ING окончание переводило.Вот код программы Program Kurs; uses crt; var d,e:text; q,w:array of char; h,n,g,y,z:integer;...
Turbo Pascal дан числовой ряд и некоторое число е https://www.cyberforum.ru/ turbo-pascal/ thread249297.html Помогите в решение задачки. Даны числовой ряд и некоторое число е. Найти сумму тех членов ряда, модуль которых больше или равен е. Общий член ряда имеет вид A(n индекс)=3^nn!/(2n)! у кого есть какие мысли как реализовать решение этой задачи?	Turbo Pascal Поиск по году рождения и фамилии Создать программу, которая обеспечивает ввод данных, поиск по году рождения и фамилии, вывод данных. Запись содержит данные: фамилия (тип string), год рождения (тип integer), группа (тип integer), средний балл (тип real). https://www.cyberforum.ru/ turbo-pascal/ thread249292.html
Нужна информация кода Turbo Pascal Здравствуйте, программисты. Нужна помощь. Дан код, см. ниже, нужно написать к каждой строке что оно означает и что делает... Т.е. полностью рассказать как работает это программа по коду. Вот собственно код: program Main; uses crt; var mass1:array of integer; mass2:array of integer; i:integer; begin	Turbo Pascal дано натуральное число Определить 2 его максимальные цифры помогите решить плиз=)) https://www.cyberforum.ru/ turbo-pascal/ thread249286.html

kofee"k

109 / 109 / 91

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

Сообщений: 171

27.02.2011, 18:10

Чтение символов из файла - Turbo Pascal - Ответ 1406065

27.02.2011, 18:10. Показов 5594. Ответов 4

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

Ответ

Сообщение от vladisl

из файла содержащего текст, который не привышает 1000 символов
1) вывести текст на экран дисплея
Использовать только библиотечные функции ввода\вывода Символа.
Нельзя использовать библиотечные функции работы со строками(словами)
Обработка текста должна вестись посимвольно.

Pascal

var
 st, dir: string;
 f: text;
begin
 dir:='путь к файлу';
 assign(f, dir);
 reset(f);
  while not EOF(f) do
   begin
    readln(f, st);
    writeln(st);
   end;
end.

Ваша программа считывает строками!

Pascal

program tt;
uses crt;
var
 dir: string;
 c:char;
 f: text;
begin
 ClrScr;
 writeln('Укажите путь');
 readln(dir);
 assign(f,dir);
 reset(f);
 while not EOF(f) do begin
   read(f,c);
   write(c);
 end;
 close(f);
end.

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

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.02.2011, 18:10

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

Чтение из файла русских символов
Помогите плиз)у меня прога должна ИЗ ТЕКСТОВОГО ФАЙЛА считывать русский текст производить...

Чтение символов из файла
Дан текст; определить, содержит ли он символы, отличные от букв и пробела

Чтение символов из файла
Всем привет. Может кто может подсказать как изменить программу, чтобы символы вводились не с...

Чтение символов из файла .txt
Народ, я новенький вообще в программировании, но вот мне захотелось сделать генератор паролей (для...

	27.02.2011, 18:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.02.2011, 18:10

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

Чтение русских символов из файла
Есть следующий код static public Edition Input() { using (StreamReader fileIn = new...

Чтение unicode-символов из файла
Добрый день. помогите пожалуйста с таким вопросом. Имеется файл, сохранённый с кодировкой unicode....

Чтение русских символов из файла
Файл содержит миллионы русских букв "е". Читаю из файла символ: ch = fin.ReadByte(), сравниваю его...

Чтение всех символов из файла
Есть у меня програма, которая шифрует определенный текст. В ней каждый символ может быть изменен в...

Наверх