Информатика: Задача: Обчисліть значення виразу y=(a+2b) / b

Задача: Обчисліть значення виразу y=(a+2b) / b

👇

Увидеть ответ

Ответ:

Ansora12

25.03.2021

PascalABC.NET 3.7:

### var (a,b) := RI2; Pr((a + 2*b) / b)
Задача: Обчисліть значення виразу y=(a+2b) / b

4,7(80 оценок)

Открыть все ответы

Ответ:

MariMQ

25.03.2021

Итак, 17 ноября 2009 года на очередной ежегодной суперкомпьютерной конференции «Supercomputing 2009» (SC09), проходившей в Портланде (шт. Орегон), была объявлена 34-я редакция списка пятисот самых мощных компьютеров мира TOP500.

Что же, друзья, время дуть в дудки, стучать в барабаны и размахивать флагами — на 12-м месте списка находится суперкомпьютер «Ломоносов» Московского государственного университета! Впервые Россия оказалась так высоко в TOP500.

Да-да, это тот самый компьютер, который начали монтировать еще летом, и система охлаждения которого отняла половину территории автомобильной стоянки около 2-го учебного корпуса МГУ.

Надеюсь, скоро на parallel.ru или на сайте научно-исследовательского вычислительного центра (НИВЦ МГУ) появится подробное описание новой машины, но пока мы вынуждены ограничиться скудными данными с сайта TOP500:

пиковая производительность

414,42 ТФлопс

реальная производительность

350,10 ТФлопс

процессоры

Intel EM64T Xeon X55xx (Nehalem-EP) 2930 МГц (11,72 ГФлопс)

число процессорных ядер

35 360

общий объем оперативной памяти

54 312 ГБ

коммуникационная сеть

Infiniband

операционная система

Linux

Заканчивая эту заметку, отмечу все установленные в России суперкомпьютеры, которые попали в список TOP500:

12. Ломоносов (НИВЦ МГУ)

38. МВС-100К (МСЦ РАН — Межведомственный Суперкомпьютерный Центр РАН)

107. СКИФ МГУ «Чебышёв» (НИВЦ МГУ) (37-е место в июне 2008 года)

138. IBM BladeCenter HS22 Cluster (банковский сектор)

181. IBM xSeries x3650M2 Cluster (правительственный сектор)

320. HP Cluster Platform 3000 BL460c (РНЦ «Курчатовский институт») (118-е место в ноябре 2008 года)

377–382. IBM Blue Gene/P (факультет ВМК МГУ) (126–130-е место в ноябре 2008 года)

450. СКИФ-Аврора (ЮУрГУ — Южно-Уральский государственный университет)

Кстати, на первом месте TOP500 находится суперкомпьютер Jaguar Cray XT5-HE, установленный в Оук-Риджской национальной лаборатории США. При пиковой производительности в 2331 ТФлопс его реальная производительность составляет 1759 ТФлопс.

4,6(94 оценок)

Ответ:

helpmeplease24

25.03.2021

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
var m := Length(a, 0);
var n := Length(a, 1);
Result := new integer[n, m];
for var i := 0 to n-1 do begin
    for var j := 0 to m-1 do
      Result[i, j] := a[m-1-j, i];
end;
end;

begin
var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
var a :=MatrixRandom(n, n);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(a[i,j]);
    println;
    end;
     println;

Println('поворот влево на 90 гр');
var b := Transpose(a);
b:=Transpose(b);
b:=Transpose(b);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
println;

Println('поворот вправо на 90гр');
b := Transpose(a);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
println;

Println('поворот на 180 гр');
b := Transpose(a);
b := Transpose(b);
for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
end.

4,5(86 оценок)

Это интересно:

Дом-и-сад

16.01.2020

Как удалить сажу с окрашенных поверхностей...

Хобби-и-рукоделие

22.07.2021

Как сделать флаг: простой шаг за шагом гид...

Здоровье

24.10.2021

Как выжить при смещенных дисках...

Компьютеры-и-электроника