Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Licwin
3 / 4 / 0
Регистрация: 18.11.2010
Сообщений: 126
1

Коментарии к строчкам

29.06.2011, 10:02. Просмотров 241. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var a,b:array[1..15] of integer; c:array[1..31] of integer; 
i:byte;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random(10)+1;
Write('a[',i,']=',a[i],' ');
b[i]:=random(30)-20;
Write('b[',i,']=',b[i],' ');
end;
Writeln;
for i:=1 to 31 do
begin
if i mod 2<>0
then c[i]:=a[i]
else c[i]:=b[i];
Write('c[',i,']=',c[i],' ');
end;
readln;
end.
напишите комментарии к строчкам кроме i:byte; циклов for, и операторов if!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2011, 10:02
Ответы с готовыми решениями:

Комментарии к строчкам программы
1.uses crt; {Подключение модуля CRT} var a:array of integer; {Описание переменных} i,n: integer;...

коментарии
у меня есть программа: program a1; uses crt; var m2,n2,i: integer; m,n: real; begin ...

Расставить коментарии
всем привет=) нужно раставить коментарии к следующим решённым задачам: 1)Дано натуральное число N....

Коментарии к программе
Пожалуйста, поясните каждый элемент программы: uses crt; var i,j,n,k,imin:byte; a:array of...

Нужен коментарии к игре
program tetris; uses crt,graphABC; var ss,nn,x,y,pus,a,b,c,d,lin,rlin:integer; st:array of...

2
Puporev
Модератор
55120 / 42359 / 29259
Регистрация: 18.05.2008
Сообщений: 100,109
29.06.2011, 12:26 2
Программа неверно написана, нечего и комментировать.
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
uses crt;
const n=15;
Var a,b,c:array[1..2*n] of integer;
    i:byte;
begin
randomize;
//создаем 2 массива
for i:=1 to n do
  begin
   a[i]:=random(10)+1;//первый заполняем числами от 1 до 10
   b[i]:=random(10)+10;//второй от 11 до 20
  end;
writeln('Массив A:');  //выводим на экран
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Массив B:');
for i:=1 to n do
write(b[i]:4);
writeln;
for i:=1 to 2*n do //создаем новый массив
if i mod 2<>0 then c[i]:=a[i div 2+1]//на нечетные места пишем элементы первого
//1 div 2+1=0+1=1, 3 div 2 +1=1+1=2..........
else c[i]:=b[i div 2];//на четные элементы второго 2 div 2=1, 4 div 2=2.....
writeln('Массив C:');
for i:=1 to 2*n do
write(c[i]:4);
readln;
end.
1
Licwin
3 / 4 / 0
Регистрация: 18.11.2010
Сообщений: 126
29.06.2011, 12:34  [ТС] 3
спс)!!! бальшое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2011, 12:34

Написать пояснения к двум строчкам кода программы
Задача: Составить программу проверки существования файла на диске Напишите, пожалуйста, что...

Квазиагональная матрица, над найти максимум по строчкам
Квазиагональная матрица, над найти максимум по строчкам.. Непонимаю как сравнивать... Вектора что...

коментарии
Напишите коментарии к каждой строке что делаеться в каждой строке program zv; var A:array ...


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

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

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