Pascal

[RDude 0]

4 задачки по масивам, множествам и строкам. Знакомые попросили решить. Сам буду пробовать, но врятле чтонить получица :(

 

Пояснение к первым 2 задачам: В данной программе множества и массивы заполняются или с использованием генератора случайных чисел, или несредственно в теле программы ( в зависимости от задания). На экран следует выводить как исходные данные(множества, массивы, строки), так и результат.

1) Дано произвольное множество целых чисел M в интервале 1..255 и массив 10х10, содержащий значения также в интервале 1..255. Удалить из исходного множества все элементы, входящие в массив.

2) Дано произвольное множество целых чисел в интервале 1..20. Найти сумму и произведение всех элементов множества.

 

Пояснение к вторым 2 задачам: Исходные данные вводятся с клавиатуры.

1) Даны строки S и S0(нуливое). Найти количиство вхождений строки S0 в строку S.

2) Даны строки S и S0. Удалить из строки S первую подстроку совпадающую с S0. Если совпадающих подстрок нет, то вывести строку S без изменений.

[911 0]

лол :lol:

[SpIn 0]

вот халява однако.Это экзамен или что ?

у нас в 9ом классе на экзе раза в 3 сложнее были)

будет время напишу решение,ибо щас к физике готовлюсь

[Levinson 1]

2) Дано произвольное множество целых чисел в интервале 1..20. Найти сумму и произведение всех элементов множества.

 

 

program zzz;

uses crt;

var

mas:array[1..20] of integer;

i, sum,proiz,k:integer;

BEGIN

randomize;

ClrScr;

k:=0;

proiz:=1;

for i:=1 to 20 do

begin

mas:=random(5);

k:=k+mas;

proiz:=proiz*mas;

write(mas:3);

end;

writeln;

writeln('Summa elementov ',k);

writeln('Proizvedenie elementov ',proiz);

readkey;

END.

Изменено 12 июня 2008 пользователем Levinson

[Levinson 1]

2) Даны строки S и S0. Удалить из строки S первую подстроку совпадающую с S0. Если совпадающих подстрок нет, то вывести строку S без изменений.

 

program zzz2;uses crt;vara,s:string;i:integer;beginwrite('vvedite stroky: ');readln(s);write('vvedite ydaliaemoe slovo: ');readln(a);delete(s,pos(a,s),length(a));writeln(s);readln;end.

Изменено 12 июня 2008 пользователем Levinson

[RDude 0]

Спс большое, а первые задачи можеш сделать? :blush2:

ЗЫ И вообше это не мне, а знакомым нада.

Изменено 12 июня 2008 пользователем RDude

[Levinson 1]

Спс большое, а первые задачи можеш сделать?  :blush2:

307580[/snapback]

Одну из 2х первых я выше написал тебе. Щас следующую делаю.

[Levinson 1]

Задача 1

 

program zzz3;

USES

CRT;

VAR

  m1:array[1..255] of integer;

  m2:array[1..20,1..20] of integer;

  i,j  :integer;

BEGIN

  ClrScr;

  randomize;

  writeln('MASSIV 10x10');

 

  for I:=1 to 10 do

  Begin

    writeln;

    for J:=1 to 10 do

    Begin

      m2[i,J]:=round(random(505-255));

      write(m2[i,J]:4,'  ');

    End;

  End;

 

  writeln;

  writeln;

  writeln('POSLEDOVATELNOST');

  writeln;

 

  for I:=1 to 10 do

  begin

    m1:=round(random(505-255));

    write(m1:5);

  end;

ТУТ КОД ДЛЯ ПРОВЕРКИ СОВПАДЕНИЙ И ИЗМЕНЕНИЯ ПОСЛЕДОВАТЕЛЬНОСТИ

 

 

readkey;

END.

Изменено 12 июня 2008 пользователем Levinson

[RDude 0]

Спасибо, а 4 задачу сможеш сделать?

[Levinson 1]

Ну там тоже самое что и про удаление слова из строки, только счётчиком через POS. :)

[RDude 0]

Если честно то я в этом вообше не соображаю Оо

[Levinson 1]

Блин, я теперь страницу обновляю нажатием Ctr+F9 )))))))))))

[RDude 0]

Можно поподробнее о 1) Даны строки S и S0(нуливое). Найти количиство вхождений строки S0 в строку S.

А то я вообше ничего не соображаю, да и нужно это не мне :(

[Levinson 1]

program zzzz;

var s,sl:string;

    k,i:integer;

begin write('введите строку:');

      readln(s);

      write('введите слово: ');

      readln(sl);

      k:=0;

      while pos(sl,s)>0 do

        begin k:=k+1;

              delete(s,pos(sl,s),length(sl));

        end;

      writeln(k);

end.

[RDude 0]

Спасибо огромное

[XFly 0]

ппц

[Levinson 1]

Что? Что-то не правильно решил?

[cvaba 0]

Короче, кто полнолстью прочитал задачу и разобрался в решении

задачи, то у того вывернит моск...

 

PS А я не знал что Левинсон один из наших... :)

[RDude 0]

Задача 1

307594[/snapback]

Блин, эта задача недоделана :cray: , а нада сечас срочно.

Нету удаления. кто поможет?

[RDude 0]

Сори что не правкой(она не робит)

Вообшем решили мне, всем спасибо :)

[Levinson 1]

А, ну вот и чудненько )

[VeryBaD 0]

у нас тож есть паскаль но таких крутых задач я не видял еще:)

[XFly 0]

Что? Что-то не правильно решил?

308216[/snapback]

нет,все правильно :clapping: ...удивляюсь я :blush2: :)