|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.01.2009, 15:25 | #1 |
Регистрация: 18.01.2009
Сообщений: 4
|
Срочно надо решить задачи в паскале!!!!!
Люди ,отзовитесь!!!! один день остался! не могу сделать задачи в Паскале!!!!!! Помогите!!! Вот собственно задачи:
1.дано натуральное число. 1)найти количество цифр данного числа. 2)найти количество трехзначных чисел,сумма которых равна А, а само число заканчивается цифрой В.(А и В вводятся с клавиатуры). 2.Пусть 6 населенных пунктов обозначены номерами от 1 до 6(величина К), а 5 кандидатов - номерами от 1 до 5 (величина n). количество голосов, набранных кандидатами в каждом пункте , определяется формулой аKn=random(10i+50), где i- номер варианта( вариант 3). Вывести на экран таблицу результатов голосования, где значения в строках - данные населенных пунктов, а в столбцах - данные по кандидатам. Создать одномерный массив с искомыми данными.Кто из кандидатов набрал максимальное,а кто минимальное количество голосов в четвертом населенном пункте?????? Пожалуйста помогите!!!!!!!!!!!!!!!!!!! |
18.01.2009, 15:57 | #2 |
Life:[### ]22%
Пользователь
Регистрация: 15.12.2007
Сообщений: 48
|
1)
Код:
My Life v1.0b ERROR: health.dll not found
|
18.01.2009, 16:06 | #3 |
Life:[### ]22%
Пользователь
Регистрация: 15.12.2007
Сообщений: 48
|
Если речь идёт просто овсех трёх значных числа, то вот код
Код:
My Life v1.0b ERROR: health.dll not found
Последний раз редактировалось xxxPascalxxx; 18.01.2009 в 16:49. |
18.01.2009, 16:14 | #4 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Program mas;
uses crt; var a:array[1..6,1..5] of real; b:array[1..6] of real; i,j,imax,imin:integer; begin for i:=1 to 5 do for j:=1 to 6 do begin randomize; a[i,j]:=random(80); end; for j:=1 to 5 do b[j]:=a[j,4]; min:=b[1];imin:=1; max:=b[1];imax:=1; for j:=1 to 5 do begin if b[j]>max then begin max:=b[j];imax:=j; end; if b[j]<min then begin min:=b[j];imin:=j; end; end; writeln('maximum:',imax,' kandidat'); writeln('minimum:',imin,' kandidat'); writeln('tablica resultatov:'); For i:=1 to 5 do For j:=1 to 6 do Begin GotoXY(i*4,j*4); Write(a[i,j]:4:2); End; end.
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 18.01.2009 в 18:13. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Срочно, надо решить в турбопаскале | MELKOVSKY | Фриланс | 18 | 04.06.2010 10:19 |
помогите решить задачи на С++ (на зачёт надо срочно) | headway | Помощь студентам | 0 | 27.11.2007 00:18 |