Важная информация
Показано с 1 по 5 из 5

Тема: Функції

  1. #1 Функції 
    Новичок
    Регистрация
    14.11.2014
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Дані натуральні числа k, l, m, дійсні числа[Ссылки могут видеть только зарегистрированные пользователи. ]
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    в iнших выпадках -шо таке???
     

  3. #3  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Цитата Сообщение от nik_1 Посмотреть сообщение
    в iнших выпадках -шо таке???
    В других случаях.
    Дружба-магия-радость!
     

  4. Пользователь сказал cпасибо:

    Free Admin (16.11.2016)

  5. #4  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Pascal Code:
    1. uses crt;
    2. const aX : array [1..10] of real =(1.1, -2.2, 7.5, 4.3, -5.8, 0.1, -4.6, 8.0, 10.1, 9.0 );
    3.       aY : array [1..10] of real =(5.1, 3.2, 10.3, 6.3, 2.8, -0.1, 7.7, 5.0, -10.1, 9.2 );
    4.       aZ : array [1..10] of real =(-2.1, -2.5, 7.2, -3.3, 5.8, 0.9, -4.8, -8.5, 10.5, 9.1 );
    5. var i, k:integer;
    6.     maxX, maxY, maxZ, l : real;
    7. begin
    8.   clrscr;
    9.   k:=0;
    10.   l:=0;
    11.   maxX:=-15;
    12.   maxY:=-15;
    13.   maxZ:=-15;
    14.   for i:=1 to 10 do
    15.     begin
    16.       if aX[i]>=0 then
    17.         if (aY[i]>maxY) and (aZ[i]>maxZ) then
    18.           begin
    19.             maxY:=aY[i];
    20.             maxZ:=aZ[i];
    21.             k:=i;
    22.             l:=(maxY+maxZ)/2;
    23.           end;
    24.       end;
    25.    if k=0 then
    26.      begin
    27.        for i:=1 to 10 do
    28.          if aX[i]>maxX  then maxX:=aX[i];
    29.        l:=1+(maxX*maxX);
    30.      end;
    31.    wrete(' l= ', l);
    32.    if k=0 then writeln(' выполнилось вторе условие')
    33.    else writeln(' выполнилось первое условие')
    34.    readkey;
    35. end;
     

  6. 2 пользователя(ей) сказали cпасибо:

    Free Admin (16.11.2016), Абадябер (14.11.2014)

  7. #5  
    Admin
    Регистрация
    09.04.2014
    Сообщений
    1,212
    Сказал(а) спасибо
    776
    Поблагодарили 488 раз(а) в 401 сообщениях
    Андрей, украинский народ это наш народ побратим, и лично я к украинскому языку я отношусь положительно.
    Но у нас на форуме есть правила, форум ведётся на русском языке, поэтому прошу Вас следующий раз тему размещать на русском языке. Следующую тему не на русском языке просто удалю!
    Спасибо.


    Эту тему закрываю!
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •