Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Различная обработка данных

Автор: condor99 14.12.2008, 00:25

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

Автор: Zhenya12 14.12.2008, 00:47

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

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

Автор: Zhenya12 15.12.2008, 18:53

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.

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