Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 02.12.2015
Сообщений: 58
1

Прокомментировать код

19.12.2015, 11:16. Показов 365. Ответов 3
Метки нет (Все метки)

Прочитайте пожалуйста тело программы по действиям , очень надо! начиная с FOR
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
const m=5; n=4;
var
  a: array [1..m,1..n] of Integer;
  i, j, k, p, mn, mx: Integer;
begin
  Randomize;
  for i:=1 to m do begin
  for j:=1 to n do begin
    a[i,j]:=Random(10); Write(a[i,j]:4);
  end; 
WriteLn; end;
  for i:=1 to m do
  for j:=2 to n-1 do begin
     mx:=a[i,1];   
for  p:=2 to j-1 do 
if   mx<a[i,p] then 
     mx:=a[i,p];
     mn:=a[i,j+1]; 
for  p:=j+2 to n do 
if   mn>a[i,p] then mn:=a[i,p];
if (mx<a[i,j]) and (a[i,j]<mn) then Inc(k);
end;
  WriteLn('"Особых" элементов: ',k);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2015, 11:16
Ответы с готовыми решениями:

Прокомментировать код
есть программа, напишите пожалуйста комментарии к 7 выборам case (что делают алгоритмы?), к примеру...

Прокомментировать код
Плохо знаю Паскаль и не могу понять что значат строки. Вот задачка кто сможет подпишите что значат...

Прокомментировать код
Не понимаю как работает: program z168; uses Crt; var a,b,c:longint; a1,b1:longint; begin...

Прокомментировать код
Program matrica; Сonst Nmax = 20; Var A : Array Of Real; i,j,N,Nstr : Byte; S,Smax : Real;...

3
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28023 / 15750 / 971
Регистрация: 15.09.2009
Сообщений: 67,775
Записей в блоге: 78
19.12.2015, 11:19 2
прочитал.
1) константы
2) переменные
5)...
конкретный вопрос будет?

Добавлено через 33 секунды
Цитата Сообщение от IzotopTh232 Посмотреть сообщение
начиная с FOR
с какого, их там несколько...
0
1 / 1 / 0
Регистрация: 02.12.2015
Сообщений: 58
19.12.2015, 11:23  [ТС] 3
Ну действия , все посте первого бегина !

Добавлено через 45 секунд
Действия после бегина , дословно не могу преподу объяснить , что именно там происходит
0
Эксперт Pascal/Delphi
6643 / 4469 / 4748
Регистрация: 05.06.2014
Сообщений: 21,962
19.12.2015, 15:04 4
IzotopTh232, после begin'а инициализация двумерного массива псевдослучайными значениями и вывод их на экран. И т.д.
Цитата Сообщение от magirus Посмотреть сообщение
конкретный вопрос будет?
?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2015, 15:04

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Прокомментировать код
program ex_set_3; var m : set of char; s : string; i : byte; begin write('Введите...

Прокомментировать код
program laba1; uses crt; const nmax = 3; type mas = array of integer; notemas = record ...

Прокомментировать код
Мне нужно знать как вот этот листинг объяснить...желательно про подающие буквы. {Nadpis'} ...

Прокомментировать код
Привет. Вообщем необычная наверно такая просьба) есть 4 готовые задачи и мне нужно обьяснить...


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

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

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