|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2011, 15:17 | #1 |
Пользователь
Регистрация: 31.10.2010
Сообщений: 17
|
массивы строк
Привет..Ещё одно задание, не могу разобраться...Помогите пожалуйста, если не трудно..
Создать массив(текст) с 15 элементами( длинна от 1 до 10),затем создать ещё 2 массива, где в первом сохранить все буквы и цифры , а во втором все остальные символы... program masiv; uses crt; const n=15; type mas1=array[1..n] of string; mas2=array[1..n] of string; mas3=array[1..n] of string; var A:mas1; B:mas2; C:mas3; i,j,k:integer; l,y:string; begin clrscr; writeln; for i:=1 to n do repeat write('Vvedite ',i,'. element masiva===> '); readln(A[i]); until (length(A[i])>=1) and (length(A[i])<=10); writeln; k:=length(A[i]); for i:=1 to n do begin if ((A[i]>='a') and (A[i]<='z')) and ((A[i]>='0') and (A[i]<='9')) then B[i]:=A[i]; write(B[i]:3); if ((A[i]<'a') and (A[i]>'z')) and ((A[i]<>'0') and (A[i]<>'9')) then C[i]:=A[i]; write(C[i]:3); readln; end; end. |
07.06.2011, 15:20 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
or, а не and в if. (элемент буква ИЛИ цифра. не может быть однвременно буквой и цифрой)
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA: целочисленная арифметика, массивы, обработка строк | kabum13 | Помощь студентам | 0 | 10.12.2010 16:32 |
массивы строк | Dimarik | Общие вопросы .NET | 9 | 23.02.2010 16:14 |
С++. Массивы строк | Serv | Помощь студентам | 1 | 01.07.2009 19:39 |
Задания по ДЕЛФИ (массивы, потом с использованием файлов и строк) | ramaboss | Помощь студентам | 11 | 14.12.2008 17:29 |
Pascal , Массивы строк | Alyonka_v | Помощь студентам | 1 | 05.12.2007 23:26 |