Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
13.05.2009, 15:02
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171
Репутация:
12
|
|
Задачи. Turbo Pascal
Может кто-нить помочь три задачки решить?
1. Дан массив из N элементов. Каждый элемент равен 0, 1 или 2; нужно переставить элементы так, чтобы сначала располагались все нули, затем все единицы, а после них - двойки
2. Найти количество элементов в массиве, больших среднего арифметического всех элементов массива.
3.Задан массив из N элементов. Определить максимальный элемент.
Заранее спасибо
|
|
|
13.05.2009, 16:37
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
Провел на форуме:
255342
Репутация:
28
|
|
Максимально приблизил к паскалю (писал на делфи) но могут быть ошибки..
1.
Код:
const
N=10;
var
i1,i2,i:integer;
mas:array[1..N] of integer;
begin
//...//
for i1:=1 to N do
for i2:=1 to N do
if mas[i2]>mas[i1] then
begin
i:=mas[i2];
mas[i2]:=mas[i1];
mas[i1]:=i;
end;
for i:=1 to N do writeln(inttostr(mas[i]));
readln;
end.
2.
Код:
const
N=10;
var
all,bolwe,i:integer;
srednee:real;
mas:array[1..N] of integer;
begin
//...//
all:=0;
for i:=1 to N do all:=all+mas[i];
srednee:=all/N;
bolwe:=0;
for i:=1 to N do if mas[i]>srednee then inc(bolwe); //bolwe:=bolwe+1
writeln(inttostr(bolwe));
readln;
end.
3.
Код:
const
N=10;
var
max,i:integer;
mas:array[1..N] of integer;
begin
//...//
max:=0;
for i:=1 to N do
if max<mas[i] then max:=mas[i];
writeln(inttostr(max));
readln;
end.
|
|
|
|
13.05.2009, 16:53
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171
Репутация:
12
|
|
МongBa† спасибо, но мне нужно чтоб все операторы были паскалевскими =))) у нас училка докопается =) Я б ей на C++ написанные программки сдал, но ей именно в паскале надо, т.к. она ничё кроме паскаля не знает =))))
|
|
|
|
13.05.2009, 17:35
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
Провел на форуме:
255342
Репутация:
28
|
|
Дак вроде и так вроде все паскаль... )
неуверен на счет
inc(bolwe) заменить на bolwe:=bolwe+1
и inttostr (не помню, мб в паскале аналог по другому звучит)
|
|
|
|
13.05.2009, 18:16
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171
Репутация:
12
|
|
не, ты не понял... хм... как бы объяснить... кароче, мне нужно чтоб задачи были решены подобно этой...
мне первую решили, уже не нужно..
var a,c,d,b: array [1..100] of integer;
j, i, n, k,h,e: integer;
begin
readln(n);
for i:=1 to n do begin read (a[i]);
j:=1; k:=1; h:=1;
for i:=1 to n do begin begin begin
if a[i]=0 then begin b[j]:=a[i]; j:=j+1; end;
if a[i]=1 then begin c[k]:=a[i]; k:=k+1; end;
if a[i]=2 then begin d[h]:=a[i]; e:=e+1; end; end; end;end;
for i:=1 to j do begin write (' ',b[j]) end;
for i:=1 to k do begin write (' ',c[k]) end;
for i:=1 to h do begin write (' ',d[h]) end;
end;
readln
end.
|
|
|
|
13.05.2009, 18:17
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171
Репутация:
12
|
|
вот с использованием только циклов мне надо решить задачи... первую решили мне уже...
|
|
|
|
13.05.2009, 18:42
|
|
Новичок
Регистрация: 04.08.2008
Сообщений: 29
Провел на форуме:
167800
Репутация:
15
|
|
2:
PHP код:
const
ARR_MAX=200;
var
a:array[1..ARR_MAX] of Real;
sr:Extended;
n,i:Integer;
begin
WriteLn('N='); Read(n);
for i:=1 to n do
begin
ReadLn(a[i]);
sr:=sr+a[i];
end;
sr:=sr/n;
for i:=1 to n do
if a[i]>sr then WriteLn(a[i]:10:6);
end.
3:
PHP код:
const
ARR_MAX=200;
var
a:array[1..ARR_MAX] of Integer;
n,i,max:Integer;
begin
WriteLn('N='); Read(n);
for i:=1 to n do ReadLn(a[i]);
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
WriteLn(max);
end.
|
|
|
|
13.05.2009, 20:21
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171
Репутация:
12
|
|
спасибо
|
|
|
|
15.05.2009, 20:45
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171
Репутация:
12
|
|
Кто может ещё одну задачку решить с помощью циклов?
Условие задачи: Дан массив размера N и целые числа K и L (1<K<L<N). Найти среднее арифметическое элементов массива с числами от L до K включительно.
заранее спасибо!
|
|
|
|
15.05.2009, 20:57
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500
Репутация:
930
|
|
Код:
const
N=100;
var
a : array[1..N] of integer;
k, l, i, s : integer;
begin
//Считываешь параметры
s:=0;
for i:=k to l do
s:=s+a[i]
writeln(s/(l-k));
readln;
end.
|
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
turbo pascal
|
sadfeel |
С/С++, C#, Delphi, .NET, Asm |
0 |
28.02.2009 19:37 |
|
СРОЧНО!!! Turbo Pascal
|
MAG0t |
Разное - Покупка, продажа, обмен |
3 |
23.12.2008 18:36 |
|
TURBO PASCAL 7 1.0
|
Daemond |
С/С++, C#, Delphi, .NET, Asm |
1 |
03.12.2008 22:32 |
|
Задачи по C++ и Pascal
|
a1nt |
С/С++, C#, Delphi, .NET, Asm |
18 |
02.04.2007 00:07 |
|
Pascal. Задачи.
|
Zakary |
Болталка |
17 |
18.05.2006 09:59 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
