Создать текстовый файл, содержащий сведения об учениках школы. Найти учеников 9 класса, родившихся в 1994 году

@Helpme9 · Регистрация: 18.05.2013

Студворк — интернет-сервис помощи студентам

Создать текстовый файл, содержащий сведения об учениках школы (фамилия, имя, класс, литера(А,Б..), год рождения). Найти учеников 9 класса родившихся в 1994 году.

@Helpme9 · 06.04.2014, 13:40 **[ТС]**

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

текстовый файл

!!!

@Helpme9 · 13.04.2014, 03:48 **[ТС]**

помогите пожалуйста с кодом ребята, я незнаю как искать по текстовому файлу информацию, (у меня просто открывает и закрывает компилятор)

@Helpme9 · 14.04.2014, 23:16 **[ТС]**

он у меня выводит только одни девятки, как сделать так чтобы он выводи всю строку из файла в котором есть и 9 и 1994

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
var
    f1, f2: file of char;
    c: char;
 
 
begin
    assign (f1, 'input.txt');
    reset (f1);
 
    assign (f2, 'output.txt');
    rewrite (f2);
 
 
 
    while not eof (f1) do begin
        read (f1, c);
        if (c = '9') or (c = '1994')  then begin
            writeln (f2, c);
 
        end
    end;
 
    close (f1);
    close (f2);
 
    reset (f2);
 
    while not eof (f2) do begin
        read (f2, c);
        write (c:2)
    end;
 
    writeln;
 
readln
end.

Добавлено через 6 минут

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

if (c = '9') or (c = '1994') *then begin
* * * * * * writeln (f2, c);

какое условие??

@Helpme9 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 31
		1
	Создать текстовый файл, содержащий сведения об учениках школы. Найти учеников 9 класса, родившихся в 1994 году 05.04.2014, 22:50. Показов 1497. Ответов 3 Метки нет (Все метки) Создать текстовый файл, содержащий сведения об учениках школы (фамилия, имя, класс, литера(А,Б..), год рождения). Найти учеников 9 класса родившихся в 1994 году. 0

@Helpme9 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 31
	13.04.2014, 03:48 [ТС]	3
	помогите пожалуйста с кодом ребята, я незнаю как искать по текстовому файлу информацию, (у меня просто открывает и закрывает компилятор) 0

Опции темы