Файл: описать логическую функцию check(r), проверяющую , все ли элементы файла r неотрицательны.

@TiX0n · Регистрация: 17.06.2012

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

type rad=file of integer;
описать логическую функцию check(r), проверяющую , все ли элементы файла r неотрицательны.
Программа: введите файл r (последний элемент= 0) и напечатайте значение функции check(r)

@CodeR · 28.06.2012, 15:31

Pascal

Type rad=file of integer;
Var r:rad;
    m,i:integer;
Function Check(f:rad):boolean;
Var b:boolean;
Begin
    Reset(f);
    b:=true;
    While (not Eof(f))and(b) do
     Begin
      read(f,m);
      if m<0 then b:=false;
     End;
    Check:=b;
End;
Begin
    Assign(r,'a.dat');Rewrite(r);
    i:=0;
    Repeat 
     inc(i);
     write('Введите ',i,'-ый элемент: ');readln(m);
     write(r,m);
    Until m=0;
    write(Check(r));
    readln;
End.

@TiX0n 0 / 0 / 1 Регистрация: 17.06.2012 Сообщений: 13
		1
	Файл: описать логическую функцию check(r), проверяющую , все ли элементы файла r неотрицательны. 28.06.2012, 10:53. Показов 1711. Ответов 1 Метки нет (Все метки) type rad=file of integer; описать логическую функцию check(r), проверяющую , все ли элементы файла r неотрицательны. Программа: введите файл r (последний элемент= 0) и напечатайте значение функции check(r) 0

	28.06.2012, 15:31

Опции темы

Файл: описать логическую функцию check(r), проверяющую , все ли элементы файла r неотрицательны.

Решение