Помогите написать программу сравнения двух строк, Строки |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Помогите написать программу сравнения двух строк, Строки |
Alexa911 |
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Женский Реальное имя: Александра Репутация: 0 |
Помогите, пожалуйста, написать программу сравнения двух строк. Программа должна читать строки из файла и сравнивать нечетные и четные строки, которые следуют друг за другом. Я уже ломаю голову как оформить текст программы, но ничего не получается.
|
bel100 |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Юрий Репутация: 0 |
Спасибо за подсказку(по поводу цикла while), сравнивать нужно первую и вторую, третью и четвёртую и так далее пока не кончатся строки (общее количество неизвестно, зависит от документа( в идеале должен считать любой текстовый документ).
var s1,s2:string; a,b,i,n:integer; input,output:text; begin assign(input,'input.txt'); reset(input); n:=0; while not eof(input) do for i:=1 to n do readln(input,s2); readln(input,s1); a:=length(s1); b:=length(s2); close(input); writeln(a); writeln(b); if a > b then writeln('Строка 1 больше строки 2'); if a < b then writeln('Строка 1 меньше строки 2'); if a = b then writeln('Строка 1 равна строке 2'); assign(output,'output.csv'); rewrite(output); end. Сообщение отредактировано: bel100 - |
Текстовая версия | 27.04.2024 8:43 |