IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V < 1 2  
Closed Topic Открыть новую тему 
> Задачи от Romario
сообщение
Сообщение #21


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


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

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

Ещё раз спасибо за решение всех задач! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Ответы:
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.


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


И еще, 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.


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


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

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

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


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


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.

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


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


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 :-/


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Ivs, ты не понял это всё должна быть одна программа! 1- 1я функция, 2- 2я функия, и т.д . Это всё одна программа!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Гость






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

Мне нужно найти 15 первых чисел, которые делятся на 3.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Гость






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

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


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #31


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #32


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


Oi spasibo vam ogromnoe sei4as poprobuju eto v programme napisat
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #33


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


Vse polu4ilos!!!!!!!!!
volvo spasibo.
Vse tak prosto a ja probovala 4erez for i mod
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #34


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


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)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #35


Гость






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.
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 18:54
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name