-
ТУСУР
2 курс

задачи по программированию

задачи
Программирование
10 страниц
80% уникальность
2014 год
11 просмотров
Подмарков П.
Эксперт по предмету «Программирование»
Узнать стоимость консультации
Это бесплатно и займет 1 минуту
Фрагмент работы
var a,b,c,Xn,Xk,dX,F,F1:extended; st:string; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=StrToFloat(Edit3.Text); Xn:=StrToFloat(Edit4.Text); Xk:=StrToFloat(Edit5.Text); dX:=StrToFloat(Edit6.Text); while Xn<=Xk do begin if (Xn<0)AND(b<>0) then F1:=a*Xn*Xn+b; if (Xn>0)AND(b=0) then F1:=(Xn-a)/(Xn-c) else F1:=Xn/c; if ((trunc(a) or trunc(b)) and (trunc(a) or trunc(c)))<>0 then F:=F1 else F:=int(F1); st := st + #10 + FloatToStr(Xn) + #9 + FloatToStr(F); Xn:=Xn+dX; end; Label7.Caption := st;   Задача 2. const N=10; var i,j,f,imax,imin:integer; sum, pr,max,min,buf:extended; mas,mas1:array[1..N] of extended; st,st1:string; begin sum:=0; pr:=1; max:=-10; min:=15; for i:=1 to N do begin mas[i]:=random(100)/4 - 10; st := st + #10 + FloatToStr(mas[i]); if mas[i]<0 then sum:=sum+mas[i]; if mas[i]>=max then begin max:=mas[i]; imax:=i; end; if mas[i]<=min then begin min:=mas[i]; imin:=i; end; end;
Читать дальше
Поможем с написанием такой-же работы от 500 р.
Лучшие эксперты сервиса ждут твоего задания

Похожие работы

контрольная работа
Роль экономики и права в современной мировой политике
Количество страниц:
25
Оригинальность:
75%
Год сдачи:
2014
Предмет:
Международные отношения
практическое задание
Инвестиционная оценка Южного потока
Количество страниц:
10
Оригинальность:
80%
Год сдачи:
2014
Предмет:
Инвестиции и проекты
бизнес-план учебный
Бизнес-план интернет-услуги на примере детских товаров с доставкой
Количество страниц:
50
Оригинальность:
80%
Год сдачи:
2014
Предмет:
Бизнес-планирование
дипломная работа
"Радио России": история становления, редакционная политика, аудитория. (Имеется в виду радиостанция "Радио России")
Количество страниц:
70
Оригинальность:
61%
Год сдачи:
2015
Предмет:
История журналистики
курсовая работа
26. Центральное (всесоюзное) радиовещание: история создания и развития.
Количество страниц:
25
Оригинальность:
84%
Год сдачи:
2016
Предмет:
История журналистики

Поможем с работой
любого уровня сложности!

Это бесплатно и займет 1 минуту
image