Вычислить значение выражения

@ElenaCh · Регистрация: 11.04.2016

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

Найти значение z, если
..../max(x,m) при x<0
z=|
....\min(x,m) при x>=0

@ZX Spectrum-128 · 18.04.2016, 09:45

ElenaCh, а причем здесь

Работа с текстовыми файлами

?

@ElenaCh · 18.04.2016, 09:47 **[ТС]**

ZX Spectrum-128,
assing(f, input.txt);
assing(q, output.txt);

@Puporev · 18.04.2016, 09:55

Pascal

Ввод x,m
if x<0 then
 begin
  if x>m then z:=x else z:=m
 end
else
 begin
   if x<m then z:=x else z:=m
 end;

@ElenaCh · 18.04.2016, 10:40 **[ТС]**

Может кому понадобится

Pascal

var f, q: text;
    z, x, m, max, min: integer;
Begin
     assign(f, 'input.txt');
     assign(q, 'output.txt');
     reset(f);
     read(f,x,m);
    if x<0 then
    begin
       if x>m then z:=x else z:=m
       end
    else
    begin
       if x<=m then z:=x else z:=m
       end;
    rewrite(q);
    writeln(q, z);
    close(f); close(q);
End.

Вычислить значение выражения

Решение

Решение

@ElenaCh 2 / 2 / 3 Регистрация: 11.04.2016 Сообщений: 94
		1
	Вычислить значение выражения 18.04.2016, 09:37. Показов 868. Ответов 4 Метки нет (Все метки) Найти значение z, если ..../max(x,m) при x<0 z=\| ....\min(x,m) при x>=0 0

@ZX Spectrum-128 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	18.04.2016, 09:45	2
	ElenaCh, а причем здесь Работа с текстовыми файлами ? 0

@ElenaCh 2 / 2 / 3 Регистрация: 11.04.2016 Сообщений: 94
	18.04.2016, 09:47 [ТС]	3
	ZX Spectrum-128, assing(f, input.txt); assing(q, output.txt); 0

Опции темы