Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.05.2009, 12:39   #1
muzhik65
 
Регистрация: 24.05.2009
Сообщений: 7
Стрелка Нужно решить 6 задачек Pascal

Вот задачи которые нужно решить :
1) Найти все элементы массива целых чисел B(n),удовлетворяющие условию:остаток от деления на 5 равен 3. Массив заполняется вводом чисел с клавиатуры.

2)Найти сумму наибольшего и наименьшего элементов массива вещественных чисел Z(n). Массив заполняется случайным образом.

3)Заполнить массив двадцатью числами по правилу :F(i):=a в 3 степени +2*a*i

4)Массив целых чисел С(n) ,размер массива и заданное число D вводятся с клавиатуры. Заменить все элементы ,большие 10 ,на число D.

5) В линейный массив вещественных чисел на место максимального элемента вставить минимальный элемент. Массив заполняется с клавиатуры 10-ю числами.

6)Удалить 10-й элемент массива целых чисел. Массив формируется случайным образом числами из интервала [-100;100]
muzhik65 вне форума
Старый 24.05.2009, 12:42   #2
Desha
Форумчанин
 
Аватар для Desha
 
Регистрация: 06.04.2009
Сообщений: 124
По умолчанию

Подскажи числа для проверки 1й задачи
Desha вне форума
Старый 24.05.2009, 12:49   #3
muzhik65
 
Регистрация: 24.05.2009
Сообщений: 7
По умолчанию

может быть любые подойдут самые маленькие? я не знаю(((((((((((((((
muzhik65 вне форума
Старый 24.05.2009, 12:54   #4
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Цитата:
1) Найти все элементы массива целых чисел B(n),удовлетворяющие условию:остаток от деления на 5 равен 3. Массив заполняется вводом чисел с клавиатуры.
Код:
program Xddd;
const n=10;
var b:array [1..n] of integer;
i: integer;
begin
for i:= 1 to n do
 begin
 ReadLn(b[i]);
 if b[i] mod 5 = 3 then WriteLn(b[i]);
 end;
 ReadLn;
end.
Кто бы ты ни был - не думай о себе слишком (с)
DM_bite вне форума
Старый 24.05.2009, 12:57   #5
Desha
Форумчанин
 
Аватар для Desha
 
Регистрация: 06.04.2009
Сообщений: 124
По умолчанию

1-ая задача
Код:
uses crt;
var
   a,b:array[1..100] of integer;
   i:byte;
   n:integer;

begin
   clrscr;
write('Введите количество элементов в массиве-->');
readln(n);
writeln('Введите элементы массива:');
writeln('После кажого ввода нажимайте <enter>');
for i:=1 to n do
begin
readln(a[i]);
b[i]:=a[i] mod 5;
end;
writeln('Элементы удовлетворяющие условию:');
for i:=1 to n do
   if  b[i]=3 then write(a[i],' ');
End.
Desha вне форума
Старый 24.05.2009, 12:58   #6
Desha
Форумчанин
 
Аватар для Desha
 
Регистрация: 06.04.2009
Сообщений: 124
По умолчанию

2-ая задача
Код:
uses crt;
var
   a:array[1..100] of real;
   i:byte;
   n,min,max:integer;
   k,sum:real;
   
begin
   clrscr;
   randomize;
   write('Введите количество элементов в массиве-->');
readln(n);
k:=0.5;                   //дробная часть. если она равна напр. 0,3 то все числа будут с этой частью
for i:=1 to n do
a[i]:=random(40)-k;
for i:=1 to n do
write(a[i],'   ');
min:=1;
max:=1;
for i:=2 to n do
begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end;
sum:=a[min]+a[max];
writeln;
writeln('Ответ: ',sum);
End.
Desha вне форума
Старый 24.05.2009, 12:58   #7
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Цитата:
4)Массив целых чисел С(n) ,размер массива и заданное число D вводятся с клавиатуры. Заменить все элементы ,большие 10 ,на число D.
Код:
Program Xdd;
var c:array [1..100] of integer;
n,i,D: integer;
begin
ReadLn(n);
ReadLn(D);
for i:= 1 to n do
 begin
 ReadLn(c[i]);
 if c[i]>10 then c[i]:= D;
 WriteLn(c[i]);
 end;
 ReadLN;
end.
Цитата:
3)Заполнить массив двадцатью числами по правилу :F(i):=a в 3 степени +2*a*i
Код:
Program Xddd;
const n=20;
var F:array [1..n] of integer;
a,i: integer;
begin 
 ReadLn(a);
for i:= 1 to n do
 begin
 f[i]:= sqr(a)*a+2*a*i;
 WriteLn(f[i]);
 end;
 ReadLn;
end.
Кто бы ты ни был - не думай о себе слишком (с)

Последний раз редактировалось DM_bite; 24.05.2009 в 13:02.
DM_bite вне форума
Старый 24.05.2009, 13:10   #8
Desha
Форумчанин
 
Аватар для Desha
 
Регистрация: 06.04.2009
Сообщений: 124
По умолчанию

5-ая задача
Код:
uses crt;
var
   a:array[1..100] of real;
   i:byte;
   l:real;
   n,min,max:integer;

   
begin
   clrscr;
   randomize;
   n:=10;
for i:=1 to n do
a[i]:=random(40)-10;
for i:=1 to n do
write(a[i],'   ');
min:=1;
max:=1;
for i:=2 to n do
begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end;
writeln;
writeln('Макс ',a[max]);
writeln('Мин ',a[min]);
l:=a[max];
a[max]:=a[min];
a[min]:=l;
for i:=1 to n do
write(a[i],'   ');
writeln;
End.
Desha вне форума
Старый 24.05.2009, 13:55   #9
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

Код:
var n,i:integer;
    A:array [1..100] of integer;
begin
write('n>10,  n='); readln(n);
for i:=1 to n do
begin
 A[i]:=-100+random(201);
 write(A[i],'   ');
end;
writeln;
for i:=10 to n-1 do
 A[i]:=A[i+1];

for i:=1 to n-1 do
 write(A[i],'   ');
readln
end.
Жми на весы!!!
Chudo4258 вне форума
Старый 24.05.2009, 13:56   #10
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

http://programmersforum.ru/attachmen...1&d=1243158976
Изображения
Тип файла: jpg 1.jpg (6.6 Кб, 146 просмотров)
Жми на весы!!!
Chudo4258 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решить 6 задачек Pascal muzhik65 Помощь студентам 1 24.05.2009 12:24
Нужно решить задачу на Pascal (способом с модулем) Cyanide Помощь студентам 2 21.04.2009 18:26
ПОМОГИТЕ решить 5 задачек РомКа Помощь студентам 5 16.04.2009 15:10
Нужно решить 12-15 несложных задачек QBasic *GobliN Фриланс 1 02.06.2008 20:46