|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.01.2009, 16:20 | #1 |
Новичок
Джуниор
Регистрация: 23.01.2009
Сообщений: 20
|
Известны оценки по физике каждого из 20 учеников класса. Определить среднюю оценку по классу
1.Известны оценки по физике каждого из 20 учеников
класса. Определить среднюю оценку по классу. var a:array[1..20]of integer; s:real; i:integer; begin for i:=1 to 20 do read(a[i]); s:=0; for i:=1 to 20 do s:=s+a[i]; s:=s/20; writeln(s:0:4); end. 2. .Дана непустая последовательность целых чисел, окан чивающаяся числом 100. Определить, есть ли в последова тельности число 77. Если имеются несколько таких чисел, то определить порядковый номер первого из них. const n=99; var a:array[1..n+1] of integer; i:integer; begin writeln('vvedite elementy:'); for i:=1 to n do readln(a[i]); a[100]:=100; i:=1; while (a[i]<>77)and(a[i]<>100) do inc(i); if i<>100 then writeln(i) else writeln('NO'); end. 3. Дана последовательность ненулевых целых чисел, оканчивающаяся нулем. Определить, сколько раз в этой пос ледовательности меняется знак. Например, в последователь ности 10, –4, 12, 56, –4 знак меняется 3 раза. const a:array[1..5] of integer=(10, -4, 12, 56, -4); var k,i:byte; begin k:=0; for i:=2 to length(a) do begin if a[i]*a[i-1]<0 then inc(k); end; writeln(k);readln; { TODO -oUser -cConsole Main : Insert code here } end. |
23.01.2009, 17:03 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Просто в цикле вводишь данные и делаешь, что надо. В первой задаче, раз известно сколько учеников, цикл for i:=1 to 20.
Во второй и третьей задачах можно или цикл repeat ... until (предпочтительнее, поскольку известно условие окончания цикла), или while ... do. |
23.01.2009, 17:09 | #3 |
Новичок
Джуниор
Регистрация: 23.01.2009
Сообщений: 20
|
в 1 ето я сам догадалса,я не пойму как додать еты аценкы.
|
23.01.2009, 17:11 | #4 |
Новичок
Джуниор
Регистрация: 23.01.2009
Сообщений: 20
|
еслы есть вазможнасть наиши рышеные всых 3 задач а з мене ОТЗИВ
|
23.01.2009, 17:16 | #5 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
1
Код:
вступлю в команду разработчиков ПО на Delphi
|
23.01.2009, 17:22 | #6 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
2
Код:
вступлю в команду разработчиков ПО на Delphi
|
23.01.2009, 17:30 | #7 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
зачем 3 темы то создавать!!!!
3
Код:
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 23.01.2009 в 17:34. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить количество едениц продукции каждого типа, который должна изготавливать фирма | LeMystere | Microsoft Office Excel | 2 | 25.12.2008 12:54 |
Посчитать среднюю оценку. Паскаль. | Паскалька^^ | Помощь студентам | 2 | 20.12.2008 20:14 |
Определить, сколько учеников класса не имеют отметок ниже четырех | HOOKER | Помощь студентам | 6 | 08.10.2008 19:50 |
Обратиться к классу (Delphi) | Air | Помощь студентам | 16 | 17.07.2008 19:51 |
как написать код на вывод оценки в тестирующей проге Флеонова | KaufMaNN | Помощь студентам | 0 | 31.05.2008 07:39 |