Новые сообщения · Правила  
  • Страница 7 из 7
  • «
  • 1
  • 2
  • 5
  • 6
  • 7
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
Решение задач в Паскале
Вариант 5

Задана матрица вещественных чисел A размерности n×n. Поменять местами элементы, расположенные над главной и побочной диагоналями с элементами, расположенными под ними ( первую строку с последней, вторую спредпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с
клавиатуры.
121 | Автор: san9ka3ak | 2017-05-04, 12:35   |  Репутация: [ + 0 ]
Здравствуйте! Помогите решить.

1. Напишите программу, которая по заданному
натуральному n печатает рисунок:
(n=3)  
(рисунок три окружности друг на друге в форме снеговика).

2.  Напишите программу, которая по заданному
натуральному n печатает первые n чисел
последовательности 1, 2, 4, 8, 16, 32 (n=6).

спасибо!
122 | Автор: sohay | 2017-05-22, 12:26   |  Репутация: [ + 0 ]
Спасибо Вам!
123 | Автор: Fsmini | 2019-11-14, 11:36   |  Репутация: [ + 0 ]
Подсчитать количество и порядковые номера элементов ЛОС, значения информационных полей которых равны значению информационного поля предыдущего элемента.
Помогите пожалуйста девушке одолеть Паскаль)))


Пат
124 | Автор: Дарья234509 | 2020-10-28, 14:50 | Изменено: Дарья234509 - Ср, 2020-10-28, 14:51   |  Репутация: [ + 0 ]
Цитата sohay ()
1. Напишите программу, которая по заданномунатуральному n печатает рисунок:
(n=3)  
(рисунок три окружности друг на друге в форме снеговика).


USES GraphABC;//подключения модуля графАВС
begin
  SetWindowWidth(800); // ширина окна программы
  SetWindowHeight(600); // высота окна программы
  var n:=3;
  Circle(325,180, n*10); // голова {окружность}
  Circle(325, 260, n*20); // туловище
  Circle(325, 380, n*30); // основание
end.


GeRa
125 | Автор: rageo | 2021-03-14, 15:12   |  Репутация: [ + 16 ]
Цитата sohay ()
2.  Напишите программу, которая по заданномунатуральному n печатает первые n чисел
последовательности 1, 2, 4, 8, 16, 32 (n=6).


begin
  var n := 6;
  var p := 1;
  Print(p);
  for var i := 2 to n do
  begin
    p := p * 2;
    Print(p);
  end;
end.


GeRa
126 | Автор: rageo | 2021-03-14, 15:24   |  Репутация: [ + 16 ]


GeRa
126 | Автор: rageo | 2021-03-14, 15:24   |  Репутация: [ + 16 ]
Цитата NaX ()
Помогите, пожалуйста, с задачкойпо циклам:
Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в A тонн. Ежегодный план отлова B тонн.
Подсчитать, сколько лет можно выдерживать заданный план?


 begin
   var A :=readreal('Каковы Запасы рыбы?');
   var B:=readreal ('План отлова?');
   var i:=0;
   repeat
     A:=(A+A*0.15)-B;
     i+=1;
   until A<1;
   print(i,'лет можно ловить')
 end.


GeRa
127 | Автор: rageo | 2021-03-14, 17:25   |  Репутация: [ + 16 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
  • Страница 7 из 7
  • «
  • 1
  • 2
  • 5
  • 6
  • 7
Поиск: