|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.05.2008, 15:07 | #1 |
Регистрация: 04.05.2008
Сообщений: 3
|
Задания по языку Pascal
Здравствуйте!
У меня тут проблема...сам я newbie в данном языке(Pascal 7.0), прошу помощи. 1) Дан массив ненулевых целых чисел. Определить, сколько раз меняется знак элементов массива при его просмотре. Например, в массиве 12,-4, 13, 77,-5,-99 знак меняется 3 раза. 2) Дан двумерный массив. Найти сумму элементов главной диагонали массива. 3)Дан текстовый файл. Переписать всю информацию данного во второй файл удвоив все буквы "в". 4) Нарисовать на экране круг красного цвета. Заранее спасибо! |
04.05.2008, 17:05 | #2 |
Форумчанин
Регистрация: 10.07.2007
Сообщений: 104
|
4
Код:
Последний раз редактировалось motaro; 04.05.2008 в 17:14. |
04.05.2008, 18:30 | #3 |
Регистрация: 04.05.2008
Сообщений: 3
|
1-ая задача
Uses crt; Const M=100; Var i,n,k:integer; Mas:array [1..m] of integer; Begin Clrscr; K:=0; Writeln('Vvedite dlinu massiva'); Readln(n); Writeln('Vvedite chisla massiva'); For i:=1 to n do Begin Readln(mas[i]); End; For i:=1 to n do If mas[i+1]*mas[i]<0 then K:=k+1; Writeln('Znak meniaetsya ',k,' raz(a)'); Readln; End. |
04.05.2008, 19:40 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
только на надо за пределы массива выходить:
Код:
|
04.05.2008, 19:40 | #5 |
Сисадмин
Форумчанин
Регистрация: 28.12.2007
Сообщений: 320
|
Со второй и третьей думаю проблем не возникнет:
2: где-то так Код:
Код:
|
04.05.2008, 19:43 | #6 |
Регистрация: 04.05.2008
Сообщений: 3
|
Так, спасибо ребят, щас пойду творить...
Последний раз редактировалось Corpse; 04.05.2008 в 19:50. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь по языку Фортран | GGfromthesky | Помощь студентам | 4 | 23.05.2009 17:07 |
Задания по командной строке...помогите!!! | Pirat | Помощь студентам | 1 | 16.03.2008 06:53 |
необходимо решить задания | Жека2110 | Фриланс | 2 | 10.02.2008 20:18 |
Какому языку посвятить себя? | SputNIK | Свободное общение | 5 | 11.11.2007 23:34 |