|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.06.2007, 15:19 | #1 |
Регистрация: 14.06.2007
Сообщений: 7
|
Паскаль. задачи на массивы
учусь заочно, пытался сам сделать, но не врубаюсь друзья все уже паскаль позабывали...
выручайте.. задачки по паскалю |
14.06.2007, 19:03 | #2 |
Регистрация: 14.06.2007
Сообщений: 7
|
так-с вторую задачу осилил
|
14.06.2007, 20:45 | #3 |
Регистрация: 14.06.2007
Сообщений: 7
|
4-я есть
|
14.06.2007, 21:15 | #4 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Неплохая тенденция...
ICQ: 5311314
[SIGPIC][/SIGPIC] |
14.06.2007, 21:36 | #5 |
Регистрация: 14.06.2007
Сообщений: 7
|
дальше пока дело не идет
|
14.06.2007, 22:43 | #6 |
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.
Life is too short, play more...
Как правильно задавать вопросы |
14.06.2007, 22:49 | #7 |
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.
Life is too short, play more...
Как правильно задавать вопросы |
14.06.2007, 22:53 | #8 |
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.
Life is too short, play more...
Как правильно задавать вопросы |
14.06.2007, 23:01 | #9 |
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.
Life is too short, play more...
Как правильно задавать вопросы |
14.06.2007, 23:02 | #10 |
Регистрация: 14.06.2007
Сообщений: 7
|
я так первую сделал. Чисто на вскидку правильно? Alex, спасибо! смотрю у тебя код сложней моего что говорить... pro ) Последний раз редактировалось rant; 14.06.2007 в 23:14. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Две задачи на массивы. | 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 |