Задание 1. c.90 задание1
Дана длина стороны квадрата. Составь программный код,
который будет вычислять площадь и периметр квадрата.
Записать программный код.

Задание 2.
С.90 задание 3.
Даны слова ‘Nur’ и ‘Sultan’. Составь программу, которая соберет из этих слов название столицы страны. Три раза выведи слово на экран.

Задание 3.
С.91 задание 8.
Дано выражение с переменными x, y и z. Составь программу, которая вычисляет значение этого выражения.

Задание 4.
С.92 задание 12 (1,2 столбик)
Вычисли, используя методы выполнения целочисленного деления и вычисления остатка от деления. Например: 26//4=6

👇

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

Ответ:

numucirad

13.05.2021

side = 40

p = side * 4 # периметр

S = side**2 # площадь

print(f"{p} - периметр | {S} - Площадь ")

Объяснение:

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

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

Ответ:

lianaderzkaya82

13.05.2021

// PascalABC.NET 3.0, сборка 1076
type
Point=record
x,y:real
end;
Line=record
A,B:Point
end;
Triangle=record
A,B,C:Point;
sa,sb,sc:real; { длины сторон }
end;

procedure GetPoint(PointName:char; var M:Point);
begin
Write('Введите координаты точки ',PointName,'(x,y): ');
Read(M.x,M.y)
end;

function LineLength(A,B:Point):real;
begin
LineLength:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

procedure CreateTriangle(var T:Triangle; var l:boolean);
begin
With T do begin
    GetPoint('A',A);
    GetPoint('B',B);
    GetPoint('C',C);
    sa:=LineLength(B,C);
    sb:=LineLength(A,C);
    sc:=LineLength(A,B);
    l:=(sa+sb>sc) and (sa+sc>sb) and (sb+sc>sa)
end
end;

function TriangleIsLikes(T1,T2:Triangle):boolean;
var
k1,k2,k3:real;
begin
k1:=T1.sa/T2.sa; k2:=T1.sb/T2.sb;
if k1=k2 then begin
    k3:=T1.sc/T2.sc;
    TriangleIsLikes:=k1=k3
    end
else
    TriangleIsLikes:=False
end;

var
T1,T2:Triangle;
legal:boolean;
begin
Writeln('*** Первый треугольник ***');
CreateTriangle(T1,legal);
if legal then begin
    Writeln('*** Второй треугольник ***');
    CreateTriangle(T2,legal);
    if legal then
      if TriangleIsLikes(T1,T2) then Writeln('Треугольники подобны')
      else Writeln('Треугольники не подобны')
    else Writeln('Треугольник невозможно построить')
    end
else Writeln('Треугольник невозможно построить')
end.

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

Ответ:

kseshkaShkolnikova

13.05.2021

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
const
n=5;
type
Matrix=array[1..n,1..n] of integer;

procedure DummySchool(var a:Matrix);
begin
Writeln('Ввод элементов матрицы');
for var i:=1 to n do begin
    Write(n,' элементов строки ',i,': ');
    for var j:=1 to n do Read(a[i,j]);
    end;
Writeln('Сформирована матрица ',n,'x',n);
for var i:=1 to n do begin
    for var j:=1 to n do Write(a[i,j]:5);
    Writeln
    end
end;

begin
var B:Matrix;
DummySchool(B);
var sn:=0;
var sp:=0;
for var i:=1 to n do
    for var j:=1 to n do
      if B[i,j]<0 then sn+=B[i,j]
      else
        if B[i,j]>0 then sp+=B[i,j];
Writeln('Сумма отрицательных ',sn);
Writeln('Сумма положительных ',sp)
end.

Тестовое решение:
Ввод элементов матрицы
5 элементов строки 1: 6 23 -5 13 9
5 элементов строки 2: 42 0 -38 16 37
5 элементов строки 3: -5 -18 3 11 8
5 элементов строки 4: 9 13 -11 0 3
5 элементов строки 5: 19 -17 0 15 5
Сформирована матрица 5x5
    6   23   -5   13    9
   42    0 -38   16   37
   -5 -18    3   11    8
    9   13 -11    0    3
   19 -17    0   15    5
Сумма отрицательных -94
Сумма положительных 232

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

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

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

08.06.2020

Подробная инструкция: Как установить McAfee SiteAdvisor для Chrome...

Финансы-и-бизнес

10.05.2020

Как избежать ошибок в дейтрейдинге...

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

18.12.2021

Как сделать кожаные браслеты своими руками: простые шаги для начинающих...

Семейная-жизнь