Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Массивы и не только.

Автор: Babyuk 23.10.2007, 15:57

1.Даны 4 фамилии.Определить,есть ли среди них Сидоров.Напечатать соответсвующее сообщение.
2.Дан массив P(1).....P(15)
Определить N-кол-во P(i),предшествующих первому отрицательному P(i).Если N<0,то заменить P(i) на 0.
3.Определить
Z=(A-2)^2-((A-2)4/2!)+((A-2)^6/4!)-((A-2)^8/6!)
Известно А, для которого выполняется условие 3>=|A|>2

Заранее спасибо за помощь.

Автор: Rodman 23.10.2007, 16:50

M
Rodman

Модератор: Пожалуйста, один топик - один вопрос.

Автор: Ripper 23.10.2007, 18:26

Совсем забыл Паскаль, но я что-то не все понимаю
1)Даны 4 фамилии. В массиве? Их нужно ввести?

Код


Program MyProg;
var
 arr:array [0..3] of string;
 i:integer;
 finded:boolean;
begin
 for i:=0 to 3 do
  readln(arr[i]);
 for i:=0 to 3 do begin
  if (arr[i]='Sidorov') then begin
   writeln('Sidorov finded'); finded:=true; break;
   end;
  end;
  if(not finded) then writeln('Sidorov not found');
  readln;
end.

Вот так например. Ну по разному можно сделать, но это достаточно легко. Или я непонимаю задания

Добавлено через 2 минуты и 27 секунд
2)Если N=0 то заменить P(i) = 0, но я же сначала обхожу массив, потом если отрицательных нет, то какому P(i) присвоить 0 ? Всем?
В любом случае делается обычно с помощью цикла
3)А тут что нужно формулу в паскалевском виде представить? Ф-ии библиотечные можно использовать? Я факториал не помню, в степень как воводится не помню smile

Если самому реализовать ф-ии то нужно попарится а так то что

Автор: Babyuk 23.10.2007, 20:10

Ripper,
спасибо за 1ю задачу.А 2ю в каком нибудь виде набросать можешь?

Автор: Babyuk 24.10.2007, 16:21

1ю задачу засчитали,правда на защите немного растерялся.
просьба теперь решить 2ю задачу:
2.Дан массив P(1).....P(15)
Определить N-кол-во P(i),предшествующих первому отрицательному P(i).Если N<0,то заменить P(i) на 0.

заранее спасибо.