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

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

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

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





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

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


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

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

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

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

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

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





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

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


virt!!!!!!!!

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


Гость






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

:yes: Только почему "скрипт"?... "Программа" как-то привычнее...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





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

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


ВСЕ!!! огромное спасибо ВАМ! хорошие модераторы!!!!! :yes:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






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





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

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


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

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

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

 





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