Ввести с клавиатуры два списка А и В, состоящих из 10 элементов. Решить уравнение ах=b, подставляя вместо а и b значения из списков. Результат вычислений поместить в список Х. Вывести на экран списки А, В, Х и все элементы списка Х, целая часть которых кратна 5.
Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new List<real>;
a.AddRange(ReadSeqReal('Введите список А:',10));
var b:=new List<real>;
b.AddRange(ReadSeqReal('Введите список B:',10));
var x:=new List<real>;
x.AddRange(a.Zip(b,(p,q)->q/p));
Write('A: '); a.Println;
Write('B: '); b.Println;
Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println;
end.
Пример
Введите список А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите список B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new List<real>;
a.AddRange(ReadSeqReal('Введите список А:',10));
var b:=new List<real>;
b.AddRange(ReadSeqReal('Введите список B:',10));
var x:=new List<real>;
x.AddRange(a.Zip(b,(p,q)->q/p));
Write('A: '); a.Println;
Write('B: '); b.Println;
Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println;
end.
Пример
Введите список А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите список B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад