4 задания по Паскалю.

[Евгений2]

Прошу вашей помощи, уважаемые форумчане!
я сам далек от программирования, но моей знакомой девушке надо для сдачи решить задания... помогите пожалуйста!

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, заменить на пробел.

Спасибо всем заранее за помощь!!!

[Valik102]

дааа паскаль гавно

[Stilet]

4.В данной строке каждый символ с номером, кратным K, заменить на пробел.

так что ли?

var s:string; i,k:byte;
begin
 s:='sdfdfsdfsdfsd';k:=3;
 for i:=1 to length(s) do if i mod k=0 then s[i]:=' ';
end.

[Евгений2]

Stilet примерно)
а можно код поподробнее?

[Stilet]

а можно код поподробнее?

Халавчик? Ну ладно.

var s:string; i,k:byte;
begin
 s:='sdfdfsdfsdfsd';k:=3;
  WRITELN('введи число К');readln(k);
  WRITELN('Строка до=',s);
 for i:=1 to length(s) do if i mod k=0 then s[i]:=' ';
  WRITELN('Строка после до=',s);
end.

2. Точно и четко сформулировать условие задачи, которая решается в данной программе:

К каждому элемент массива прибавляется значение максимального элемента.

[Евгений2]

Спасибо, Виталий!!!

[Евгений2]

а вот насчет первого задания-я пробовал сделать его сам...подскажите, пожалуйста, я на правильном пути или что то не так делаю..
d:=True if
d: =(-b+\-sqrt(sqr(b)-4*ac) and d:= -n\m
else d:= false

[Stilet]

Ну по крайней мере то чт ты написал не является Паскалем.

[Евгений2]

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

[Stilet]

А почитать методу?
Вот поправляя твой способ

d:=(x=(-b/sqrt(sqr(b)-4*ac)) and (x=(-n\m)) ;

И кста проверь выражение, ато я дискриминантную формулу не помню, а ты чето не то написал..