|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2010, 19:38 | #1 |
Регистрация: 01.06.2010
Сообщений: 4
|
Контрольные на паскале
Здравствуйте все, мне очень надо оформить контрольные работы 4 шт, написать 1 контрольную и 1 курсовую. Во вложении 1-4 контрольные, 5-е задание курсовая, но она написана коряво, вот задание:
«Ипподром». Играющий выбирает одну из трех лошадей, состязающихся на бегах, и выигрывает, если его лошадь приходит первой. Скорость передвижения лошадей на разных этапах выбирается программой с помощью датчика случайных чисел. Получить на экране картину, дающую модель движения лошадей на всех этапах дистанции. В случае, если лошадь играющего приходить первой, выводить поздравления (желательно разные от игры к игре), в противном случае – слова утешения. Язык программирования: по выбору. Теоретическая часть: 1 Текстовый и графический режимы 2 Переключение между текстовым и графическим режимами (инициализация и закрытие графики) 3 Основные графические функции. Привести описания функций для рисования линии, окружности, прямоугольника, функцию для заливки некоторой области экрана заданным цветом, вывод текста в графическом режиме. Контрольная, которую нужно писать: Дана информация о вкладчиках в сберкассы. Запись имеет вид фамилия,район,социальное положение (служащий, рабочий, крестьянин) и величина вклада. Вывести данные о том сколько среди вкладчиков, служащих, рабочих, крестьян и какова величина вклада каждой из указанных групп. Результаты представить в табличной форме. я кое-что написал, но доделать не могу никак. type anketa = record fam : string[20]; raion : string[20]; status : integer; vklad : integer; end; var a1:anketa; mas : array[1..n] of anketa; i : integer; begin clrscr; for i:=1 to n do with mas[i] do begin write('familiya ->'); readln(fam); write('raion ->'); readln(raion); write('status (0-slughachii, 1-rabochii, 2-krestyanin)->'); readln(status); write('summa vklada ->'); readln(vklad); end; writeln('__________________________ ___________________________________ '); writeln('|| || Familiya || Raion || Status ||'); writeln('||---------------------------------------------------------||'); writeln('|| Chelovek || || || ||'); writeln('||---------------------------------------------------------||'); writeln('|| Summa vklada || || || ||'); for i:=1 to n do with mas[i] do begin writeln('|| ||',fam:12,'||',raion:12,'||',statu s:12,'||',vklad:12); writeln('__________________________ ___________________________________ '); end; readln; End. Скажите сколько кто возьмет, только нужно очень срочно, до 7 июня. Если договоримся - вышлю как оформлять. |
01.06.2010, 19:58 | #2 |
Форумчанин
Регистрация: 28.07.2009
Сообщений: 189
|
пиши мне, договоримся
ISQ: 412842920 skype:hrusloff mail: darkdaiver777@gmail.com
пишу программы для студентов и школьников на Pascal, Delphi, C++, WINAPI, assembler
обучаю программированию на паскале(дистанционно);mail: hruslow@gmail.com |
01.06.2010, 20:08 | #3 |
Регистрация: 01.06.2010
Сообщений: 4
|
а что писать-то я вроде все описал, что мне нужно, осталось за ценой... могу, конечно, пример оформления скинуть
Последний раз редактировалось Владимир417; 01.06.2010 в 20:20. |
02.06.2010, 00:18 | #4 |
Регистрация: 15.05.2010
Сообщений: 3
|
437675148 пиши, договоримся с ценой
|