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

Нужна информация кода

27.02.2011, 13:32. Просмотров 397. Ответов 8
Метки нет (Все метки)

Здравствуйте, программисты. Нужна помощь. Дан код, см. ниже, нужно написать к каждой строке что оно означает и что делает... Т.е. полностью рассказать как работает это программа по коду.

Вот собственно код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Main;
uses crt;
var
mass1:array [1..10] of integer;
mass2:array [1..10] of integer;
i:integer;
  begin
  clrscr;
  randomize;
     for i:=1 to 10 do
          begin
          mass1[i]:=random(10);
          mass2[i]:=random(10);
          writeln(i,'  element massiva 1:  ',mass1[i]);
          writeln(i,'  element massiva 2:  ',mass2[i])
          end;
     for i:=1 to 10 do
     if mass1[i]=mass2[i] then
     writeln('odinakovi: ', mass1[i],'  index 4isla:', i);
     readkey;
  end.
Заранее спасибо огромное!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 13:32
Ответы с готовыми решениями:

Нужна информация о знаках $ и # в паскале
Учусь в институте и в общем-то с программированием всегда был полный порядок....

Паскаль - нужна информация по методу дихотомии
Подскажите пожалуйста учебник в котором описан метод дихотомии?

Нужна адаптация кода для TMT Pascal
нужно переделать код из турбо паскаля в тмт паскаль. есть какой то общий...

Напишите фрагмент кода для определения кода нажатой клавиши (расширенного кода в том числе)
Напишите фрагмент кода для определения кода нажатой клавиши (расширенного кода...

СРОЧНО НУЖНА ПОМОЩЬ! Нужна информация о тест оборудовании
Доброго времени суток! Интересует информация (книги, статьи, научные статьи,...

8
Ev[G]eN
iOS/Android Developer
Эксперт С++
5118 / 1556 / 950
Регистрация: 23.01.2011
Сообщений: 3,185
Завершенные тесты: 1
27.02.2011, 14:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
mass1:array [1..10] of integer;  {обьявление первого массива}
mass2:array [1..10] of integer;  {обьявление второго массива}
i:integer;                       {индекс массивов}
  begin
  randomize;                     {генератор слу4айных 4исел}
     for i:=1 to 10 do           {на4ало цикла}
          begin
          mass1[i]:=random(10);  {заполнение первого массива слу4айными 4ислами}
          mass2[i]:=random(10);  {заполнение второго массива слу4айными 4ислами}
          writeln(i,'  element massiva 1:  ',mass1[i]); {поо4ередный вывод элементов первого массива}
          writeln(i,'  element massiva 2:  ',mass2[i])  {поо4ередный вывод элементов второго массива}
          end;                   {конец цикла}
     for i:=1 to 10 do           
     if mass1[i]=mass2[i] then   {если элемент первого массива = элементу второго массива, то...}
     writeln('odinakovi: ', mass1[i],'  index 4isla:', i);  {вывести какие элементы одинаковые и их индексы}
  end.
1
protrence
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 18
27.02.2011, 14:29  [ТС] 3
Ev[G]eN, спасибо огромное!!!
0
Ev[G]eN
27.02.2011, 14:32
  #4

Не по теме:

пытался как можно понятней написать..вопросов не возникло?

0
protrence
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 18
27.02.2011, 15:16  [ТС] 5
Нет... Наоборот понял даже очень хорошо! Ещё раз спасибо!

Добавлено через 35 минут
Ev[G]eN, нужна ещё одна просьба по этой теме...
К этому коду надо нарисовать блок схему... Надеюсь поможете =)
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5118 / 1556 / 950
Регистрация: 23.01.2011
Сообщений: 3,185
Завершенные тесты: 1
27.02.2011, 15:31 6
Цитата Сообщение от protrence Посмотреть сообщение
К этому коду надо нарисовать блок схему... Надеюсь поможете =)
к сожалению с блок-схемами не дружу..

Добавлено через 51 секунду
делайте по моему описанию кода...это не составит труда
0
protrence
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 18
27.02.2011, 23:42  [ТС] 7
Никак не могу составить блок-схему... получается какая-то фигня...
Помогите плиз!!!
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
28.02.2011, 00:00 8
.....
0
Миниатюры
Нужна информация кода  
protrence
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 18
28.02.2011, 00:25  [ТС] 9
SuPeR XaKer, спасибо большое... С меня бутылка пива
0
28.02.2011, 00:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 00:25

Реализовать передачу - прием информации. С одного ПК на другой, реализовать нужна с помощью (winapi с++). Нужна информация или книги
Необходимо реализовать передачу - прием информации. С одного ПК на другой,...

Нужна информация о CD-R...
Прошу помощи!! Мне необходимо написать программу на подобе nero. Т.е выбор...

Нужна информация
Добрый день. Мне в для реферата нужна информация "Рабочее окно редактора...


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

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

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