![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 05.06.2010
Сообщений: 1
|
![]()
надо сделать блок схемы а то в понедельник экзамен
1)PROGRAM lab1; VAR a, b, x, I, y, k: REAL; BEGIN WRITE('vvedite a, x, b'); READLN(x,a,b); y:=(2*(a+2*b))/(Sqrt(sqr(a)+2*sqr(b))+a-4*sqr(a*b))+(3*sqr(x)+k)/(sqr(1.7*x+7)-ln(x)); WRITELN ('y=',y); END. 2)PROGRAM lab2; VAR y,x :real; BEGIN WRITE('VVEDITE x='); READLN(x); IF x<=0 THEN y:=sqrt(x)-1 ELSE y:=-1*x; WRITELN('y:=',y); END. 3)PROGRAM lab3; VAR x1, x2, x3,y,z: REAL; BEGIN WRITE('VVEDITE x1,x2='); READLN(x1,x2,x3); IF x1>10 THEN BEGIN y:=abs(x2)+1.5*x3; z:=sqrt(sqr(x2)+sqr(x3)); END ELSE IF(x1<=10) and (x2<5) THEN BEGIN z:=ln(abs(x1))+x2; y:=z; END ELSE BEGIN z:=5; y:=z; END; WRITELN('y',y,'z=',z); END. 4)PROGRAM lab4; VAR s:REAL; n:INTEGER; BEGIN s:=0; n:=1; REPEAT s:=s+1/((2*n-1)*(2*n-1)); n:=n+1; until 1/((2*n-1)*(2*n+1))>0.001; WRITELN(s); END. 5)PROGRAM lab5; VAR a,b: array [1..100] of INTEGER; i,n:INTEGER; BEGIN WRITE ('VVEDITE RAZMERNOST MASSIVA='); READLN(n); FOR i:=1 to n do BEGIN WRITE ('VVEDITE a[',i,']='); READLN (a[i]); END; b[1]:=-1*a[1]; for i:=2 to n do BEGIN IF (i mod 2)= 0 THEN b[i]:=a[i] ELSE b[i]:=-1*a[i]; END; FOR i:=1 to n do WRITELN('b[',i,']=',b[i]); END. 6)PROGRAM lab6; VAR s,n,i,k,y,j:integer; a: array [1..100,1..100] of INTEGER; BEGIN WRITE('n='); WRITE('VVEDITE i,k='); READLN(i,k); FOR y:=1 to 100 do; FOR j:=1 to 100 do; BEGIN WRITELN('VVEDITE a[',y,',',j,']='); READLN (a[y,j]); END; s:=0; FOR j:=1 to n do; s:=s+a[i,j]*a[i,j]; WRITELN('s=',s); END. за помощь отблагодарю хорошо!!в итоге 6 схем должно быть |
![]() |
![]() |
#2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]()
Добавь после начала каждой лабы только блок описания переменных.
にんじゃ
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Очень нужна помощь c матрицами, макросами в Excel. Заранее благодарен(поверьте, очень-очень нужна помощь) | Farridjan | Помощь студентам | 1 | 03.07.2009 12:24 |
Очень нужна помощь! Нужно найти ошибку в очень простой программе. | Lex55555777 | Помощь студентам | 3 | 07.12.2008 20:32 |