Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Ветвление

Автор: Arsenal 3.6.2008, 17:16

Найти значение функции

             x если  k=1
                 x2 если  1<k<=10
        y=     x2+4  если k=15
                 x3 если k<=20
                 1если k>20

Автор: Kuvaldis 3.6.2008, 20:46

M
Kuvaldis

Давайте темам более осмысленные имена (как в соседних). Предложите мне по ПМ новое название, иначе топик будет удален

Автор: mr.Anderson 3.6.2008, 21:16

Arsenal, и правда, называй темы попонятней.

Плюс что значит X. Что за функция конкретно? X = K в данном случае? А также, x2 - это икс в квадрате? Если да, то писать надо так: x^2, а то не поймешь. По таким условиям код следующий:

Код


program Func;
var
 k : Integer;
begin
 readln( k );
 
      if( k = 1 ) then writeln( k )
 else if( k = 15 ) then writeln( k * k + 4 )
 else if( k <= 10 ) and ( k > 1 ) then writeln( k * k )
 else if( k > 10 ) and ( k <= 20 ) then writeln( k * k * k )
 else if( k > 20 ) then writeln( 1 );
end.

Автор: Arsenal 3.6.2008, 22:00

спс большое за помощь

Автор: mr.Anderson 3.6.2008, 22:15

Arsenal, не за что. smile