Контрольная работа

Контрольная работа по Технологии программирования

Работа добавлена на сайт bukvasha.net: 2015-10-25

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025





ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное учреждение высшего профессионального образования «ЧЕЛЯБИНСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ»



Контрольная работа

по предмету

«Технологии программирования»


Исполнитель:

студент  1 курса ОЗО факультета РИПОДО

«Информационные технологии в образовании»
Челябинск, 2011

Тема 1: Простейшие программы

Задача 3. Уровень 1

Условие:

На борту самолета, летящего по маршруту Москва-Лондон, находятся x пассажиров. Три четверти пассажиров имеют билеты второго класса, все остальные – первого. Билет первого класса стоит b рублей. Это в два раза больше стоимости билета второго класса. Сколько денег получила авиакомпания от продажи билетов на этот рейс?

Листинг

программы
:




program Project1;
{$APPTYPE CONSOLE}
uses

  SysUtils;

var x,b,c,a,d: integer;

begin

writeln ('VveguTe kolucheCTBo naccazhipoB');

readln (x);

writeln ('Ckolbko buletov 1 klacca');

readln (a);

writeln ('Ckolbko buletov 2 klacca');

readln (c);

writeln ('Vvedite cTouMocTb buleta 1 klacca');

readln (b);

writeln ('Vvedite cTouMocTb buleta 2 klacca');

readln (d);

x:=(b*c)+(d*a);

writeln (x);

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Тема 2: Условный оператор

Задача 14. Уровень 1

Условие:

Написать программу нахождения суммы большего и меньшего из 3 чисел.

Листинг

программы
:




program Project2;
{$APPTYPE CONSOLE}
uses

  SysUtils;
var a, b, c, max, min: integer;                      

begin

writeln ('BBeguTe 1 chislo');

readln (a);

writeln ('BBeguTe 2 chislo');

readln (b);

writeln ('BBegute 3 chislo');

readln (c);

max:=a;

min:=a;

if (b>a) and (b>c) then max:=b

else max:=c;

if (b<a) and (b<c) then min:=b

else min:=c;

writeln (max+min);

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Тема 3: Циклы

Задача 2. Пункт b). Уровень 1

Условие:

Составить программу вычислений значений функции F(x) на отрезке [a; b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции:



Листинг программы:


program Project3;
{$APPTYPE CONSOLE}
uses

  SysUtils;
const a=pi/4; b=pi/2; h=pi/60;

var x,y,f :real;

begin

x:=a;

while x<=b do

begin

y:=sqr(sin(x));

writeln (x:4:2,' ',y:4:2);

x:=x+h;

end;

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.



Задача 1. Пункт c). Уровень 1

Условие:

Составить программу, которая запрашивает пароль (например, четы­рехзначное число) до тех пор, пока он не будет правильно введен.

Листинг

программы
:



program Project1;


{$APPTYPE CONSOLE}


uses

  SysUtils;


const b=1234;

var a:integer;

begin

writeln ('BBeguTe nAPolb');

while a<>b do

begin

readln (a);

if a<>b then writeln ('naPOlb BBegeH HE BePHO');

end;

writeln ('naPOlb BBegeH BePHO');

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.




1. Контрольная работа Расчет платежей по налогам
2. Реферат Памятник Права
3. Курсовая Теоретический аспект особенностей личностного развития одаренных школьников
4. Курсовая Тематичний контроль оцінювання знань учнів з курсу Основи економіки
5. Реферат на тему Экономические системы региона понятие структура основные виды
6. Сочинение на тему Обзорные темы по произведениям русской литературы xx века - Человек и природа в современной литературе
7. Реферат на тему Observation Essay Research Paper Field Experience Observation
8. Реферат Классификация средств вычислительной техники
9. Реферат на тему Химия жизни
10. Реферат на тему Особенности демократии в России