Моделирование. Практическая работа № 1
Описание задачи
Имеется квадратный лист картона. Из листа по углам вырезают четыре квадрата и склеивают коробку по сторонам вырезов. Какова должна быть сторона вырезаемого квадрата, чтобы коробка имела наибольшую вместимость? Какого размера надо взять лист, чтобы получить из него коробку с заданным максимальным объемом?
Цель моделирования
Определить максимальный объем коробки.
Практическая работа № 2
Описание задачи
В магазине продаются обои. Наименования, длина и ширина рулона известны. Для удобства обслуживания надо составить таблицу, которая позволит определить необходимое количество рулонов для оклейки любой комнаты.
Цель моделирования
Помочь покупателям быстро определять необходимое количество рулонов обоев.
Практическая работа № 3
Описание задачи
За два часа до обеденного перерыва 40 бабушек встали в очередь за пенсией. Кассирша обслуживает клиента в среднем одну минуту. Первая бабушка «мучила» кассиршу вопросами 9 мин 15с. Каждая следующая бабушка, частично «мотая на ус» ответы, адресованные предыдущим бабушкам, «мучает» кассиршу на 10с меньше. Построить модель ситуации и исследовать ее.
Цель моделирования
Цель моделирования учебная: исследовать ситуацию с разных углов зрения (задания типа «что будет, если...», «как сделать, что бы...»), сделать выводы и дать свои рекомендации по улучшению обслуживания.
Практическая работа № 4
Описание задачи
Мальчик учит стихотворение из 40 строк. Чтобы запомнить первую строчку ему понадобилась всего 1 мин. На каждую следующую он тратит на 10% времени больше. Стихотворение держится в памяти нерадивого ученика не дольше трех часов, а до школы бежать 15 минут. Как организовать заучивание стихотворения?
Цель моделирования
Предлагается исследовать ситуацию и предложить реальные способы ускорения процесса заучивания стихотворения.
Практическая работа № 5
Цель моделирования
Цель моделирования учебная: выяснить, какую информацию можно получить, обработав числовой массив.
Практическая работа № 6
Цель моделирования
На основе анализа индивидуальных биоритмов прогнозировать неблагоприятные дни, выбирать благоприятные дни для разного рода деятельности.
Формализация задачи
Объектом моделирования в этой задаче может быть любой человек или группа людей, для которых известна дата рождения.
Приложение
Задание 1 Program primer1;
uses crt;
Var YXO, XVOST, NOS, LAPA: char;
begin clrscr;
writeln('Введите ухо. Если длинное/короткое тогда D/K');
readln(YXO);
writeln('Введите хвость. Если длинное/короткое тогда D/K');
readln(XVOST);
writeln('Введите нос. Если длинное/короткое тогда D/K');
readln(NOS);
writeln ('Введите лапа. Если передные меньше/больше задних P/Z') ;
readln(Lapa);
If
((YXO='D') and (XVOST='K') and (NOS='K')and (LAPA='P')) then writeln('Это заяц');
if
((YXO='K') and (XVOST='D') and (NOS='K') and (LAPA='Z')) then writeln('Это кенгуру');
if
((YXO='K') and (XVOST='D') and (NOS='K') and (LAPA='P')) then writeln('Это белка')
end.
Задание 2
program qwe;
uses crt;
var n :integer;
begin clrscr;
writeln('куда ты поедиш путешествоват... ');
randomize; n:=random(20)+1;
writeln; write('ты поедиш.. ');
case n of
1:writeln('ад '); 6:writeln('сочи ');
2:writeln('магадан '); 7:writeln('рим ');
3:writeln('воркута '); 8:writeln('бермутский треугольник ');
4:writeln('ливия '); 9:writeln('тредевятое царство ');
5:writeln('рамоданово '); 10:writeln('останешся дома ');
else writeln('дача:) ');
end;
end.
Задание 3
program primer4; uses crt; var a,S,Sn:real; i,n:integer; begin clrscr; write('введите число суммы N='); readln(n); s:=0; for i:=1 to n do begin a:=(2*i-2)*2; S:=S+a; end; sn:=(4*(N*N))/2; writeln ('конечная сумма s=',S:10:2); writeln ('расчёт конечной суммы по формуле sn=',Sn:10:2); writeln('нажмите enter'); readln end.
Задание 4
program primer1; uses crt; const eps=0.001; var e,a,k,s,sn,t,f:real; n:integer; begin n:=0; a:=1; sn:=1; e:=2.7182828; s:=(e+1)/e; repeat n:=n+1; k:=1/(n*(n+1)); a:=a*k; sn:=sn+a; writeln('частная сумма sn=',sn:11:6,' n=',n:2); until abs(s-sn)<eps; writeln('сумма ряда s=', s:11:6); end.
Задание 5
program primer; uses crt; var summa,skidka: real; begin clrscr; writeln('вычисление стоимости покупки с учетом скидки'); writeln('введите сумму покупки:'); readln(summa); if summa >1000 then skidka:=5; if summa >500 then skidka:=3; writeln('вам представленна скидка',skidka,'%'); writeln('сумма покупки с учетом скидки:',(summa-(summa*skidka)/100)); readln end.
Задание 6
Program primer;
var f1, f2: file of integer;
a,b,c: array [1..25] of integer;
i,j,l,k,temp: integer;
begin
l:=0;
k:=0;
writeln('Исходный массив:');
for i:=1 to 25 do begin
a[i]:=random(21)-10;
write(a[i], ' ');
if a[i]<0 then begin l:=l+1; b[l]:=a[i] end
else if a[i]>0 then begin k:=k+1; c[k]:=a[i] end
end;
writeln;
for i:=1 to l-1
do for j:=i to l do
if b[i]<b[j] then begin
temp:=b[i];
b[i]:=b[j];
b[j]:=temp;
end;
for i:=1 to k-1
do for j:=i to k do
if c[i]>c[j] then begin
temp:=c[i];
c[i]:=c[j];
c[j]:=temp;
end;
assign(f1,'otr');
rewrite(f1);
for i:=1 to l do
write(f1,b[i]);
close (f1);
reset(f1);
writeln('Содержимое файла 1:');
while not eof(f1) do begin
read(f1,temp);
write(temp,' ');
end;
close(f1);
writeln;
assign(f2,'pol');
rewrite(f2);
for i:=1 to k do
write(f2,c[i]);
close (f2);
reset(f2);
writeln('Содержимое файла 2:');
while not eof(f2) do begin
read(f2,temp);
write(temp,' ');
end;
close(f2);
writeln;
end.
Задание 7
Program primer; uses crt,graphABC; var y,x,dx:real; x1,x2:real; i,mx,my:integer; px,py:integer; x0,y0:integer; begin x0:=320;y0:=240; mx:=20;my:=20; line(10,y0,630,y0); line(x0,10,x0,270); x1:=-3;x2:=5;dx:=0.1; x:=x1; while x<x2 do begin y:=sqr(x*x)+2; px:=x0+round(x*mx); py:=y0-round(y*my); PutPixel(px,py,10); x:=x+dx; end; end.
График в паскале:
