это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение высшего профессионального образования «ЧЕЛЯБИНСКИЙ ГОСУДАРСТВЕННЫЙ ПЕДАГОГИЧЕСКИЙ УНИВЕРСИТЕТ»
Контрольная работа
по предмету
«Технологии программирования»
Исполнитель:
студент 1 курса ОЗО факультета РИПОДО
«Информационные технологии в образовании»
Челябинск, 2011
Тема 1: Простейшие программы
Задача 3. Уровень 1
Условие:
На борту самолета, летящего по маршруту Москва-Лондон, находятся x пассажиров. Три четверти пассажиров имеют билеты второго класса, все остальные – первого. Билет первого класса стоит b рублей. Это в два раза больше стоимости билета второго класса. Сколько денег получила авиакомпания от продажи билетов на этот рейс?
Листингпрограммы:
program Project 1 ;
{$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 Project 2 ;
{$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 Project 3 ;
{$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.
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
Выполнить 2 контрольные работы по Информационные технологии и сети в нефтегазовой отрасли. М-07765
Контрольная, Информационные технологии
Срок сдачи к 12 дек.
Архитектура и организация конфигурации памяти вычислительной системы
Лабораторная, Архитектура средств вычислительной техники
Срок сдачи к 12 дек.
Организации профилактики травматизма в спортивных секциях в общеобразовательной школе
Курсовая, профилактики травматизма, медицина
Срок сдачи к 5 дек.
краткая характеристика сбербанка анализ тарифов РКО
Отчет по практике, дистанционное банковское обслуживание
Срок сдачи к 5 дек.
Исследование методов получения случайных чисел с заданным законом распределения
Лабораторная, Моделирование, математика
Срок сдачи к 10 дек.
Проектирование заготовок, получаемых литьем в песчано-глинистые формы
Лабораторная, основы технологии машиностроения
Срок сдачи к 14 дек.
Вам необходимо выбрать модель медиастратегии
Другое, Медиапланирование, реклама, маркетинг
Срок сдачи к 7 дек.
Ответить на задания
Решение задач, Цифровизация процессов управления, информатика, программирование
Срок сдачи к 20 дек.
Написать реферат по Информационные технологии и сети в нефтегазовой отрасли. М-07764
Реферат, Информационные технологии
Срок сдачи к 11 дек.
Написать реферат по Информационные технологии и сети в нефтегазовой отрасли. М-07764
Реферат, Геология
Срок сдачи к 11 дек.
Разработка веб-информационной системы для автоматизации складских операций компании Hoff
Диплом, Логистические системы, логистика, информатика, программирование, теория автоматического управления
Срок сдачи к 1 мар.
Нужно решить задание по информатике и математическому анализу (скрин...
Решение задач, Информатика
Срок сдачи к 5 дек.
Заполните форму и узнайте цену на индивидуальную работу!