На главную Самоучитель pascal Форум программистов онлайн Решение задач pascal Задачи pascal Поиск
24 Июн 16

Срочно нужно разобрать за задачи по пунктам


Комментарии :  0        Просмотры :  720
1.var a:array[1..n,1..n] of integer;
k,j,i,i1:integer;
begin

for i:=1 to n do
for j:=1 to n do
read (a[i,j]);

begin
for j:=1 to n do
for i:=1 to n do
begin
if a[i,j]<0
then
k:=k+1;
if i=n then begin write(' ',k);
k:=0;
end;
end;
end;
end
2 var
s1,s2: string; c: char; i: byte;
begin
readln(s1);
s2 := '';
for i:=1 to length(s1) do
begin c := s1;
if (pos(c,s2) = 0) and (c <> ' ') then
s2 := s2 + c
end;
writeln(s2);
end.

3.const N = 20;
type arr = array[1..N] of integer;
var
a: arr;
i: byte;
p,q,e: integer;
function search(var c: arr; elem: integer): byte;
var m,i,j: integer;
begin
m := N div 2;
i := 1;
j := N;
while (c [m]<> elem) and (i <= j) do begin
if elem > c [m]then i := m + 1
else j := m - 1;
m := (i+j) div 2;
end;
if i > j then search := 0
else search := m;
end;

begin
randomize;
p := 1;
q := 4;
for i:=1 to N do begin
a := random(q-p)+p;
p := p + 3;
q := q + 3;
write(a,' ');
end;
writeln;
write('Число: ');
readln(e);
i := search(a,e);
if i = 0 then
writeln('Такого числа в массиве нет.')
else
writeln('Число ', e, ' находится на ', i, '-м месте.');
end.

4.var s,s1,s2:string; i:byte;
begin
write('Введите строку: ');
readln(s);
write('Введите последовательность символов,которую нужно заменить: ');
readln(s1);
write('Введите последовательность символов,на которую нужно заменить: ');
readln(s2);
while Pos(s1,s)>0 do
begin
i:=Pos(s1,s);
Delete(s,i,Length(s1));
Insert(s2,s,i);
end;
writeln('Полученная строка = ',s);
readln;
end.
Рейтинг материала : ( 3 / 16 )
Сообщить об ошибке
Комментарии :  0        Просмотры :  720

Поиск

Решение задач

Если вас интересует решение какой-либо задачи , то вы можете опубликовать
её условие на нашем сайте или форуме. И в скором времени другие пользователи помогут вам.

Опубликовать на сайте

Опубликовать на форуме

Опрос

Какой ваш любимый раздел ?