Помощь - Поиск - Пользователи - Календарь
Полная версия: задачи с массивом
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Guest
6.12.2004 20:27
Меня моя девушка попросила решить задачки, а я в Паскале ничего не соображаю. Если не трудно подскажите, как их решить.
1.
Дан массив целых чисел. Определить, есть ли в нем хотя бы одна пара
"соседних" нечетных чисел. В случае ответа определить первый номер
элементов первой из таких пар.
2.
Дан массив действительных чисел. Из всех положительных элементов вычесть элемент с номером k1, из остальных - с номером k2.
volvo
6.12.2004 20:37
Ну сколько же можно задавать одни и те же вопросы? Пользуйтесь поиском!
Задача №1
Код

const
 n = 10;
 a: array[1 .. n] of integer =
   (1, 2, 0, 7, 5, 6, 7, 8, 3, 4);

var
i: integer;

begin
 for i := 2 to n do
   if not Odd(a[i - 1] + a[i]) and (a[i - 1] * a[i] <> 0) then
     begin writeln('index = ', i - 1); halt end;
 writeln('not found')
end.


Задача №2
Код

const
 n = 10;
 k1 = 8; k2 = 5;
 a: array[1 .. n] of real =
   (1, 2, -1, -7, 5, -6, 7, 8, 3, 4);

var
i: integer;

begin
 for i := 1 to n do
   a[i] := a[i] -
     (byte(a[i]>=0)*a[k1] + byte(a[i]<0)*a[k2]);

 for i := 1 to n do
   write(a[i]:8:2);
 writeln
end.
ShadowWatcher
6.12.2004 20:39
1
Код

Const
 SIZE = 10;
Var
 i:Integer;
 Data:Array[1..SIZE] Of Integer;
Begin
 For i:=1 To SIZE Do
   ReadLn(Data[i]);
 For i:=1 To SIZE-1 Do
   If (Data[i] Mod 2 = 1) Then
     If (Data[i + 1] Mod 2 = 1) Then
     Begin
       WriteLn('Answer: ',i);
       Break
     End
End.

2)
Код

Const
 SIZE = 10
Var
 i:Integer;
 a:Array[1..SIZE] Of Double;
 k1,k2:Double;
Begin
 For i:=1 To SIZE Do
   ReadLn(Data[i]);
 Write('Enter K1: ');
 ReadLn(k1);
 Write('Enter K2: ');
 ReadLn(k2);
 For i:=1 To SIZE Do
   If (Data[i] > 0) Then
     Data[i] := Data[i] - k1
   Else
     Data[i] := Data[i] - k2;
 For i:=1 To SIZE Do
   WriteLn(Data[i])
End.
ShadowWatcher
6.12.2004 20:40
Опять мы, volvo не разминулись smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.