|
Решение задач в Паскале
|
|
Вариант 5
Задана матрица вещественных чисел A размерности n×n. Поменять местами элементы, расположенные над главной и побочной диагоналями с элементами, расположенными под ними ( первую строку с последней, вторую спредпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с
клавиатуры.
|
|
|
|
Здравствуйте! Помогите решить.
1. Напишите программу, которая по заданному
натуральному n печатает рисунок:
(n=3)
(рисунок три окружности друг на друге в форме снеговика).
2. Напишите программу, которая по заданному
натуральному n печатает первые n чисел
последовательности 1, 2, 4, 8, 16, 32 (n=6).
спасибо!
|
|
|
|
|
|
Подсчитать количество и порядковые номера элементов ЛОС, значения информационных полей которых равны значению информационного поля предыдущего элемента.
Помогите пожалуйста девушке одолеть Паскаль)))
Пат
№ 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
|
|
|
|
Цитата 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
|
|
|
|
Цитата 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
|
|
|
|
