VPF::Задача с использованием функций и файлов

Alex133

Дата 23.12.2009, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 15.11.2009

Репутация: нет
Всего: нет

Помогите пожалуйста...

Функции..

1) Даны действительные числа a, b, c. Получить: ( max(a,a+b) + max (a,b+c) ) / ( 1+max(a+bc,b,15) )

Файлы..

2) В файле f записаны целые числа. Написать программу, которая в файл g записывает четные числа, а файл h - нечетные.

очень надеюсь на вашу помощь.... для зачета это..

darkart

Дата 3.1.2010, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Цитата(Alex133 @ 23.12.2009, 21:53

)

Функции..

1) Даны действительные числа a, b, c. Получить: ( max(a,a+b) + max (a,b+c) ) / ( 1+max(a+bc,b,15) )

Код


program MaxFunc;

function Max2( x, y : real ) : real;
{вычисления максимума 2 чисел}
begin
  if x > y then
    Max2 := x
  else
    Max2 := y;
end;

function Max3( x, y, z : real ) : real;
{вычисление максимума 3 чисел}
begin
  if( ( x > y ) and ( x > z ) ) then
    Max3 := x
  else if y > z then
    Max3 := y
  else
    Max3 := z;
end;

var
  a, b, c : real;{вводимые числа}

begin
  {ввод чисел}
  writeln( 'Пожалуйста введите a:' );
  readln( a );
  writeln( 'Пожалуйста введите b:' );
  readln( b );
  writeln( 'Пожалуйста введите c:' );
  readln( c );

  {печать результата}
  writeln( 'Результат = ', ( Max2( a, a + b ) + Max2( a, b + c ) ) / ( 1 + Max3( a + b * c, b, 15 ) ) );

  readln;{ожидание ввода}

end.

Цитата(Alex133 @ 23.12.2009, 21:53

)

Файлы..

2) В файле f записаны целые числа. Написать программу, которая в файл g записывает четные числа, а файл h - нечетные.

Код


program FilesWithNumbers;
const
  INPUT_FILE_NAME = 'input.txt';{имя входного файлы}
  OUTPUT_EVEN_FILE_NAME = 'out_even.txt';{имя выходного файла для четных чисел}
  OUTPUT_ODD_FILE_NAME = 'out_odd.txt';{имя выходного файла для нечетных чисел}
var
  f, g, h : text;{текстовые файлы}
  number : integer;{переменная для чтения и записи}

begin
  {связываем файловые переменные с файлами с заданным именем}
  assign( f, INPUT_FILE_NAME );
  assign( g, OUTPUT_EVEN_FILE_NAME );
  assign( h, OUTPUT_ODD_FILE_NAME );
  reset( f );{чтение}
  rewrite( g );{перезапись}
  rewrite( h );{перезапись}
  while( not eof( f ) ) do{пока не конец входного файла}
  begin
    read( f, number );{читаем очередное число}
    if( number mod 2 = 0 ) then{если число четное, т.е. остаток от деления на 2 = 0}
      writeln( g, number ){пишем в выходной файл для четных}
    else{иначе}
      writeln( h, number );{пишем в выходной файл для нечетных}
  end;
  close( h );{закрываем файл}
  close( g );{закрываем файл}
  close( f );{закрываем файл}
  writeln( 'Готово...' );
  readln;{ждем ввода}
end.

Это сообщение отредактировал(а) darkart - 3.1.2010, 01:02

volvo877

Дата 3.1.2010, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(darkart @ 2.1.2010, 23:24

)

Код

function Max2( x, y : real ) : real;
{вычисления максимума 2 чисел}
begin
  if x > y then
    Max2 := x
  else
    Max2 := y;
end;
function Max3( x, y, z : real ) : real;
{вычисление максимума 3 чисел}
begin
  if( ( x > y ) and ( x > z ) ) then
    Max3 := x
  else if y > z then
    Max3 := y
  else
    Max3 := z;
end;

Код

function Max3(x, y, z: real): real;
begin
  Max3 := Max2(Max2(x, y), z);
end;

, если она вообще нужна. Ибо проще подставить вот такой вызов функции Max2 в само выражение...

mr.Anderson

Дата 3.1.2010, 12:58 (ссылка)

(голосов:1)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

!
mr.Anderson

Модератор: закрыто за несоблюдение правил оформления.

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »