VPF::2 задачи - Форум программистов

Гость_оля

Дата 8.11.2005, 20:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

чё-то не выводится моя тема!!!
Итак, всё по нивой,... у меня 2 задачи, которые я не могу решить, тю кю ничего не понимаю в программировании
первая задача по строкам:
дана строка символов, преобразовать её следующим образом:
заменить на 'ks' первое вхождение 'x', если такое есть.
вторая задача (одномерный массив):
дана последовательность из n вещественных чисел. переменной t присвоить значение true, если в последовательности нет нулевых элементов и при этом положительные элементы чередуются с отрицательными.
ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ! умоляю.... а то я сессию завалю с этой информатикой грёбаной........ smile

М	Перенёс из паскаля. Решение по всей видимости необходимо на нём.

Это сообщение отредактировал(а) sergej.z - 8.11.2005, 21:09

Rick

Дата 8.11.2005, 21:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: 2
Всего: 3

на каком языке-то надо?

--------------------

Не бывает атеистов в окопах под огнем

St. Andrew

Дата 8.11.2005, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

Ну задачи-то достаточно простые - в один цикл! Что конкретно не получается?

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

Rick

Дата 9.11.2005, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: 2
Всего: 3

1 задача:

Код


uses crt;
var st:string;
    i:integer;

begin
clrscr;
readln(st);
i:=pos('x',st);
if i<>0 then begin
delete(st,i,1);
insert('ks',st,i);
end;
writeln(st);
readln;

end.

--------------------

Не бывает атеистов в окопах под огнем

St. Andrew

Дата 9.11.2005, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

Ну раз уж тут такая благотворительность smile

Задача 2

Код


program two;
uses crt;
var mas: array[1..10] of real;
t: boolean;
i, j,k : integer;
begin
clrscr;
t:=TRUE;
for i:=1 to 10 do
begin
write('Enter mas[',i,']=');
readln(mas[i]);
end;
if mas[1]=0 then
t:=FALSE
else
begin
if mas[1]<0
then
begin
k:=0;
j:=1;
end
else
begin
 k:=1;
j:=0;
end;
for i:=2 to 10 do
begin
if mas[i]=0 then
begin
t:=FALSE;
break;
end;
if mas[i]<0 then j:=0 else j:=1;
if j=k then
begin
t:=FALSE;
break;
end
else
k:=j;
end;
end;
writeln('T=',t);
readln;
end.

Может и не шедевр, но вроде как работает smile

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

Поля

Дата 9.11.2005, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 9.11.2005

Репутация: нет
Всего: нет

Спасибкииииииии!!!!! тока ничё не понятно..... Не знаю, как я буду эти задачки защищать... капец!! ворая ваще мрак для меня! smile

St. Andrew

Дата 9.11.2005, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 142
Регистрация: 28.3.2005
Где: Санкт-Петербург

Репутация: 5
Всего: 8

Поля, книжечку почитать хорошо бы - поможет! Или конкретные вопросы задавай, объясню, что и как. smile

--------------------

Оглянитесь вокруг! В мире так много прекрасного!

darkart

Дата 9.11.2005, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Вторая задача:

Код


program First;
const
  n=5;//количество вводимых чисел
type TArr=array[1..n] of real;//массив из n элементов
var
  i:integer;//счётчик
  Arr:TArr;
  t:boolean;//результат
begin
  writeln('Please enter ',n,' numbers:');
  for i:=1 to n-1 do
    read(Arr[i]);
  readln(Arr[n]);
  i:=1;
  t:=true;
  while (i<n) and t do
  begin
    t:=(Arr[i]<>0) and (Arr[i]*Arr[i+1]<0);
    inc(i);
  end;
  writeln('t=',t);
  readln;
end.

mvdr

Дата 10.11.2005, 01:00 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Код


uses crt;
var st:string;
    i:integer;

begin
clrscr;
readln(st);
for i:=1 to length(stroka) do
if (stroka[i]='k') and (stroka[i+1]='s') then
 begin
  delete(st,i,2);
  insert('x',st,i);
  i:=length(stroka);
 end; 
writeln(st);
readln;
end.

т.е. проверяем, если есть первое вхождение 'ks' то заменяем его.

Это сообщение отредактировал(а) Владимир Сергеевич - 10.11.2005, 01:47

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

mvdr

Дата 10.11.2005, 01:42 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Код


program First;
const
  n=5;//количество вводимых чисел
type TArr=array[1..n] of real;//массив из n элементов
var
  i:integer;//счётчик
  k,j:integer;
  Arr:TArr;
  t:boolean;//результат
begin
  writeln('Please enter ',n,' numbers:'); //ввод  массива
  for i:=1 to n-1 do
    read(Arr[i]);
  readln(Arr[n]);

  i:=1;
  t:=false;
  if Arr[1]>0 then               //в зависимости от знака первого элемента 
   begin                             // проверяем дальше. У нас должно быть + - + - + - +...
    for j:=2 to n do            // т.е. если первый элемент полжительный, то и все нечетные 
     begin                          //элементы должны быть положительными. Это проверяем по остатку
      k:=j mod 2;               // от деления на 2
      if k<>0 then if Arr[j]<=0 then 
        begin
          t:=false;
          write(t);
          readln;
        end
      else 
      if k=0 then if Arr[j]>=0 then 
        begin
          t:=false;
          write(t);
          readln;
        end
      else
        begin
           t:=true;
           write(t);
        end;
     end;    

  if Arr[1]<0 then 
   begin
    for j:=2 to n do
     begin 
      k:=j mod 2;
      if k<>0 then if Arr[j]>=0 then 
       begin
         t:=false;
         write(t);
         readln;
       end
      else
      if k=0 then if Arr[j]<=0 then 
       begin
         t:=false;
         write(t);
         readln;
       end
      else
        begin
           t:=true;
           write(t);
        end;
     end;    

   end;
  readln;
end.

P.S. код не проверялся. писал по памяти со школы. там была такая же задачка, помню, что в школе решал ее через много условий... если тут не правильно - оповестите меня

Это сообщение отредактировал(а) Владимир Сергеевич - 10.11.2005, 01:46

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Поля

Дата 14.11.2005, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 9.11.2005

Репутация: нет
Всего: нет

uses crt;
var st: string;
i: integer;
begin
writeln('введите строку');
readln(st);
i:=pos('x',st);
if i<> then begin
delete(st,i,1);
insert('ks',st,i);
end;
writeln(st);
end.

Dov

Дата 15.11.2005, 23:09 (ссылка)

(нет голосов)

Загрузка ...

аСинизатор

Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 50
Всего: 88

имхо, вот здесь

Цитата(darkart @ 9.11.2005, 20:28)

Вторая задача:

Код


    t:=(Arr[i]<>0) and (Arr[i]*Arr[i+1]<0);

достаточно этого

Код


    t:=Arr[i]*Arr[i+1]<0;

или я ошибаюсь smile

--------------------

Тут вечности запах томительный,
И свежие фрукты дешевые,
А климат у нас – изумительный,
И только соседи – #уевые.
Игорь Губерман.

darkart

Дата 15.11.2005, 23:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Упс... Зачитался условием...

Это сообщение отредактировал(а) darkart - 15.11.2005, 23:57

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »