IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> массивы, помогите решить задачу
oksana_
сообщение 12.04.2013 19:45
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Женский

Репутация: -  0  +


Создать текстовой массив из 14 элементов ( длинна от 3 до 15 символов), которые вводятся с клавы. Сосчитать и вывести на экран, сколько целых чисел в каждом массиве?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
nikitossssss
сообщение 12.04.2013 19:51
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


Напиши задачу понятнее, массив у тебя один, а ты написала что нужно сосчитать колво элементов в каждом массиве, потом если я верно понял в массив нужно ввести и буквы и символы, а вывести только умму символов?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
oksana_
сообщение 12.04.2013 19:55
Сообщение #3





Группа: Пользователи
Сообщений: 5
Пол: Женский

Репутация: -  0  +


Цитата(nikitossssss @ 12.04.2013 19:51) *

Напиши задачу понятнее, массив у тебя один, а ты написала что нужно сосчитать колво элементов в каждом массиве, потом если я верно понял в массив нужно ввести и буквы и символы, а вывести только умму символов?

а сосчитать и вывести на экран, сколько содержит целых чисел каждый элемент массива.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
nikitossssss
сообщение 12.04.2013 19:59
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


Цитата(oksana_ @ 12.04.2013 20:55) *

а сосчитать и вывести на экран, сколько содержит целых чисел каждый элемент массива.


Например я вовжу 1, f, 5, 8, 9 q,x
И вывожу 1 элемент -1
3 элемент - 5
4 элемент - 8 и т.д.
так??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
oksana_
сообщение 12.04.2013 20:07
Сообщение #5





Группа: Пользователи
Сообщений: 5
Пол: Женский

Репутация: -  0  +


Цитата(nikitossssss @ 12.04.2013 19:59) *

Например я вовжу 1, f, 5, 8, 9 q,x
И вывожу 1 элемент -1
3 элемент - 5
4 элемент - 8 и т.д.
так??

да
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
nikitossssss
сообщение 12.04.2013 20:51
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


Прошу, я конечно не доконца понял что вам надо, но думаю я справился, в любом случае пишите если что, постораюсь исправить, очень хотелось бы увидеть ваш отзыв rolleyes.gif

program misss;

var
bukvi : set of 'a'..'z';
mas1 : array[1..10] of char;
mas2 : array[1..10] of integer;
mas3 : array[1..10] of integer;
i,j : integer;

begin
writeln('vvedite col-vo simvolov');
readln(j);
for i:=1 to j do begin
writeln('vvedite simvol');
readln(mas1[i]);
end;

for i:=1 to j do begin
if mas1[i] in bukvi then mas1[i] :='0';
end;

for i:=1 to j do begin
val(mas1[i],mas2[i],mas3[i]);
end;

for i:=1 to j do begin
writeln(mas2[i],' soderjit celax chisel ',mas2[i]);
end;

end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
nikitossssss
сообщение 12.04.2013 21:59
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


В предыдущем моём коде есть некоторые недочёты, так что вот обработанный:

program misss;

var
bukvi : set of 'a'..'z';
mas1 : array[1..100] of char;
mas2 : array[1..100] of integer;
mas3 : array[1..100] of integer;
i,j : integer;

begin
writeln('vvedite col-vo simvolov');
readln(j);
for i:=1 to j do begin
writeln('vvedite simvol');
readln(mas1[i]);
end;

for i:=1 to j do begin
if mas1[i] in bukvi then mas1[i] :='0';
end;

for i:=1 to j do begin
val(mas1[i],mas2[i],mas3[i]);
end;

for i:=1 to j do begin
writeln(i,' soderjit celix chisel ',mas2[i]);
end;

end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 1:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"