4й вариант, блок-схема к програме
[реклама вместо картинки]
Контрольная работа №1
Страница: 1
Сообщений 1 страница 13 из 13
Поделиться12009-01-16 13:51:34
Поделиться22009-01-17 17:50:28
Пример решения 8го варианта.
program zd8;
const
a=-0.5;
b=2;
dt=0.15; {дельта t}var
t,{переменная}
t1,t2, {пределы функции}
y:real;{результат}begin
writeln ('Введите границы функции');
readln(t1,t2);t:=t1;
writeln('Ответы:');
repeat
if t<1 then y:=1
else if (1<=t) and (t<=2) then y:=a*sqr(t)*ln(t)
else y:=exp(a*t)*cos(b*t);
write(t:4:2,'=');
writeln(y:4:4);
t:=t+dt;
until t>t2;end.
Отредактировано DonJad (2009-01-17 17:52:57)
Поделиться32009-01-19 15:13:29
Ребята кто в информатике шарит? Помогите если не трудно подскажите а то вообще ничего не рублю, попытался в нашей библиотеке литературу поискать ничего нужного не нашёл, одним словом попал. Кр№1 вариант 3 4,5 и 6 задания. Заранее благодарю.
Поделиться42009-01-19 19:07:24
Я тоже полный ноль в информатике=(...у кого 10й вариент подкинте ответы на вопросы 
Поделиться52009-01-19 19:09:38
ээ...на последние вопросы, плизз
Поделиться62009-01-19 22:04:41
А в химии рубишь? 
Поделиться72009-02-04 09:05:11
Первый Варинт вопросы 4 и 5ть.
4. Напишите шаблоны имен файлов которые
а) *TS.*
б) M*.TR
в) ???.pas - найти все файлы имя которых состоит из 3х символов, с расширением .pas
A*.* - все файлы начинающиеся с символа A
AL??.* - все 4х символьные файлы начинающиеся с символов AL.
5. Чему равны значения переменных x и y после выполнения операторов
x:=2; y:=5; x:=y; y:=x;
ответ:
x=5, y=5
Поделиться82009-02-12 20:38:07
блок-схема у меня немног другая получилась... 
(у меня 4ый вариант) но ничего в контрольной не отметили... значит сойдет
Поделиться92009-02-13 07:34:44
У любой задачи может быть 2-3 разных верных решения.
Поделиться102009-02-14 09:54:47
тогда ладно)))
Поделиться112009-02-16 20:13:32
а я написала информатику....сёдня сдала....буду ждать с нетерпением и ужасом результаты 
Поделиться122009-02-16 20:18:24
так навсяк случай скину кое-что...мож правильно и кому-нить ещё понадобиться
4:
copy_c:\only\every\TTT.txt + c:\only\every\QQQ.txt_c:\today\morning
ren_c:\today\morning\TTT.txt_EEE.txt
5:
Значение переменной S после выполнения данных операторов, будет равна единице, т.к. задание установленное в теле цикла будет выполнено до тех пор, пока булевое условие станет верно.
6:
const d=9;
a=2.5;
var b:array [1..d] of real;
p:array [1..d] of real;
i:integer;
begin
b[1]:=1;
write (b[1]:2);
for i:=2 to d do begin b[i]:=b[i-1]+0.5;write(b[i]:2,' ');end;
writeln;
for i:=1 to d do
begin
if b[i]>a then p[i]:=b[i]*b[i]*b[i]*sqrt(b[i]-a) else
if b[i]<a then p[i]:=exp(-a*b[i])*cos(a*b[i]) else p[i]:=b[i]*sin(a*b[i]);
writeln(p[i],' ');
end;
end.
Поделиться132009-02-16 20:20:23
ой! вариант 10 
))))))
Страница: 1