Назарбаев Интеллектуальная школа физико-математического направления г.Уральск

«А» класса
Гинаятова Айгерим
Руководитель: учитель информатики
Нурмуханова Гульзухра Аманжоловна

(блок-схема
Листинг программы ( с комментариями )
Результаты тестирования программы
Сопровождение программы (Руководство

пользователя)
Оценивание
Заключение

строительстве домов с
помощью программы Pascal
Задачи: Создать программу в Pascal-е, включающую

в себя вычислительный код для рассчитывания мощности при поднятии груза
Гипотеза:С помощью программы Pascal, я создам такую программу, которая сможет помочь построить многие жилые дома

«Баллы».
Входные данные: y, b,AN, m - масса кирпичей, F -

сила тяжести, S - площадь дома, a - количество этажей, t - необходимое время для постройки дома.
Выходные данные: N – мощность.
В программе использовалась константа g(гравитационная постоянная).
Кроме физической формулы нахождения мощности(N=F*S/t), никаких формул не использовалось.

вам в постройке домов. Для начала, при строительстве дома, вид

какого кирпича вы хотите использовать: керамический или силикатный?');
pict := Picture.Create('123.png');
pict.Draw(100, 100);
pict2 := Picture.Create('4321.jpg');
pict2.Draw(700, 100);
readln(b);
clearwindow(clwhite);;
if b='керамический' then m:=4.2
else m:=4.7;
writeln('Дом скольких этажей вы хотите построить(высота одного этажа - 2.5 м)?');
readln(a);
S:=a*2.5;
F:=m*g*300;
writeln('За какое время вам нужно построить дом?(введите ответ в секундах)');
readln(t);
N:=F*S/t;

ли моя программа полезна ?');
READln(aN);
if aN='да' then begin setfontsize(30); clearwindow(clwhite);

writeln('Спасибо'); sleep(500); pict3 := Picture.Create('12.jpeg');
pict3.Draw(0, 0,window.Width,window.Height); sleep(2134);clearwindow(clwhite); end
else
if An='нет' then begin setfontsize(30); clearwindow(clwhite); writeln('Очень жаль, в следующий раз постараемся лучше'); sleep(500); pict3 := Picture.Create('34.jpg');
pict3.Draw(0, 0,window.Width,window.Height);
sleep(3500); end;

clearwindow(clwhite);
writeln('Оцените программу по пяти бальной шкале');
read(y);
clearwindow(clwhite);
if y=1 then begin pict4 := Picture.Create('123.jpg');
pict4.Draw(0, 0,window.Width,window.Height);end;
if y=2 then begin pict5 := Picture.Create('22.png');
pict5.Draw(0, 0,window.Width,window.Height);end;
if y=3 then begin pict6 := Picture.Create('32.png');
pict6.Draw(0, 0,window.Width,window.Height);end;
if y=4 then begin pict7 := Picture.Create('42.png');
pict7.Draw(0, 0,window.Width,window.Height);end;
if y=5 then begin pict8 := Picture.Create('52.jpg');
pict8.Draw(0, 0,window.Width,window.Height);end;

end.

выводит вопросы, таким образом, программа выводит на монитор ответ.
Все

что требуется от ученика, это – отвечать на вопросы полностью и писать ответ грамотно.

использовании. Так же, я узнала много нового про строительство. Думаю,

что эта программа облегчит работу архитекторов и строителей. Можно сказать, что она создала отличный проект и достигла своей поставленной цели.
Аружан Сапарова, 8 «А»
Я считаю, что проект Айгерим "Строительство домов" очень полезный для будущих строителей. Она показала свои знания по информатике и физике, что очень хорошо для нее. Для меня данная программа очень интересная, думаю для других учеников тоже.
Баймаганбетов Ансар, 8 «А»
Я думаю, что проект Айгерим будет полезным, так как он очень хорошо проработан.
Я считаю, что проект удался, были использованы знания, которые мы получили на протяжении всей четверти.
Куанова Дильназ, 8 «А»

применить больше креативности и графического редактора к программе.
В целом, мне

программа понравилась. Я думаю, что я достигла своей цели.