Помощь - Поиск - Пользователи - Календарь
Полная версия: 3 простых задачи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Oksana
Кто нибудь, помогите пожайлуста решить 3 задачи. Я по этому предмету ничего не понимаю sad.gif а специальность совсем другая huh.gif Если поможете, буду очень вам благодарна!! задачи на сегодня sad.gif

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

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

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

ЗАРАНЕЕ БЛАГОДАРЮ!!! задачки очень надо
virt
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];
Oksana
virt!!!!!!!!

Огромное тебе спасибо!!!!! а 3ый скрипт к 3 ей задаче?
volvo
Цитата(Oksana @ 21.10.2005 10:45)
а 3ый скрипт к 3 ей задаче?

:yes: Только почему "скрипт"?... "Программа" как-то привычнее...
Oksana
Цитата(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]
volvo
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
ВСЕ!!! огромное спасибо ВАМ! хорошие модераторы!!!!! :yes:
Oksana
Вторая задачка правильна?

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

Поняла! буду придерживатся этим правилам!!!
Thanks за исправку! побежала на пары
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.