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

Тема: Нужна помощь!

  1. #1 Нужна помощь! 
    Новичок
    Регистрация
    23.01.2015
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1. Создайте массив А[1..8] с помощью генератора случайных чисел с элементами от –10 до 10 и выведите его на экран. Подсчитайте количество отрицательных элементов массива.
    2. Создайте программу для вычисления площади прямоугольного треугольника по его катетам а и б.
    3. Программа для ведода с клавиатуры целочисленные элементы матрицы 3*3 и вычислите сумму элементов каждого столбца.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Вадим Шадрин, внимательно читаем правила форума. Дублирование тем запрещено. п.5.6.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. #3  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Пользователь AlexQ уже сделал первую:

    Pascal Code:
    1. program a1;
    2. uses crt;
    3. var
    4. a: array [1..8] of integer;
    5. i,col: integer;
    6. begin
    7. clrscr;
    8. randomize;
    9. for i:=1 to 8 do
    10.   begin
    11.    a[i]:=random(21)-10;
    12.    write(a[i],' ');
    13.    if a[i]<0 then inc(col);
    14.   end;
    15. writeln;
    16. writeln('col<0=',col);
    17. readkey;
    18. end.


    2. Создайте программу для вычисления площади прямоугольного треугольника по его катетам а и б
    Pascal Code:
    1. Uses Crt;
    2.   // Объявление переменных для хранения катетов и площади
    3. Var a, b, S: real;
    4. Begin
    5.   ClrScr;
    6.  
    7.   Writeln('Введите первый катет:');  ReadLn(a);
    8.   Writeln('Введите второй катет:');  ReadLn(b);
    9.  
    10.   // Вычисление площади
    11.   S := (a * b) * 0.5;
    12.  
    13.   Writeln('Площадь прямоуг. треуг = ', S:4:4);
    14.   ReadLn;
    15. End.
    Последний раз редактировалось >Quiet Snow<; 25.01.2015 в 18:12.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    3.
    Pascal Code:
    1. Uses Crt;
    2. Var ix, iy, S : Integer;
    3.     Mtr    : Array[1..3, 1..3] of Integer;
    4. Begin
    5.   ClrScr;
    6.   Writeln('Введите матрицу.');
    7.  
    8.   {  Заполнение матрицы  }
    9.   For iy := 1 TO 3 Do Begin
    10.      WriteLn('  Столбец: ', iy);
    11.      For ix := 1 TO 3 Do Begin
    12.         Write('    Строка: ', ix, '   Введи значение: ');
    13.         ReadLn(Mtr[ix, iy]);
    14.      End;
    15.   End;
    16.  
    17.   {  Вывод матрицы  }
    18.   WriteLn('Наша матрица:');
    19.   For iy := 1 TO 3 Do Begin
    20.      For ix := 1 TO 3 Do Begin
    21.         Write(Mtr[ix, iy]:5);
    22.      End;
    23.      Writeln;
    24.   End;
    25.  
    26.   {  Подсчёт и вывод сумм  }
    27.   WriteLn('Суммы элементов в столбцах:');
    28.   For ix := 1 TO 3 Do Begin
    29.      S := 0;
    30.      For iy := 1 TO 3 Do Begin
    31.         S := S + Mtr[ix, iy];
    32.      End;
    33.      Writeln('  Сумма столбца ', ix, ' = ', S);
    34.   End;
    35.  
    36.   Repeat Until KeyPressed;
    37. End.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

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

    Абадябер (24.01.2015)

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

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

Похожие темы

  1. Нужна помощь профессионала
    от kernelius в разделе Общие вопросы программирования
    Ответов: 0
    Последнее сообщение: 07.04.2014, 13:36
  2. Нужна помощь
    от RainPain в разделе Общие вопросы про железо
    Ответов: 2
    Последнее сообщение: 27.01.2014, 13:47
  3. Нужна помощь!
    от Станислав Юдашкин в разделе Сети
    Ответов: 3
    Последнее сообщение: 20.06.2013, 08:40
  4. Нужна помощь
    от Денис Платонов в разделе MySQL
    Ответов: 2
    Последнее сообщение: 19.03.2013, 16:55
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •