|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.12.2008, 21:58 | #1 |
Регистрация: 18.12.2008
Сообщений: 6
|
задача для дипломной работы
1. Используя оператор варианта, создать меню, позволяющее переключиться на решение одной из следующих задач:
1.1. найти минимальную цифру в записи числа N и заменить ее на 9; 1.2. вычислить сумму цифр заданного числа N; 1.3. проверить, совпадают ли первая и последняя цифры числа N. помогите решить до конца, вот мои наработки: var i,n,b: longint; a,c,x,y,z:integer; s:string; max:char; begin readln(b); writeln('vvedi N'); readln(n); case b of 1: begin str(n,s); max:='9'; for i:=1 to length(s) do if (ord(s[i]) < ord(max)) then begin max:=s[i]; s[i]:='9'; end; writeln(max); end; 2:begin a:=0; randomize; c:=random(999); writeln('chislo N=',c); x:=c mod 10; y:=(c mod 100) div 10; z:=c div 100; a:=x+z+y; writeln('summa cifr=',a); end; end; readln; end. есть косяк с первым и нет 3 условия(( пжл помогите, надеюсь на вашу помощь! |
18.12.2008, 22:05 | #2 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
что то на дипломную работу не тянет))
|
18.12.2008, 22:09 | #3 |
Регистрация: 18.12.2008
Сообщений: 6
|
)) Это курсы просто институтские, вот там диплом, который состоит из описание ворда, екселя, ацесса и паскаля))
|
20.12.2008, 14:36 | #4 |
Регистрация: 18.12.2008
Сообщений: 6
|
Кто-нибудь помогите пожалуйста.
|
20.12.2008, 23:37 | #5 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
Я немного по-своему сделал
Код:
|
21.12.2008, 16:50 | #6 |
Регистрация: 18.12.2008
Сообщений: 6
|
Teor cпс большое! а можно чуть полегче задачу написать без repeat, until и c:=round(frac(n)*10)(это мы вообще не проходили).? у нас паскаль был поверхностно((
|
22.12.2008, 00:40 | #7 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
Без repeat, until у меня не получиться. А frac, round это просто функции.
frac- отделяет дробную часть числа, а round- округление(для надежности) |
22.12.2008, 21:26 | #8 |
Регистрация: 18.12.2008
Сообщений: 6
|
Teor, спс ещо раз огромное)
|
23.12.2008, 07:51 | #9 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
to Teor
операторы div и mod c ними решение будет лучше. to x-stat используйте цикл while или repeat и строки тут не обязательны.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
23.12.2008, 16:26 | #10 |
Пользователь
Регистрация: 20.12.2008
Сообщений: 46
|
Возможно и лутше. Просто мне с типом real и функцией frac легше
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Компоненты для работы с SQL | Родион | БД в Delphi | 4 | 18.06.2008 15:10 |
Проблемы с дипломной работой | HAMMAN | Помощь студентам | 3 | 16.05.2008 12:38 |
Программа для работы с Шоубизнесом | litvik | БД в Delphi | 3 | 02.02.2008 17:57 |
dll для работы с массивом | alex23xandr | Общие вопросы Delphi | 3 | 25.05.2007 20:00 |
Компонент для работы с GIF | Slash | Компоненты Delphi | 5 | 03.05.2007 11:14 |