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

В чём причина невыполнения программы?

11.04.2015, 23:09. Показов 342. Ответов 1
Метки нет (Все метки)

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
36
37
38
39
40
41
42
43
program lb7;
uses crt;
var C:array [1..10] of integer;
A:array [1..10] of integer;
B:array [1..10] of integer;
m,i,j: integer;
begin
writeln('Введите 10 элементов массива A: ');
For i:=1 to 10 do
begin
readln(A[i]);
end;
writeln;
write('A: ');
for i:=1 to 10 do
begin
write(A[i], ' ');
end;
writeln;
writeln('Введите 10 элементов массива B: ');
For j:=1 to 10 do
begin
readln(B[j]);
end;
writeln;
write('B: ');
for j:=1 to 10 do
begin
write(B[j], ' ');
end;
writeln;
for m:=1 to 10 do begin
for i:=1 to 10 do begin
for j:=1 to 10 do
begin
if A[i] mod 2 = 0 
then 
C[m]:=A[i]
else
C[m]:=B[j];
write(C[m], ' ');
end; end; end;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2015, 23:09
Ответы с готовыми решениями:

Косяки в работе программы. В чем причина?
Здравствуйте! Возникла следующая трудность: программа неправильно выдает результат при первом вводе...

Подскажите в чем причина зацикливания программы?
Доброго всем времени суток. Я разрабатываю интерфейс управления Базой Данных Firebird 2.5 через...

Непредсказуемое поведение программы. В чем причина?
Добрый день. Недавно, после 2-3 дней с окончания написания программы время от времени некоторые из...

В чём причина ошибок в работе программы Adobe Photoshop 7.0?
Всем привет! Прошу помощи и совета =) Винда 7 домашняя базовая, 64 бит. Итак, ситуация: 1....

1
Вирусоборец
7618 / 5087 / 845
Регистрация: 06.09.2009
Сообщений: 20,178
12.04.2015, 00:00 2
Условие ведь и не написали, потому рискну предположить, что вместо
Pascal
1
2
3
4
5
6
7
8
9
10
11
for m:=1 to 10 do begin
for i:=1 to 10 do begin
for j:=1 to 10 do
begin
if A[i] mod 2 = 0 
then 
C[m]:=A[i]
else
C[m]:=B[j];
write(C[m], ' ');
end; end; end;
должно быть

Pascal
1
2
3
4
5
6
7
for i:=1 to 10 do
begin
 if A[i] mod 2 = 0 
  then C[i]:=A[i]
  else C[i]:=B[i];
 write(C[i], ' ');
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2015, 00:00

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

В чём причина причина в бд или в коде?
Вывожу данные в datagridview,видны только цифры во всех таблицах.Может кто сталкивался? Испытал...

В чем причина?
Недавно добавил 2 новых канала (остальные без канала были) показы и клики есть, деньги есть, но эти...

В чем причина?
С момента использования сессий иногда после выполнения скрипта на браузере выходит такое сообщение....

В чем причина?
Здравствуйте! Вышла Assassins Creed 3 на PC и я ее купил. Комп по системным требованиям подходит:...

В чем причина
Вообщем по идеи в следующим коде по матрице ну хотя-бы вообще должна бегать буква J. Но почему-то...

В чем причина?
При авторизации пользователя который был зарегистрирован самым первым в БД, все проходит успешно,...


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

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

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