Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
 
Crazyroma
3 / 3 / 0
Регистрация: 21.10.2010
Сообщений: 124
#1

Вывести на экран номера и значения положительных элементов массива - Turbo Pascal

21.10.2010, 17:49. Просмотров 825. Ответов 15
Метки нет (Все метки)

Извини за то что беспокою может по пустякам у меня такая не большая проблемка у меня в аудиторие и дома стоит Борланд паскаль только фигня в том что он дома не запускаеться а в универе да!!!!!!Как зделать так чтобы он выводил мне результат дома.Операцыоная система Виндовс 7,тип паскаля Борланд 7.0 паскаль с вшытым имулятор МС-ДОС.Или просто выведите мне плиз результат .Вот сама прога,или дайте плиз сылку на робочий норм борланд паскаль тип ошыбки "Ошыбка 215: Арифметичиское переполнение."Помогтите плиз... (Про операцыоную систему написал бо думаю что в ней проблема.)И можете заодно проверить у меня типа как 5 заданий в одном

Найти произведение элементов массива
Вывести на экран номера и значения положительных элементов массива
Вывести на экран номера и значения отрицательных элементов массива
Вычислить сумму четных элементов
Вычислить сумму нечетных элементов



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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
program lab5;
var
mas:array[1..10] of integer;
mas1:array[1..10,1..10] of integer;
i,j,n,sumch,sumscn:integer;
begin
Randomize;
for i:=1 to 10 do
begin
mas[i]:=random(11)-5;
writeln (mas[i],',');
end;
readln;
 
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
mas1[i,j]:=random(11)-5;
write(mas1[i,j],', ');
if j = 10 then writeln;
end;
readln;
 
 
for i:=1 to 10 do
begin
if mas[i]>0 then write(mas[i],', ');
end;
readln;
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
if mas1[i,j]>0 then write(mas1[i,j],',');
end;
readln;
 
for i:=1 to 10 do
begin
if mas[i]<0 then write(mas[i],', ');
end;
readln;
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
if mas1[i,j]<0 then write(mas1[i,j],',');
end;
readln;
 
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
if mas1[i,j]mod 2=0 then sumscn:=sumscn+mas1[i,j]
else sumch:=sumch+mas1[i,j];
writeln('sumscn:=',',');
writeln('sumch:=',',');
readln;
end;
 
for i:=1 to 10 do
begin
if mas[i] mod 2=0 then sumscn:=sumscn+mas[i] else sumch:=sumch+mas[i];
writeln('sumch=',',');
writeln('sumscn=',',');
readln;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2010, 17:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести на экран номера и значения положительных элементов массива (Turbo Pascal):

Вывести на экран сумму, произведение и номера положительных элементов одномерного массива после последнего нулевого элемента - Turbo Pascal
Помогите пожалуйста решить задачи, очень нужно 1. Вывести на экран сумму, произведение и номера положительных элементов одномерного...

Вывести на экран сумму, произведение и номера положительных элементов после последнего нулевого элемента - Turbo Pascal
Вывести на экран сумму, произведение и номера положительных элементов после последнего нулевого элемента

Вывести на экран сумму, произведение и номера положительных элементов после последнего нулевого элемента - Turbo Pascal
вывести на экран сумму, произведение и номера положительных элементов после последнего нулевого элемента.

Вывести номера элементов и количество элементов массива, имеющих нулевые значения - Turbo Pascal
Дан одномерный массив. Вывести номера элементов и количество элементов, имеющих нулевые значения. Если таких элементов нет, то выдать...

Вывести на экран номера строк, в которых произведение элементов попадает в интервал [А ; В], а также соответствующие значения произведения - Turbo Pascal
Помогите решить задачу пожалуйста. Вывести на экран номера строк, в которых произведение элементов попадает в интервал , а также...

Вывести номера и значения тех элементов массива, которые меньше своих соседей - Turbo Pascal
Дан массив D из n элементов (n&lt;=45). Вывести номера и значения тех элементов массива, которые меньше своих соседей. есть код, но он не...

15
Crazyroma
3 / 3 / 0
Регистрация: 21.10.2010
Сообщений: 124
21.10.2010, 22:06  [ТС] #16
SuPeR XaKer, Спасибо всьо уже роботает)))))Я зделал)))

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
program lab5;
var
mas:array[1..10] of integer;
mas1:array[1..10,1..10] of longint;
i,j,n,sumch,sumnch:integer;
begin
Randomize;
for i:=1 to 10 do
begin
mas[i]:=-5+random(11);
writeln (mas[i],',');
end;
readln;
 
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
mas1[i,j]:=-5+random(11);
write(mas1[i,j],', ');
if j = 10 then writeln;
end;
readln;
 
 
for i:=1 to 10 do
begin
if mas[i]>0 then writeln (mas[i],',');
end;
readln;
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
if mas1[i,j]>0 then write(mas1[i,j],', ');
end;
readln;
 
for i:=1 to 10 do
begin
if mas[i]<0 then writeln (mas[i],',');
end;
readln;
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
if mas1[i,j]<0 then write(mas1[i,j],', ');
end;
readln;
 
 
sumch:=0;
sumnch:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
if not odd (mas1[i,j]) then
sumnch:=sumnch+mas1[i,j];
if odd(mas1[i,j]) then
sumch:=sumch+mas1[i,j];
end;
writeln;
writeln('sumnch:=',sumnch:7);
writeln('sumch:=',sumch:7);
readln;
 
for i:=1 to 10 do
begin
if not odd(mas[i]) then sumnch:=sumnch+mas[i];
if odd(mas[i]) then sumch:=sumch+mas[i];end;
writeln('sumnch:=',sumnch:3);
writeln('sumch:=',sumch:3);
readln;
end.
Добавлено через 9 минут
Цитата Сообщение от vasy02 Посмотреть сообщение
чёт картинка какая то маленькая нихрена не понятно

Добавлено через 3 минуты
а разобрались оказывается, я ато вторую страничку то и не видел, классный форум сток всего нового узнаёшь хоть и ничё не понимаешь

Добавлено через 31 секунду
а я те паскаль уже отправил(
Спасибо уже получил
0
21.10.2010, 22:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.10.2010, 22:06
Привет! Вот еще темы с ответами:

Вывести на экран порядковые номера четных элементов массива - Pascal
3. ввести и вывести массив любым способом. вывести на экран порядковые номера четных элементов массива

Вывести на экран дисплея порядковые номера нечетных элементов массива целых чисел - Pascal
Вывести на экран дисплея порядковые номера нечетных элементов массива целых чисел.

Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов - Pascal
Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных...

Вывести на экран новые значения элементов массива - Pascal
Дан массив из 16 чисел. Вывести на экран первоначальные значения элементов массива. Найти максимальный элемент массива и поменять его...


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

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

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