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

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

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

 
 Ответить  Открыть новую тему 
> 3 простых задачи
Oksana
сообщение 21.10.2005 3:44
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Оксана

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


Кто нибудь, помогите пожайлуста решить 3 задачи. Я по этому предмету ничего не понимаю sad.gif а специальность совсем другая huh.gif Если поможете, буду очень вам благодарна!! задачи на сегодня sad.gif

Массивы линейные
Создайте массив A[1..7] с помощью генератора случайных чисел и выведите его на экран. Увеличте все его элементы в 2 раза.

Циклы
Ввести с клавиатуры 10 чисел. Если среди них есть числа больше 15, заменить их на 15. Напечатать все получившие числа.

Прямоугольные массивы
Дан целочисленный массив A[1..4, 1..5] Требуется преобразовить матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней.

ЗАРАНЕЕ БЛАГОДАРЮ!!! задачки очень надо

Сообщение отредактировано: Oksana - 21.10.2005 3:45
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
virt
сообщение 21.10.2005 7:09
Сообщение #2


Знаток
****

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

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


randomize;
for i := 1 to 7 do a[i] := random(10000);
for i := 1 to 7 do write(a[i] ,' ');
writeln;
for i := 1 to 7 do a[i] := a[i] * 2;
for i := 1 to 7 do write(a[i],' ');


for i := 1 to 10 do
   begin
      readln(a[i]);
      if a[i] > 15 then a[i] := 15;
   end;
for i := 1 to 10 do write(a[i],' ');


for i := 1 to 3 do
   for j := 1 to 5 do
      a[i,j] := a[i,j] - a[4,j];


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Oksana
сообщение 21.10.2005 11:45
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Оксана

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


virt!!!!!!!!

Огромное тебе спасибо!!!!! а 3ый скрипт к 3 ей задаче?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 21.10.2005 11:49
Сообщение #4


Гость






Цитата(Oksana @ 21.10.2005 10:45)
а 3ый скрипт к 3 ей задаче?

:yes: Только почему "скрипт"?... "Программа" как-то привычнее...
 К началу страницы 
+ Ответить 
Oksana
сообщение 21.10.2005 11:59
Сообщение #5





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Оксана

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


Цитата(virt @ 21.10.2005 7:09)
for i := 1 to 3 do
   for j := 1 to 5 do
      a[i,j] := a[i,j] - a[4,j];


А здесь нужно еще какое-то вычисление unsure.gif ??
поняла только, что создать надо массив A[1..4 1..5]
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 21.10.2005 12:11
Сообщение #6


Гость






Oksana,
надо создать и заполнить матрицу ...
var a: array[1 .. 4, 1 .. 5] of integer;
... { остальные необходимые переменные }
begin
  for i := 1 to 4 do
    for j := 1 to 5 do begin
      write('a[', i, ', ', j, '] = '); readln(a[i,j]);
    end;

  for i := 1 to 3 do
     for j := 1 to 5 do
        a[i,j] := a[i,j] - a[4,j];

  { и распечатать полученную матрицу ... }
end.
 К началу страницы 
+ Ответить 
Oksana
сообщение 21.10.2005 12:14
Сообщение #7





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Оксана

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


ВСЕ!!! огромное спасибо ВАМ! хорошие модераторы!!!!! :yes:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Oksana
сообщение 21.10.2005 13:10
Сообщение #8





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Оксана

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


Вторая задачка правильна?

var 
  a: array[1 .. 10] of integer;
  i:integer;

begin
writeln('vv. 10 4isel');
for i := 1 to 10 do
   begin
      readln(a[i]);
      if a[i] > 15 then a[i] := 15;
   end;
for i := 1 to 10 do write(a[i],' ');
end.


или writeln('vv. 10 4isel') нужно ввести до цикла?
Исправьте задачку пожалуйста

Исправлено

Сообщение отредактировано: volvo - 21.10.2005 13:37
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 21.10.2005 13:42
Сообщение #9


Гость






См. предыдущий пост... Кстати, на будущее, постарайся придерживаться 2-х правил:
1. Название темы. Оно все-таки должно отражать суть задания.
2. Если тебе приводят фрагмент кода, ты можешь его исправлять, добавлять в него что-то, это твое дело... Но если ты хочешь, чтобы он оставался рабочим, не добавляй ничего ВНУТРЬ приведенного фрагмента (если только там прямо не указано, что необходимо что-либо добавить). Выше или ниже по тексту, но не внутри... Обычно те фрагменты, которые приводятся, вполне работоспособны, а полностью задачи выкладываются очень редко...
 К началу страницы 
+ Ответить 
Oksana
сообщение 21.10.2005 13:47
Сообщение #10





Группа: Пользователи
Сообщений: 6
Пол: Женский
Реальное имя: Оксана

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


Цитата(volvo @ 21.10.2005 13:42)
См. предыдущий пост... Кстати, на будущее, постарайся придерживаться 2-х правил:
1. Название темы. Оно все-таки должно отражать суть задания.
2. Если тебе приводят фрагмент кода, ты можешь его исправлять, добавлять в него что-то, это твое дело... Но если ты хочешь, чтобы он оставался рабочим, не добавляй ничего ВНУТРЬ приведенного фрагмента (если только там прямо не указано, что необходимо что-либо добавить). Выше или ниже по тексту, но не внутри... Обычно те фрагменты, которые приводятся, вполне работоспособны, а полностью задачи выкладываются очень редко...

Поняла! буду придерживатся этим правилам!!!
Thanks за исправку! побежала на пары
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 

- Текстовая версия 22.07.2025 21:59
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"