Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Создать процедуру, определяющую одномерный массив (вектор), состоящий из сумм каждой строки матрицы с четными номерами Сформировать матрицы {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l), по задан-ным правилам: (i+j)/2, (i*j)/27. Фактическое число строк (n,k) и столб-цов (m,l) каждой матрицы, а также признак выбора... https://www.cyberforum.ru/ pascal/ thread198848.html Поиск и вывод на экран записей о всех людях, родившихся в мае 1975 года Pascal
Вот сделал программу: Uses crt; Type T_info=record num:string; fio:string; chislo:string; mesjac:string; god:string; end;
Pascal Запись https://www.cyberforum.ru/ pascal/ thread198839.html
Составить список, содержащий сведения об N студентах. Для каждого учащегося указать: - фамилия; - ИНН (идентификационный номер налогоплательщика); - дата выдачи Свидетельства о постановке на учет...
Pascal Игра "Черный Джек" ("Очко") Игра "Черный Джек" ("Очко") заключается в том, что: а) каждой карте соответствует определенное число: шестерка - 6 девятка - 9 дама - 3 семерка - 7 десятка - 10 король - 4 восьмерка - 8 валет - 2... https://www.cyberforum.ru/ pascal/ thread198830.html
Дано натуральное число. Верно ли следующее: произведение его цифр меньше 50 Pascal
1 В некотором году (назовем его условно первым) на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5 %,...
Pascal Вывод результата в файл и считывание с него. Типизированный https://www.cyberforum.ru/ pascal/ thread198799.html
Программа uses crt; const nmax=100; type mas=array of integer; procedure Typ(var v:mas;var n:byte;var t:byte); var i,k1,k2:byte; begin repeat write('Размер последовательности до ',nmax,'...
Pascal используя процедуру вычислить вычислить с использованием процедуры, при необходимости с динамическими массивами Z=\frac{\sum \sin ({x}_{i})-\sum \sin ({y}_{i})}{\sum \left|{x}_{i} \right|} где X(n), Y(m)-данные линейные массивы... https://www.cyberforum.ru/ pascal/ thread198726.html Pascal Записать +1 вместо максимального четного элемента массива Т (18)
Напишите плиз программы для Вычислить среднее геометрическое номеров максимального и минимального элементов массива E (12) Записать +1 вместо максимального четного элемента массива Т (18).
Pascal Файлы https://www.cyberforum.ru/ pascal/ thread198665.html
Помогите решить задачу плз: Имеется файл с числами, удалить из него пятое число. Результат записать в другой файл. Спасибо!!!
Pascal Удалить строку матрицы с номером k https://www.cyberforum.ru/ pascal/ thread198625.html
Помогите пожалуйста составить программу: 1. Дано число k и матрица размера 4 x 10. Удалить строку1|столбец2 матрицы с номером k. 2. Matrix26. Дана матрица размера 5 x 10. Удалить...
Pascal Строки в Паскале
Выбрать из заданного текста слова заданной длины и напечатать их по одному на каждой строке. Помогите плиз!!!
Pascal Графика в паскале Нарисовать 15 белых и 15 чёрных чередующихся вертикальных полос. зделать имитацию их движения !!! https://www.cyberforum.ru/ pascal/ thread198606.html
Почетный модератор
64278 / 47577 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.11.2010, 12:50 0

Пролема с символьными строками - Pascal - Ответ 1148928

28.11.2010, 12:50. Показов 469. Ответов 3
Метки (Все метки)

Ответ

Сначала создадите исходный файл в программе, типа такой.
Это чтобы русские символы были в Дос-кодировке и не искажались при чтении файла.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var f:text;
    s:string;
    i:byte;
begin
clrscr;
assign(f,'symbol.pas');
rewrite(f);
for i:=1 to 10 do
 begin
  readln(s);
  writeln(f,s);
 end;
close(f);
end.
Затем программа чтения и сортировки.
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
26
27
28
29
30
uses crt;
var f:text;
    a:array[1..100] of string;
    s:string;
    n,i,j:byte;
begin
clrscr;
assign(f,'symbol.pas');
reset(f);
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=n+1;
  a[n]:=s;
 end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  s:=a[i];
  a[i]:=a[j];
  a[j]:=s;
 end;
writeln('Строки файла по возрастанию:');
for i:=1 to n do
writeln(a[i]);
readln
end.


Вернуться к обсуждению:
Пролема с символьными строками Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2010, 12:50
Готовые ответы и решения:

Программирование с символьными массивами и строками
Есть еще одна проблемная задача. От оказанной помощи не откажусь. Заранее благодарен. В тексте...

Работа с символьными строками
Начал проходить новую тему про символьные строки. Первым идет описание строковой переменной String....

Работа с символьными строками
Дан текст. Выяснить процентное содержание в тексте пробелов.

Работа с символьными строками
Надо на Borlande настрочить,кто может помогите:Дано строку.Сформировать строку, которыя бы содержал...

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

Работа с символьными строками
С клавиатуры ввести символьную строку, которая задает арифметическое выражение: А ± В, где А и В -...

Работа с символьными строками
Очередной простенький вопрос для знатоков)) Есть символьная строка. Можно ли как-то не в цикле...

Работа с символьными строками
Привет всем! я ни как не могу сделать лабораторную работу...кто может помогите. Буду очень...

Робота из символьными строками
За індивідуальним завданням створити функцію для обробки символьних рядків. За зразок брати...

Работа с символьными строками
Помогите пожалуйста с задачкой Дан текст. Если в тексте нет символа *, то оставить этот текст без...

Библиотеки работы с символьными строками
Как будет выглядеть данный код, если не использовать библиотек работы с символьными строками? В...

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