Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2010, 23:08   #1
viper52rus
студент
Пользователь
 
Регистрация: 30.05.2010
Сообщений: 13
Восклицание одномерному массиву и табличкам

вот надо 3 задачки решить помогите плиз по программированию через делфи сдавать завтра(((не могу решить:
1.Задана таблица температур за три летних месяца. Определить среднюю температуру лета.
2.Задана таблица успеваемости по десяти предметам в группе из 25 студентов. Определить количество предметов, по которым нет ни одной двойки.
3.Задан одномерный числовой массив. Отсортировать массив так, чтобы до середины массива значения элементов массива убывали, а после середины возрастали. Например, исходный массив: 3 8 9 4 52 7 1, результирующий массив: 9 8 4 3 12 5 7.

можно если что на мыло....заранее очень благодарен
viper52rus вне форума Ответить с цитированием
Старый 30.05.2010, 23:20   #2
Rusl92
Форумчанин
 
Аватар для Rusl92
 
Регистрация: 30.03.2008
Сообщений: 392
По умолчанию

фриланс
ася моя
395359808
Программирование - это великое искусство... Такое же как например и живопись!
Rusl92 вне форума Ответить с цитированием
Старый 31.05.2010, 07:50   #3
viper52rus
студент
Пользователь
 
Регистрация: 30.05.2010
Сообщений: 13
По умолчанию

а можно сюда написать или на мыло??а в асю я тебе отправил авторизацию
viper52rus вне форума Ответить с цитированием
Старый 03.06.2010, 11:54   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Задан одномерный числовой массив
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var a:array[1..10] of integer;
  i,j,s1:integer;
begin
 for i:=1 to 10 do begin
   a[i]:=random(20); write(a[i]:5);
 end;

  for s1:=1 to (length(a) div 2) do
  for i:=1 to (length(a) div 2) do begin
   if a[i]>a[i+1] then begin
    j:=a[i];a[i]:=a[i+1];a[i+1]:=j;
   end;
  end;

  for s1:=(length(a) div 2)+1 to (length(a)-1) do
  for i:=(length(a) div 2)+1 to (length(a)-1) do begin
   if a[i]<a[i+1] then begin
    j:=a[i];a[i]:=a[i+1];a[i+1]:=j;
   end;
  end;


  writeln;
  { TODO -oUser -cConsole Main : Insert code here }

 for i:=1 to 10 do write(a[i]:5);
  readln;
end.
Цитата:
Задана таблица
Какая таблица? В каком виде?
I'm learning to live...

Последний раз редактировалось Stilet; 03.06.2010 в 11:59.
Stilet вне форума Ответить с цитированием
Старый 12.06.2010, 15:25   #5
viper52rus
студент
Пользователь
 
Регистрация: 30.05.2010
Сообщений: 13
По умолчанию

таблица это просто двухмерный массив вот решил первую,а он выводит только одного месяца где ошибка?
Цитата:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,
uCRT;

const n=3;m=30;
var a:array[1..n,1..m] of integer;
i,j,c,u,x,y,z:byte;
begin
x:=0;
y:=0;
for i:=1 to n do
begin
case i of
1:begin write ('Июнь');
u:=30;
end;
2:begin write ('Июль');
u:=31;
end;
3:begin write ('Август');
u:=31;
end;
end;

for j:=1 to u do
begin
randomize;
a[i,j]:=random(15)+20;
z:=z+a[i,j];
writeln(a[i,j],' ');
end;
writeln;
writeln('Средняя температура месяца',(z/u):5:2);
x:=x+z;
y:=y+u;
writeln('Средняя температура лета',(x/y):5:2);
readln;
end;
end.
viper52rus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
экзамен по массиву... ^BaffY^ Помощь студентам 15 20.05.2010 11:09
как сделать прогу по одномерному массиву student2009 Паскаль, Turbo Pascal, PascalABC.NET 14 02.06.2009 10:20
Задачи по циклическим структурам и одномерному масиву (язык Си) maloy-rom Помощь студентам 12 24.04.2009 21:59
Задача по одномерному массиву, сделать с процедурами deu4er Помощь студентам 6 13.11.2008 13:59