|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.03.2011, 14:14 | #1 |
Новичок
Джуниор
Регистрация: 01.03.2011
Сообщений: 2
|
Программы в Pascal
Помогите пожалуйста в создании двух программ!
Проверить, верно ли что в строке чередуются гласные и согласные буквы. Пробелы игнорируются. Дан массив из слов Х(m). Найти все слова четной длинны. Заранее большое спасибо! |
01.03.2011, 15:14 | #2 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
задача 1:
Код:
|
01.03.2011, 15:27 | #3 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
Код:
Код:
|
01.03.2011, 17:47 | #4 |
Новичок
Джуниор
Регистрация: 01.03.2011
Сообщений: 2
|
Спасибо
Большое спасибо если что то не пойму спрошу
|
03.03.2011, 16:22 | #5 |
Новичок
Джуниор
Регистрация: 03.03.2011
Сообщений: 4
|
Пожалуйста помогите найти ошибку, нужно вывести положительные элементы главной диагонали матрицы размером nxn, а эта прога выводит абсолютно все элементы главной диагонали
Program P1; uses crt; const n=3; var a:array[1..n,1..n] of integer; i,j:integer; begin writeln('zadaite element matrici po strokam:'); for i:=1 to n do for j:=1 to n do begin write('a[',i,j,']='); readln(a[i,j]); end; if a[i,j]>0 then writeln('dodatni elementu golovnoi diagonali matrici A:'); for i:1 to n do writeln('a[',i,i,']=',a[i,i]); writeln if a[i,i]<0 then begin writeln('dodatnix elementiv na golovnij diagonali nemae'); end; readkey end. |
03.03.2011, 16:31 | #6 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Код:
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) Последний раз редактировалось Vanta11a; 03.03.2011 в 16:35. |
03.03.2011, 16:44 | #7 |
Новичок
Джуниор
Регистрация: 03.03.2011
Сообщений: 4
|
спасибо огромное, два часа мучалась над этой задачкой
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
4 Программы Pascal | KARTER | Помощь студентам | 5 | 19.12.2010 17:18 |
программы на PASCAL | tiftelya | Помощь студентам | 5 | 19.12.2010 11:41 |
Программы на Pascal | TOMMY666 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 16.04.2010 11:30 |