VPF::[Pascal] Различная обработка данных

condor99

Дата 14.12.2008, 00:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.12.2008

Репутация: нет
Всего: нет

Пожалуйста, составьте программу на языке Паскаль для задачи.
Задача:
На метерологической станции в компьютер введены сведения о среднесуточной температуре за март месяц. Составить программу, которая бы определила:
а) количество дней, когда температура была ниже 0 С.
б) среднюю температуру месяца
в) сумму положительных температур
г) день, когда температура ближе всего подходила к среднемесячной.

Zhenya12

Дата 14.12.2008, 00:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

uses crt;
type
    Meterualna_Stanzua = record
     temperatyra :real;
     Mesaz :string;
    end;
var
   mas : array [0..10] of Meterualna_Stanzua;
begin
    <тут роботаэш как с масивом>

end.

Я думаю ето не сложно.) smile

condor99

Дата 14.12.2008, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.12.2008

Репутация: нет
Всего: нет

Zhenya12, пожалуйста, можете выложить полную версию, просто, знакомая попросила, я не занимаюсь программированием.

Zhenya12

Дата 15.12.2008, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

uses crt;
type
    Meterualna_Stanzua = record
     temperatyra :real;
     Mens :string;
    end;
var
   mas : array [0..10] of Meterualna_Stanzua;
procedure Input;
var
i:integer;
begin
for i:=0 to 10 do
begin
writeln('Input temperatyry:');readln(mas[i]. temperatyra );
writeln('Input Mans:');readln(mas[i].Mans );
end;

procedure Output;
var
i:integer;
begin
for i:=0 to 10 do
begin
writeln('Input temperatyry:',mas[i]. temperatyra:4:2);
writeln('Input Mans:',mas[i].Mans);
end;
end;

procedure Menche_0;
var
i,j:integer;
begin
j:=0;
for i:=0 to 10 do
begin
   if (mas[i]. temperatyra<0) then
begin
inc(j);
writeln('Input temperatyry:');readln(mas[j]. temperatyra );
writeln('Input Mans:');readln(mas[j].Mans );
end;

end;
writeln('Kilkist dniv:',j);
end;
end;
end;

procedure Bolshe_0;
var
i,j:integer;
sum:real;
begin
sum:=0;
j:=0;
for i:=0 to 10 do
begin
   if (mas[i]. temperatyra>0) then
begin
inc(j);
writeln('Input temperatyry:');readln(mas[j]. temperatyra );
writeln('Input Mans:');readln(mas[j].Mans );
sum:=sum+mas[j]. temperatyra;
end;
writeln('Sum:', sum:4:5);
end;


end;
begin


end.

Я вот тут написал чтото должно работать. Не берись за дело если не можеш ево виполнить сам.)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »