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

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

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

 
Closed Topic Открыть новую тему 
> массивы, проверка на четность, переворот
сообщение
Сообщение #1





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

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


Привет всем. Дело в том, что друг попросил помочь с курсачём и контрольной решить в паскале, т.к. он вообще его не проходил, ну а у меня чисто хоть школьный курс пройден. Плюс ещё один человек попросил что б я помог. Хочу попросить вашей помощи, задачи по курсовой вообще сложные - там короче найти корни методами всякими(хорд, касательных) + ещё найти интеграли: блин голову можно сломать.
Вообщем хотел попросить помощи по контрольно(а точнее 2-м). 7 задач я решил, но осталось 5:
1. Перевернуть в массиве каждую третью строку(двумерный массив).
2. Заданы фамилия, имя и отчество учащегося, разделённые пробелами. Напечатайте его фамилию и инициалы. Применяйте подпрограммы.
3. Сожмите массив, выбросив каждый второй его элемент(дополнительные массивы использовать не разрешается).
4. Дан двумерный квадратный массив. Найти номера строк, все элементы которых чётны. Используйте подпрограммы для решения каждой частной задачи.
5. Вставить в строку слово после первого слова. Выведите полученную строку на экран. Используйте подпрограммы для решения каждой частной задачи

За каждую хоть любую подсказку буду блогадарен. Спасидо за ответы.

Сообщение отредактировано: мисс_граффити -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

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

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


2-я задача уже решалась, используй поиск - "преобразования строк"

Сообщение отредактировано: 18192123 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...


Подобное многому решалось. Пользуйся поиском... Или поподробнее напиши, что пробовал делать и с чем возникла проблема.
Цитата
Дело в том, что друг попросил помочь с курсачём и контрольной решить в паскале, т.к. он вообще его не проходил, ну а у меня чисто хоть школьный курс пройден.

Оригинально! Почему-то всем дают ужасные задания, не читая лекции и ничего не объясняя.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Пионер
**

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

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


Я, наверное, все же наводки дам, чтобы человеку было на что смотреть, хотя многое действительно уже решалось.

1. Я напишу код как перевернуть одномерный массив, остальное попробуешь сам:

{mas - это данные массив состоящий из n элементов
i - счетчик
buf - переменная-обменник, такого же типа как и элементы массива mas}

for i:=1 to n div 2 do
begin
mas[i]:=buf;
mas[i]:=mas[n-i+1];
mas[n-i+1]:=buf;
end;



3. Что ты понимаешь под словом сожмите? Значит передвинуть все элементы на n/2, а остальное забить нулями?

4. Проверка на четность одномерного массива будет выглядеть так:


i:=0;
flag:=true;
while i<=n or flag do
begin
inc (i);
if a[i] mod 2<>0 then flag:=false
end;

if flag
then write ('Четный')
else write ('Нечетный');


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


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


 ! 
Тема закрывается за многочисленность задач и неинформативность заголовка.



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 1.12.2020 18:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name