program ;
var
f: Text;
c: Char;
w: String;
Words: array[1..500] of String[70];
i, n: Integer;
begin
Assign(f, 'input.dat');
Reset(f);
w := '';
n := 0;
repeat
if Eoln(f) then
begin
Readln(f);
Writeln;
c := ' ';
end
else
begin
Read(f, c);
Write(c);
end;
if (c <> ' ') and (c <> #9) then
w := w + c
else
if w <> '' then
begin
if w[1] = w[Length(w)] then
begin
Inc(n);
Words[n] := w;
end;
w := '';
end;
until Eof(f) and (c = ' ');
Close(f);
Writeln;
Writeln;
for i := 1 to n do
Writeln(Words);
end.
Файлы
Условие : С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT.
Написать программу, которая:
1. Выводит текст на экран дисплея;
2. Определяет слова, начинающиеся и оканчивающиеся на одну и ту же букву;
Вот моя версия :
Я правильно сделал ?
Написать программу, которая:
1. Выводит текст на экран дисплея;
2. Определяет слова, начинающиеся и оканчивающиеся на одну и ту же букву;
Вот моя версия :
Код:
Я правильно сделал ?
Цитата:
Originally posted by warlok_the
Условие : С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT.
Написать программу, которая:
1. Выводит текст на экран дисплея;
2. Определяет слова, начинающиеся и оканчивающиеся на одну и ту же букву;
Вот моя версия :
Я правильно сделал ?
Условие : С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 1000 символов (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT.
Написать программу, которая:
1. Выводит текст на экран дисплея;
2. Определяет слова, начинающиеся и оканчивающиеся на одну и ту же букву;
Вот моя версия :
Код:
program ;
var
f: Text;
c: Char;
w: String;
Words: array[1..500] of String[70];
i, n: Integer;
begin
Assign(f, 'input.dat');
Reset(f);
w := '';
n := 0;
repeat
if Eoln(f) then
begin
Readln(f);
Writeln;
c := ' ';
end
else
begin
Read(f, c);
Write(c);
end;
if (c <> ' ') and (c <> #9) then
w := w + c
else
if w <> '' then
begin
if w[1] = w[Length(w)] then
begin
Inc(n);
Words[n] := w;
end;
w := '';
end;
until Eof(f) and (c = ' ');
Close(f);
Writeln;
Writeln;
for i := 1 to n do
Writeln(Words);
end.
var
f: Text;
c: Char;
w: String;
Words: array[1..500] of String[70];
i, n: Integer;
begin
Assign(f, 'input.dat');
Reset(f);
w := '';
n := 0;
repeat
if Eoln(f) then
begin
Readln(f);
Writeln;
c := ' ';
end
else
begin
Read(f, c);
Write(c);
end;
if (c <> ' ') and (c <> #9) then
w := w + c
else
if w <> '' then
begin
if w[1] = w[Length(w)] then
begin
Inc(n);
Words[n] := w;
end;
w := '';
end;
until Eof(f) and (c = ' ');
Close(f);
Writeln;
Writeln;
for i := 1 to n do
Writeln(Words);
end.
Я правильно сделал ?
Да все ок, после програм поставь только что то, все остальное правильно. Удачи!
По-моему если все работает - то все правильно сделал ;)
