|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.05.2009, 10:11 | #1 |
Пользователь
Регистрация: 14.05.2009
Сообщений: 12
|
4 задания по Паскалю.
Прошу вашей помощи, уважаемые форумчане!
я сам далек от программирования, но моей знакомой девушке надо для сдачи решить задания... помогите пожалуйста! 1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно. Число d является корнем уравнения ax2 + bx + c = 0 или уравнения mx + n = 0. 2. Точно и четко сформулировать условие задачи, которая решается в данной программе: Program Kr_2_3; Const NMax = 100; Type LinMass = Array[1..NMax] Of Integer; Var A : LinMass; N, I, M : Integer; Begin Write('Количество элементов массива? '); ReadLn(N); M := -32768; For I := 1 To N Do Begin Write('Введите A[', I, '] '); ReadLn(A[I]); If A[I] > M Then M := A[I] End; For I := 1 To N Do A[I] := A[I] + M; For I := 1 To N Do Write(A[I] : 6); WriteLn End. Задать линейный массив. Определить, каким станет этот массив после исполнения программы. 3. В данном линейном массиве A[1..N] поменять местами пары элементов, индексы которых при делении на 4 дают в остатке соответственно 1 и 0. (Например, для массива 0, 1, 2, 3, 4, 5, 6, 7, 8 получим в результате 3, 1, 2, 0, 7, 5, 6, 4, 8.) 4.В данной строке каждый символ с номером, кратным K, заменить на пробел. Спасибо всем заранее за помощь!!!
Никогда не говори "никогда"!!!
Последний раз редактировалось Евгений2; 14.05.2009 в 10:38. Причина: Тему указал не правильно |
14.05.2009, 10:55 | #2 |
Пользователь
Регистрация: 06.01.2009
Сообщений: 36
|
дааа паскаль гавно
|
14.05.2009, 11:08 | #3 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Код:
I'm learning to live...
|
|
14.05.2009, 11:29 | #4 |
Пользователь
Регистрация: 14.05.2009
Сообщений: 12
|
Stilet примерно)
а можно код поподробнее?
Никогда не говори "никогда"!!!
|
14.05.2009, 11:39 | #5 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Код:
Цитата:
I'm learning to live...
|
||
14.05.2009, 12:14 | #6 |
Пользователь
Регистрация: 14.05.2009
Сообщений: 12
|
Спасибо, Виталий!!!
Никогда не говори "никогда"!!!
|
14.05.2009, 12:25 | #7 |
Пользователь
Регистрация: 14.05.2009
Сообщений: 12
|
а вот насчет первого задания-я пробовал сделать его сам...подскажите, пожалуйста, я на правильном пути или что то не так делаю..
d:=True if d: =(-b+\-sqrt(sqr(b)-4*ac) and d:= -n\m else d:= false
Никогда не говори "никогда"!!!
|
14.05.2009, 12:33 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну по крайней мере то чт ты написал не является Паскалем.
I'm learning to live...
|
14.05.2009, 12:40 | #9 |
Пользователь
Регистрация: 14.05.2009
Сообщений: 12
|
а можешь мне дать какой нибудь пример логического выражения, что бы я мог на его примере решить этот, пожалуйста?
Никогда не говори "никогда"!!!
Последний раз редактировалось Евгений2; 14.05.2009 в 12:40. Причина: опечатался |
14.05.2009, 13:22 | #10 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А почитать методу?
Вот поправляя твой способ Код:
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста сделать задания по курсовой работе. | Gangzta | Помощь студентам | 17 | 12.06.2011 12:11 |
3 задания по турбо паскалю | infff | Помощь студентам | 12 | 05.03.2009 18:59 |
Помогите пожалуйста с задачей по паскалю! | ...Оленька... | Помощь студентам | 2 | 19.01.2009 23:23 |
Помогите, пожалуйста с задачками по Паскалю | Космонавт | Помощь студентам | 20 | 13.06.2008 00:14 |