Написать функцию,которая находит либо разность,либо сумму элементов

@fristicol · Регистрация: 23.03.2010

@ChameleoN · 30.11.2010, 07:58

сколько элементов? в каком случае разность, в каком сложение? или рандомно надо?

@fristicol · 30.11.2010, 08:26 **[ТС]**

Рандомно

@Puporev · 30.11.2010, 08:46

Наверное что-то типа такого...

Pascal

uses crt;
function SumRaz(a,b:real;k:byte):real;
begin
case k of
0:SumRaz:=a+b;
1:SumRaz:=a-b;
end;
end;
var a,b:real;
    k:byte;
begin
clrscr;
randomize;
writeln('Введите 2 числа:');
readln(a,b);
k:=random(2);
writeln('k=',k);
case k of
0:write('Сумма=',SumRaz(a,b,k):0:2);
1:write('Разность=',SumRaz(a,b,k):0:2);
end;
readln
end.

@ChameleoN · 30.11.2010, 09:20

Pascal

uses crt;
function ab(a,b,k: integer) : integer;
begin
randomize;
k:= random(1);
if k := 0 then k := a + b else
k := a-b;
end;

яб так зделал

@Puporev · 30.11.2010, 09:21

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

k:= random(1);
if k := 0

А Вы вообще знаете какие значения выдаст random(1)?

@HunterTechno · 30.11.2010, 09:36

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

А Вы вообще знаете какие значения выдаст random(1)?

выдаваться всегда будет нуль. Надо заменить на random(2).

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

if k:=0 then {}
а где же булев, то бишь сравнение?

@ChameleoN · 30.11.2010, 10:05

Pascal

uses crt;
function ab(a,b,k: integer) : integer;
begin
randomize;
k:= random(2);
if k = 0 then k := a + b else
k := a-b;
end;

2 опечатки, а скока шума!

@HunterTechno · 30.11.2010, 10:08

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

uses crt;
function ab(a,b,k: integer) : integer;
begin
randomize;
k:= random(2);
if k = 0 then k := a + b else
k := a-b;
end;

надо еще результ функции добавить а то
fristicol, поперхнется

@ChameleoN · 30.11.2010, 10:15

Pascal

//код программы
...
 
writeln(ab(1,2,k));
...

вот та вывод делать

@Puporev · 30.11.2010, 10:52

ChameleoN, Уже до тебя написана нормальная программа, если плохо соображаешь, так хоть подгляди. А 2 "опечатки" в 10 строчках, это 20 процентов бракованного кода...

@ChameleoN · 30.11.2010, 10:59

у тебя рандом не в функции

@Puporev · 30.11.2010, 11:01

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

@ChameleoN · 30.11.2010, 11:56

а если нам эта функция мноо раз понадобится? каждый раз заного random прописывать?

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	30.11.2010, 10:59	12
	у тебя рандом не в функции 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	30.11.2010, 11:01	13
	А он и не должен быть в функции, параметр K передается в функцию из основной программы. 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	30.11.2010, 11:56	14
	а если нам эта функция мноо раз понадобится? каждый раз заного random прописывать? 0

@fristicol 6 / 6 / 0 Регистрация: 23.03.2010 Сообщений: 122
		1
	Написать функцию,которая находит либо разность,либо сумму элементов 29.11.2010, 21:53. Показов 1164. Ответов 13 Метки нет (Все метки) Написать функцию,которая находит либо разность,либо сумму элементов 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	30.11.2010, 07:58	2
	сколько элементов? в каком случае разность, в каком сложение? или рандомно надо? 0

@fristicol 6 / 6 / 0 Регистрация: 23.03.2010 Сообщений: 122
	30.11.2010, 08:26 [ТС]	3
	Рандомно 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	30.11.2010, 09:21	6
	Сообщение от ChameleoN k:= random(1); if k := 0 А Вы вообще знаете какие значения выдаст random(1)? 0

@HunterTechno 19 / 19 / 7 Регистрация: 17.10.2008 Сообщений: 97
	30.11.2010, 09:36	7
	Сообщение от Puporev А Вы вообще знаете какие значения выдаст random(1)? выдаваться всегда будет нуль. Надо заменить на random(2). Добавлено через 1 минуту if k:=0 then {} а где же булев, то бишь сравнение? 0

@HunterTechno 19 / 19 / 7 Регистрация: 17.10.2008 Сообщений: 97
	30.11.2010, 10:08	9
	Сообщение от ChameleoN uses crt; function ab(a,b,k: integer) : integer; begin randomize; k:= random(2); if k = 0 then k := a + b else k := a-b; end; надо еще результ функции добавить а то fristicol, поперхнется 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	30.11.2010, 10:52	11
	ChameleoN, Уже до тебя написана нормальная программа, если плохо соображаешь, так хоть подгляди. А 2 "опечатки" в 10 строчках, это 20 процентов бракованного кода... 0

Опции темы