Задачи от Romario Опции

[Romario]

Всё, разобрался...
Но возникли вопросы у меня к тебе Ivs, ты писал, тебе и отвечать  ;D :D ;)

Вот вопросики:
1)что за оператор break, что он делает, для чего и т.д...
2) оператор IN ... тоже самое...
3)и объясни пожалуйста задачи 17, 19, 22. Подробно, если можно, ты там так намутил... начинающим не понять... Вобщем построчно

Ещё раз спасибо за решение всех задач!

[Ivs]

Ответы:
break - это оператор выхода из цикла до его завершения.
есть еще такие полезные операторы как:
continue- выполнение следующей итерации цикла еще до завершения выполнения этой
halt- остановка выполнеия всей программы, независимо где он расположен
exit - выход из подпрограммы или если он расположен в основной части то завершает работу всей проги.

in [...] - это принадлежность множеству чисел или символов расположеных в квадратных скобках.
его, на самом деле можно заменить
например
if i in [1..20] на
if (i>=1) and (i<=20);
так что можешь там исправить если надо.

Кстати единственная задача которую я не решил это N_17, так как не могу понять условия.....

program N_19;
var
  i,n,k:integer;
  a:array[1..100] of integer;
begin
  write('Input n  (n<=100) -> ');readln(n); {Вводим N}
  k:=0;{В k счетчик кол-ва вхождений}
  for i:=1 to n do
  begin    {Заполнение массива с клавиатуры}
     write('-> ');
     readln(a[i]);
     if a[i]=n then k:=k+1; {проверяем на вхождение N в исходную последовательность}
  end;
  write(k);      {Выводим кол-во вхождений}
  readln;
end.

program N_22;
const n=10;
var
   i,k:integer;
   a:array[1..n] of real;
begin
  k:=0;
  for i:=1 to n do
  begin           {Заполнение массива с клавиатуры}
     write('-> ');
     readln(a[i]);
  end;
  for i:=1 to n do
     if a[i]=i then k:=k+1; {Если элемент массива равен своему индексу то увеличить счетчик}
  write('Otvet: ',k);       {В "k" кол-во совпадений}
  readln;
end.

[Ivs]

И еще, Romario, 12 задачу лучше наверное переписАть,
а то я там строки использовал, вобщем, не очень удачно как-то:

program N_12;
var
  a,b,c,d:longint;
begin
  readln(a);
  b:=0;d:=1;
  while a>0 do
  begin
                   c:=a mod 10;
                   if (c<>0) and (c<>5) then
     begin
                 b:=b+c*d;
                 d:=d*10;
     end;
     a:=a div 10;
  end;
  writeln(B);
  readln;
end.

[Romario]

Вот ещё одна лабораторная, уже последняя : пока  ;D

!!!При решении задач применять  процедуры и функции!!!

Дан массив целых чисел (п=25), заполненный случайным образом числами из промежутка (-35,75).
1.Удалить из него все элементы, первая цифра которых четная.
2.Вставить число К1 после всех элементов, больших заданного числа, а число К2 – перед всеми элементами, кратными 3 (К1, К2  вводить с клавиатуры).
3.Перенести первые К элементов в конец, то есть: а[k+1],  а[k+2], …, а[n],  а[1],  а[2],    
4.  …,  а[k].

[Ivs]

N_1:

program N_1;
uses crt;
var
  i,n,j:integer;
  a:array[1..25] of integer;

function chet(m:integer):boolean;
var ni:integer;
begin
  while m<>0 do
  begin
                         ni:=m mod 10;
                         m:=m div 10;
  end;
  if ni mod 2=0 then chet:=true
            else chet:=false;
end;

begin
  ClrScr;
  randomize;
  n:=25;
  for i:=1 to n do
  begin
                          a[i]:=random(100)-35;
                          write(a[i],' ');
  end;
  i:=1;
  while i<=n do
  begin
                         if chet(a[i]) then
                         begin
                                                 for j:=i to n-1 do a[j]:=a[j+1];
                                                 n:=n-1;
                                                 i:=i-1;
                          end;
                           i:=i+1;
  end;
  writeln;
  writeln;
  for i:=1 to n do write(a[i],' ');
  readln;
end.

Программа написана с помощью функции, так что если что то можно переделать....
И еще во втором задании напонятно что там вводится что выводится, вводится ли заданное число или с потолка берется так что -- уточни.

[Ivs]

N_3

program N_3;
uses crt;
const n=25;
var
  p,i,j,k:integer;
  a:array[1..n] of integer;
begin
  ClrScr;
  Randomize;
  for i:=1 to n do
  begin
                           a[i]:=random(110)-35;
                           write(a[i],' ');
  end;
  writeln;
  write('Input k -> ');readln(k);
  for i:=1 to k do
  begin
                                     p:=a[1];
                                     for j:=1 to n do a[j]:=a[j+1];
                                     a[n]:=p;
  end;
  writeln;
  for i:=1 to n do write(a[i],' ');
  readln;
end.

[shadow=red,left,300]Romario[/shadow], а в четвертом у тебя конечно оригинальные условия................................... ??? :o :-/

[Romario]

Ivs, ты не понял это всё должна быть одна программа! 1- 1я функция, 2- 2я функия, и т.д . Это всё одна программа!

[Tatjanka]

Помогите пожалуйста решить мне задачку. За ранее вам всем благодарна.

Мне нужно найти 15 первых чисел, которые делятся на 3.

[Altair]

а новую темку создать нельзя было? Эх а какую тему вспомнили .....
Старые добрые времена, еще форум старый был....

Tatjanka а условие-то не полное, приведите примервходных\выходных данных

[volvo]

Tatjanka
Зачем же поднимать такие старые темы? Можно было создать новую...

Код

var i: integer;
begin
 for i := 1 to 15 do
   write( i*3:5 );
 writeln
end.

Сообщение отредактировано: volvo - 28.11.2004 10:42

[Altair]

volvo, неужели так?

я думал, что дына последовательность чисел, найти среди них делящиеся на 3.
А то слишком просто что-то... уже ведь сессия скоро ... кто такие задачи решает в это время года?

[Tatjanka]

Oi spasibo vam ogromnoe sei4as poprobuju eto v programme napisat

[Tatjanka]

Vse polu4ilos!!!!!!!!!
volvo spasibo.
Vse tak prosto a ja probovala 4erez for i mod

[Tatjanka]

Eshe u menja ostalas odna zada4ka s massivom.
Esli ja vas ne o4en obremenjaju, to pomogite plz.

dan A(10) i B(10) 4islovoi massiv. Naiti novie elementi massiva C(10) , esli
(A1+B10,A2+B9....A10+B1)

[volvo]

Tatjanka

Код

var i: integer;
 a, b, c: array[1 .. 10] of integer;
begin
 { здесь ввод массивов A и B }
 ...

 { вычисление массива C }
 for i := 1 to 10 do
   c[i] := a[i] + b[11 - i];
end.