М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
PokerFresh
PokerFresh
28.07.2020 19:09 •  Информатика

Информатика 3класс а. в. горячев 1часть 39

👇
Ответ:
maksimprikhodko
maksimprikhodko
28.07.2020
А где задание то???
4,7(37 оценок)
Ответ:
RosalinaT14
RosalinaT14
28.07.2020
Задание дай, будет и ответ.
4,6(8 оценок)
Открыть все ответы
Ответ:
dyumaevanastasy
dyumaevanastasy
28.07.2020

Windows - тың анықтамалық жүйесі.

Программалық жабдықтар интерфейсіндегі негізгі элемент- оның анықтамалық жүйесі. Онда әрбір қолданушыларға қасиетті информация толық түрде болуы тиіс. Windows ортасының бір артықшылығы- оның анықтамалық жүйесі бар программаларға ортақ.

едәуір толықтыруына байланысты бумы ОЖ д.а.

Windows 3.X ОЖ- ң алғашқы сұлбасы б.т., Windows қосымшаларының жұмыс мүмкіндіктерін қамтамасыз ете отырып сонымен қатар MS DOS –тың барлық қолданбалы программаларын қолдайды. Мысалы: мәтіндік процессор, деректор қоймасын

4,4(43 оценок)
Ответ:
vitalinaartikov
vitalinaartikov
28.07.2020
{$APPTYPE CONSOLE}
Var
   A:array of array of real;
   n,m,i,j,C:integer;
Procedure BBODGRANIC();
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
SetLength(A,n,m);
End;

Procedure ZAPOLNENIERND();
Var i,j:integer;
Begin
Randomize;
For i:= 0 to n-1 do
    For j:= 0 to m-1 do
        A[i,j]:=random*21-10;
End;

Procedure BbIBOD();
Var i,j:integer;
Begin
Write('':3);
For i:= 0 to m-1 do
    Write(i:5,' ');
WriteLn;
For i:= 0 to n-1 do
    Begin
    Write(i:2,' ');
    For j:= 0 to m-1 do
        Write(A[i,j]:5:1,' ');
    WriteLn;
    End;
End;

Procedure RE();
Begin
Write('i = ');ReadLn(i);
Write('j = ');ReadLn(j);
Write('A[',i,',',j,'] = ');ReadLn(A[i,j]);
End;

Procedure SUMDOk();
Var
   k,i,j:integer;
   S:real;
Begin
Repeat
Write('k = ');ReadLn(k);
Until k > 0;
m:=m+1;
SetLength(A,n+1,m+1);
if k > m then k:=m;
For i:= 0 to n-1 do
    Begin
    S:=0;
    For j:= 0 to k-1 do
        S:=S+A[i,j];
    For j:= m downto k do
        A[i,j]:=A[i,j-1];
    A[i,k-1]:=S;
    End;
End;

Begin
BBODGRANIC();
ZAPOLNENIERND();
BbIBOD();
Repeat
WriteLn;
WriteLn('1 - изменить размеры массива');
WriteLn('2 - заполнить массив случайными числами');
WriteLn('3 - ввести новое значение заданного элемента');
WriteLn('4 - вычислить суммы элементов в каждой строке до k-ого столбца и вставить их перед k-столбцом.');
WriteLn('5 - вывод массива');
WriteLn('9 - выход');
ReadLn(C);
Case C of
1:BBODGRANIC;
2:
  Begin
  ZAPOLNENIERND;
  BbIBOD;
  End;
3:RE;
4:
  Begin
  SUMDOk();
  BbIBOD
  End;
5:BbIBOD;
End
Until C = 9;
End.
4,8(14 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ