Форум программистов, компьютерный форум, киберфорум
Наши страницы
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
Валериия
0 / 0 / 0
Регистрация: 28.12.2017
Сообщений: 2
#1

Перевести программу из паскаля в кумир - Программирование

28.12.2017, 19:05. Просмотров 105. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
  ar: Array[Byte, Byte] Of Real;
  i, j: Byte;
  k, n, m: Integer;
  mult: Extended; //Double | Real
begin
  repeat
    Write('Input row count(1..256): ');
    ReadLn(n);
  until ((n > 0) And (n < 257));
  repeat
    Write('Input column count(1..256): ');
    ReadLn(m);
  until ((m > 0) And (m < 257));
  repeat
    Write('Input K(1..', m,'): ');
    ReadLn(k);
  until ((k > 0) And (k <= m));
  mult := 1;
  Randomize;
  WriteLn('Original matrix:');
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
    begin
      ar[i, j] := Random * 198 - 99;
      Write(ar[i, j]:7:2);
      if (j = k - 1)
      then
        mult := mult * ar[i, j];
    end;
   WriteLn;
  end;
  WriteLn; WriteLn('ANSWER=', mult:0:2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2017, 19:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести программу из паскаля в кумир (Программирование):

Перевести программу из паскаля в кумир
Program z1; uses crt; const nmax=20; var n,x,s,y,p,i:integer; A:array ...

Перевести программу из паскаля в кумир
Var a: array of integer; i, k, max: integer; begin k:=1;for i:=1 to 10 do...

Перевести из паскаля в кумир
var i, n: integer; s: real; begin write('n = '); read(n); ...

Перевод из паскаля в кумир
Помогите перевести на кумир, пожалуйста! program E6; var a, b: integer; ...

Перевод с Паскаля на КуМир
var st: string; i: integer; begin readln(st); for i:=1 to...

Перевод с Паскаля на Кумир - программирование
var a : array of integer ; n,i,k:integer; begin randomize; write('Введите...

3
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25622 / 17175 / 6836
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
28.12.2017, 21:31 #2
Код
алг
нач
  цел N, M, K
  цел i, j
  вещтаб A[0:255, 0:255]
  вещ mult
  
  нц
    вывод "Input row count (1 .. 256) :"
    ввод N
  кц при (N > 0) и (N < 257)
  нц
    вывод "Input col count (1 .. 256) :"
    ввод M
  кц при (M > 0) и (M < 257)
  нц
    вывод "Input k (1 .. ", M, "): "
    ввод K
  кц при (K > 0) и (K <= M)

  mult := 1
  нц для i от 0 до N-1
    нц для j от 0 до M-1
      A[i, j] := rnd(198) - 99
      вывод A[i, j]:7:2
      если j = K-1 то
        mult := mult * A[i, j]
      все
    кц
    вывод нс
  кц
  вывод нс
  вывод "Ответ: ", mult
кон
1
Валериия
0 / 0 / 0
Регистрация: 28.12.2017
Сообщений: 2
28.12.2017, 22:13  [ТС] #3
что такое mult?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25622 / 17175 / 6836
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
28.12.2017, 22:41 #4
Переменная так называется, она же и в Паскалевском коде есть.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2017, 22:41
Привет! Вот еще темы с решениями:

[КуМир] Написать программу расчета стоимости конфет
Напечатать таблицу стоимости 100, 200, 300, ...,2000 г конфет (стоимость 1 кг...

[КуМир] Составить программу нахождения суммы элементов массива
Здравствуйте! Мне нужно составить программу нахождения суммы элементов массива...

[КуМир] Напишите программу, которая выводит на экран в строку все двузначные положительные числа
Спасибо очень помогли. Решите пожалуйста ещё 2 задачи. 1. Напишите программу,...

[КуМир] Квадраты и кубы
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru