Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 10.01.2011, 22:04   #1 (permalink)
Ксения)777)
Member
 
Регистрация: 25.12.2010
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Моя сессия в ваших руках

Цикл:Дана последовательность, состоящая из n вещественных чисел. Опре-делить является ли она возрастающей или убывающей.

Одномерные массивы:Даны натуральное число n и массив A(n). Переформировать массив, расположив вначале массива все отрицательные элементы, а потом по-ложительные.

Матрицы:Дана матрица вещественного типа D(n,m), n, m <= 20. В заданной матрице вычерк-нуть все строки, содержащие более трех отрицательных элементов. Вывести на пе-чать исходную матрицу-результат или соответствующее сообщение, если таких строк не окажется или все строки будут удовлетворять условию.
Ксения)777) вне форума   Ответить с цитированием

Старый 10.01.2011, 22:04
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Вот обсуждения, которые имеют общее с вашей темой

Фотографии ваших машин и мотоциклов
Длина ваших волос
Горит сессия, помогите!
Помогите с массивами в TP
IBM PC Server 320 или техника в руках дикаря =)
Сессия Бэтмена. Не пинать!!!

Старый 11.01.2011, 00:20   #2 (permalink)
skaa
Новичок
 
Регистрация: 11.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

На каком языке программировать?
skaa вне форума   Ответить с цитированием
Старый 11.01.2011, 12:55   #3 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от Ксения)777) Посмотреть сообщение
Одномерные массивы:Даны натуральное число n и массив A(n). Переформировать массив, расположив вначале массива все отрицательные элементы, а потом по-ложительные.
Код:
var
a:array [1..1000] of integer;
n,i,k,j:integer;
begin
randomize;
write ('enter n=');
readln (n);
{Формирование массива}
for i:=1 to n do begin
a[i]:=random(10)-5;
write (a[i],' ');
end;
writeln;
k:=0;
{Сортировка массива}
for i:=1 to n-1 do begin
for j:=1 to n-i do begin
if a[j]>a[j+1]then
begin 
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
end;
end;
{Вывод получившегося на экран}
for i:=1 to n do
write (a[i],' ');
readln
end.
shrek=) вне форума   Ответить с цитированием
Старый 11.01.2011, 13:20   #4 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от Ксения)777) Посмотреть сообщение
Матрицы:Дана матрица вещественного типа D(n,m), n, m <= 20. В заданной матрице вычерк-нуть все строки, содержащие более трех отрицательных элементов. Вывести на пе-чать исходную матрицу-результат или соответствующее сообщение, если таких строк не окажется или все строки будут удовлетворять условию.
Код:
var
a:array [1..20,1..20] of real;
i,j,k,c,c1,m,n:integer;
begin
randomize;
{Ввод размерности массива}
write ('m=');
readln (m);
write ('n=');
readln (n);
{Заполнение массива случайными числами}
for i:=1 to m do
begin
for j:=1 to n do begin
a[i,j]:=random*(10)-5;
write (a[i,j]:2:1,' ');
end;
writeln;
end;
writeln;
{Проверка массива}
for i:=1 to m do begin
k:=0;
for j:=1 to n do begin
if  a[i,j]<0  then inc(k);
end;
if k>=3 then begin
for c:=i to m-1 do
for c1:=1 to n do
a[c,c1]:=a[c+1,c1];
dec(m);
end;
end;
{Вывод массива}
for i:=1 to m do begin
for j:=1 to n do begin
write (a[i,j]:2:1,' ');
end;
writeln;
end;
readln
end.
shrek=) вне форума   Ответить с цитированием
Старый 11.01.2011, 13:34   #5 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Цитата:
Сообщение от Ксения)777) Посмотреть сообщение
Цикл:Дана последовательность, состоящая из n вещественных чисел. Опре-делить является ли она возрастающей или убывающей.
Код:
var
a:array [1..1000] of real;
n,i:integer;
begin
write ('n=');
readln(n);
for i:=1 to n do begin
write ('a[',i,']=');
readln (a[i]);
end;
i:=2;
while i<=n do begin
if a[i-1]>a[i] then begin
writeln ('Не возрастающая');
break;
end;
inc(i);
end;
if i=n+1 then writeln ('Возрастающая');
readln
end.
shrek=) вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:49.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.