задачка с текстовым файлом..

[Fed0r]

С помощью текстового редактора QC создать файл, содержащий текст, длина которого не превышает 700 символов (длина сроки текста не должна превыашть 70 символов).
Имя файла должно иметь расширение DAT.
Написть программу, которая:
1)выводит текст на экран дисплея;
2)выводит текст на экран дисплея еще раз, заменяя в заданном слове (слово вводить с клавиатуры) строчные буквы прописными.

вот такое задание. с первым заданием конечно без проблем.. со вторым никак... кто может помогите плиз)

[Sazary]

Если слово на латинице, то используйте UPCASE():

Function UpCase(C: char): Char

[Fed0r]

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

Если слово на латинице, то используйте UPCASE():

Function UpCase(C: char): Char

не осознал...

[Sazary]

Функция возвращает букву, указанную в аргументе, в верхнем регистре.
Пример:

uses crt;
var
s : string;
i : integer;
begin
clrscr;
s := 'hello';
for i:=1 to length(s) do
 write(upcase(s[i]));
readln
end.

А вообще можете прочитать про нее в каком-нибудь учебнике или справочнике.

[Fed0r]

спасибо. про эту функцию не знал..
сделал бы по другом чуть =) через chr(ord(s[i])-32)
меня больше интересует как сделать так что бы одно слово из текста введенное с клавиатуры было написано верхним регистром =)
т.е.
к примеру текст "They have invited many people to the party"
к примеру мы хотим что бы слово many было написано большими буквами. вводим с клавы "many" и программа выводит на экран "They have invited MANY people to the party"

вот я не догоняю как это сделать...

[Serge_Bliznykov]

так, если в строке нужное слово встречается ОДИН раз (и уже написана функция UpperCase(s:string):

Readln(MatchWord);
if Pos(MatchWord, s)>0 then begin
  P1 := Pos(MatchWord, s);
  WriteLn(Copy(s,1,P1-1), UpperCase(Copy(s,p1,length(MatchWord))), Copy(s,P1+length(MatchWord),255));
end
else
  WriteLn('Заданное слово отсутствует в строке...');

[AlenkaM]

Привет, мальчики! Извините, что вмешиваюсь. Просто хотелось бы поделиться своей идеей )
Сначала в заданной строке ищешь то слово, которое тебе нужно преобразовать:
n:= pos (s, str);
s - это нужное слово
str - заданная строка
n - начало слова в строке
А потом уже преобразуешь конкретно это слово так, как тебе объяснял SAZARY:
for i:= length(str) to length(s)+n-1 do
str[i]:= upCase(str[i]);
И всё. А дальше выводишь строку в файл или на экран (по желанию)

[Fed0r]

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

так, если в строке нужное слово встречается ОДИН раз (и уже написана функция UpperCase(s:string):

Readln(MatchWord);
if Pos(MatchWord, s)>0 then begin
  P1 := Pos(MatchWord, s);
  WriteLn(Copy(s,1,P1-1), UpperCase(Copy(s,p1,length(MatchWord))), Copy(s,P1+length(MatchWord),255));
end
else
  WriteLn('Заданное слово отсутствует в строке...');

а каких типов каждый идентификатор? =)

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

Привет, мальчики! Извините, что вмешиваюсь. Просто хотелось бы поделиться своей идеей )
Сначала в заданной строке ищешь то слово, которое тебе нужно преобразовать:
n:= pos (s, str);
s - это нужное слово
str - заданная строка
n - начало слова в строке
А потом уже преобразуешь конкретно это слово так, как тебе объяснял SAZARY:
for i:= length(str) to length(s)+n-1 do
str[i]:= upCase(str[i]);
И всё. А дальше выводишь строку в файл или на экран (по желанию)

ничего. спасибо =) но я все равно мало что понимаю(
з.ы. с праздником =)

[AlenkaM]

А что конкретно тебе не понятно? Я просто на олимпиады по инфе хожу. Может, смогу чем-то помочь?
P.S. Спасибо за поздравление ))

[Fed0r]

что такое pos(), каких типы у идентификаторов? =)
з.ы. добавь в асю пожалуйста. так проще будет)