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

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

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

Восстановить пароль
Повторная активизация e-mail

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

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

учусь заочно, пытался сам сделать, но не врубаюсь друзья все уже паскаль позабывали...
выручайте..

задачки по паскалю
rant вне форума
Старый 14.06.2007, 19:03   #2
rant
 
Регистрация: 14.06.2007
Сообщений: 7
По умолчанию

так-с вторую задачу осилил
rant вне форума
Старый 14.06.2007, 20:45   #3
rant
 
Регистрация: 14.06.2007
Сообщений: 7
По умолчанию

4-я есть
rant вне форума
Старый 14.06.2007, 21:15   #4
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Неплохая тенденция...
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума
Старый 14.06.2007, 21:36   #5
rant
 
Регистрация: 14.06.2007
Сообщений: 7
По умолчанию

дальше пока дело не идет
rant вне форума
Старый 14.06.2007, 22:43   #6
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=1=-
var x1,y1,z1:integer;

function getA(x,y,z:integer):extended;
begin
getA:=x^y+abs(sqr(x)-4*y*z);
Writeln('А = ',GetA);
end;
function GetF_A(getA);
begin
GetF_A:=sin(GetA)+(sqr(GetA)/4);
Writeln('F(А) = ',GetF_A);
end;
begin
Writeln('Введите X : ');
Readln(X1);
Writeln('Введите Y : ');
Readln(Y1);
Writeln('Введите Z : ');
Readln(Z1);
getA(x1,y1,z1);
GetF_A(getA);
end.
Alex21 вне форума
Старый 14.06.2007, 22:49   #7
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=2=-
var a,b,c:integer;
E1,E2,D:extended;
begin
Writeln('Введите A : ');
Readln(A);
Writeln('Введите B : ');
Readln(B);
Writeln('Введите C : ');
Readln(C);
D:=sqr(A)-sqr(B)-sqr(C);
{находим Е1}
if (C<B)and(B<A) then
begin
E1:=(A-B)/C;
end else
begin
E1:=A*B*C;
end;
{находим Е2}
if (D>=0) then
begin
E2:=sqrt(D);
end else
begin
E2:=exp(D);
end;
Writeln('E1 = ',E1);
Writeln('E2 = ',E2);
end.
Alex21 вне форума
Старый 14.06.2007, 22:53   #8
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=3=-
const
N=100;
var
a:array[1..N]:string;
i:integer;
str:string;
begin
for i:= 1 to N do
begin
str:=a[i];
if (str[0]='М')and(str[0]='М')and(str[0]='Т')then
begin
writeln('Знак №',i,' ',str);
end;
end;
end.
Alex21 вне форума
Старый 14.06.2007, 23:01   #9
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=6=-
const N=20;
var
t:array[1..N]of integer;
i,min,max:integer;
procedure Create_Mass;
begin
Randomize();
for i:=1 to N do
begin
t[i]:=Random(100)-Random(100);
end;
end;
begin
Create_Mass;
min:=t[1];
max:=t[1];
{выводим исходный массив}
for i:=1 to N do
writeln(t[i],' ');
end;
{находим МИН МАКС}
for i:=2 to N do
begin
if min < t[i] then min:=t[i];
if max > t[i] then max:=t[i];
end;
{заменяем отрицательные}
for i:= 1 to N do
begin
if t[i]<0 then t[i]:=(max=min)/2;
writeln(t[i],' ');{выводим полученный массив}
end;
end.
Alex21 вне форума
Старый 14.06.2007, 23:02   #10
rant
 
Регистрация: 14.06.2007
Сообщений: 7
По умолчанию



я так первую сделал. Чисто на вскидку правильно?
Alex, спасибо! смотрю у тебя код сложней моего что говорить... pro )

Последний раз редактировалось rant; 14.06.2007 в 23:14.
rant вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две задачи на массивы. Nadi Помощь студентам 4 25.04.2011 16:58
Помогите переделать 2 задачи под динамические массивы (Паскаль) mpegable Помощь студентам 2 27.05.2008 17:32
Паскаль. Задачи на массивы pr1mat Паскаль, Turbo Pascal, PascalABC.NET 6 26.05.2008 15:04
Задачи на массивы и указатели в СИ D@rk_Spirit Общие вопросы C/C++ 3 29.12.2007 08:01