дан текстовый файл. Распечатайте, строки, начинающиеся с заданного слова (Паскаль)

[sayser]

Пусть дан текстовый файл. Распечатайте, строки, начинающиеся с заданного слова.
Не могу разобраться с данной задачей так как я заочник, прошу помочь заранее спасибо.
Работа с файлами (Pascal).

[Stilet]

const w='слово';
var f:text;s:string;
begin
 assign(f,'file');reset(f);
 while not eof(f) do begin
  readln(f,s); if copy(s,1,Length(w))=w then writeln(s);
 end;close(f); readln;
end.

[sayser]

надо найти нетолько строку со словом и распечатать ее но и продолжить до конца

[Serge_Bliznykov]

предложенный Вам код напечатает все строки, которые начинаются с заданного вами слова.

Обратите внимание, что сравнение регистрозависимое (т.е. если Вы задали слово молоко, то строки, которые начинаются с Молоко или МОЛОКО не будут напечатаны)!

p.s. на самом деле код ищет не слова, а просто совпадение начала строки и заданного вами текста.

таким образом, если Вы зададите слово "Раб", То найдутся строки, начинающиеся на эти буквы, например, "Рабочая неделя начинается с понедельника")
Или наоборот, если в переменной w зададите словосочетание "таким образом", то будут напечатаны строки, которые начинаются "таким образом..."

[sayser]

var 
s,sl,sk:string;
i,k:integer;
begin
writeln("vvedite slovo");
readln(s);
assign(input,'in.txt');
reset(input);
repeat
readln(input,sl);
k:=lenght(s);
if k<=length(sl) then begin 
sk='';
for i:=1 to k do
sk= sl[i];
if (k=length(sl)) and (sk=s) then writeln(sl);
if (k<length(sl)) and (sk+sl[i+1]=s+' ') then writeln(sl); 
end;
repeat eof(input);
close(input);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[sayser]

using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            string str=null;
            int min = 5;
            int max = 5;
            
 
            StreamReader file1 = new StreamReader(@"c:\1.txt");
            StreamReader file2 = new StreamReader(@"c:\2.txt");
            StreamReader file3 = new StreamReader(@"c:\3.txt");
            
            while ((str = file1.ReadLine()) != null)
            {
                int i = Convert.ToInt16(str);
                if (i < min)
                {
                    min = i;
                }
            }
 
            while ((str = file2.ReadLine()) != null)
            {
                int i = Convert.ToInt16(str);
                if (i > max)
                {
                    max = i;
                }
            }
            Console.WriteLine(min+":"+max);
            while ((str = file3.ReadLine()) != null)
            {
                if (str.StartsWith("5"))
                Console.WriteLine(str);
            }
            Console.ReadLine();
        }
    }
}

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[sayser]

примеры решены правильно или нет?

[sayser]

вот примеры сделал к задаче посоветуйте пожалуйста правильно не правильно.
var 
s,sl,sk:string;
i,k:integer;
begin
writeln("vvedite slovo");
readln(s);
assign(input,'in.txt');
reset(input);
repeat
readln(input,sl);
k:=lenght(s);
if k<=length(sl) then begin 
sk='';
for i:=1 to k do
sk= sl[i];
if (k=length(sl)) and (sk=s) then writeln(sl);
if (k<length(sl)) and (sk+sl[i+1]=s+' ') then writeln(sl); 
end;
repeat eof(input);
close(input);
end.
 
Вот еще пример:
using System;
using System.Collections.Generic;
using System.Text;
using System.IO;

namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
string str=null;
int min = 5;
int max = 5;


StreamReader file1 = new StreamReader(@"c:\1.txt");
StreamReader file2 = new StreamReader(@"c:\2.txt");
StreamReader file3 = new StreamReader(@"c:\3.txt");

while ((str = file1.ReadLine()) != null)
{
int i = Convert.ToInt16(str);
if (i < min)
{
min = i;
}
}

while ((str = file2.ReadLine()) != null)
{
int i = Convert.ToInt16(str);
if (i > max)
{
max = i;
}
}
Console.WriteLine(min+":"+max);
while ((str = file3.ReadLine()) != null)
{
if (str.StartsWith("5"))
Console.WriteLine(str);
}
Console.ReadLine();
}
}
}

[Serge_Bliznykov]

1-е. не надо создавать ещё одну тему - дублирование сообщений или тем называется КРОССПОСТИНГ и запрещено правилами форума.
Если Вам никто не отвечает, значит, нечего сказать Вам...


2-е. код надо форматировать специальными тегами (я выше отформатировал ваши сообщения, обратите на это внимание).

3-е. Вас не смущает, что первый пример на Паскале, а второй код - это C# ?!

4-е. из кода на C# вам нужно только это:

using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
           StreamReader file3 = new StreamReader(@"c:\3.txt");
            
            while ((str = file3.ReadLine()) != null)
            {
                if (str.StartsWith("5"))
                Console.WriteLine(str);
            }
            Console.ReadLine();
        }
    }
}