Что нужно исправить чтобы программа решили задачу

@Nikitamce · Регистрация: 22.02.2021

Студворк — интернет-сервис помощи студентам

Дана информация о среднесуточной температуре каждого дня месяца. Подсчитать среднемесячную температуру. Сколько раз столбик термометра опускался ниже нуля? Сколько раз среднесуточная температура держалась выше 10 градусов.

P.s. Я пока написал формулы но она ссылается на ошибку Expexted '=' but '(' found

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;
 
type
  TForm1 = class(TForm)
    Label2: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure TForm1.Button1Click(Sender:TObject);
    procedure Button2Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[1..31] of real;
  n: integer;
  i: integer;
  so: integer;
  sv: integer;
  summa, sred: real;
begin
  n := strtoint(Edit1.Text);
  so := 0;
  sv := 0;
  summa := 0;
  sred := 0;
  for i := 1 to n do
  begin
    summa := summa + a[i];
    sred := summa / n;
    label1.Caption := 'ñðåäíåìåñÿ÷íàÿ òåìïåðàòóðà= ' + floattostrF(sred, fffixed, 10, 1);
  end;
  for i := 1 to n do
  begin
    a[i] := strtofloat(memo1.Lines[i - 1]);
    if a[i] < 0 then
      so := so + 1
    else if a[i] > 10 then
      sv := sv + 1;
  end;
  label4.Caption := ' êîë-âî äíåé, êîãäà òåìïåðàòðà íèæå 0=' + inttostr(so);
  label5.Caption := ' êîë-âî äíåé, êîãäà òåìïåðàòóðà âûøå 10= ' + inttostr(sv);
end;

@ZX Spectrum-128 · 09.04.2021, 07:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var
  a: array[1..31] of real;
  n: integer;
  i: integer;
  so: integer;
  sv: integer;
  summa, sred: real;
  s: string;
 
begin
  writeln('Введите количество дней в месяце: ');
  readln(s);
  n := strtoint(s);
  so := 0;
  sv := 0;
  summa := 0;
  sred := 0;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random * n;
    write(a[i]:8:2);
    if a[i] < 0 then
      so := so + 1
    else if a[i] > 10 then
      sv := sv + 1;
    summa := summa + a[i];
  end;
  writeln;
  sred := summa / n;
  writeln('Среднемесячная температура: ' + floattostr(sred));
  writeln('Сколько раз столбик термометра опускался ниже нуля: ' + inttostr(so));
  writeln('Сколько раз среднесуточная температура держалась выше 10 градусов: ' + inttostr(sv));
end.

@Nikitamce · 09.04.2021, 15:37 **[ТС]**

ZX Spectrum-128, в среднемесячной температуре выходит число вроде 12.45e18. Как сделать чтобы выводилось обычное число без е?

@mr-Crocodile · 09.04.2021, 15:49

Сообщение от ZX Spectrum-128

Pascal
30
writeln('Среднемесячная температура: ' + floattostr(sred));

Pascal
30
writeln('Среднемесячная температура: ', sred:8:2);

@Nikitamce · 09.04.2021, 15:55 **[ТС]**

mr-Crocodile, в делфи нет writeln. Поэтому мне выдаёт ошибку при вводе данных

@Puporev · 09.04.2021, 15:59

Сообщение от Nikitamce

в делфи нет writeln.

А какого хрена Вас занесло в раздел Турбо Паскаль?

@Nikitamce · 09.04.2021, 16:10 **[ТС]**

понимаю.... извините

@mr-Crocodile · 09.04.2021, 16:15

Сообщение от Nikitamce

mr-Crocodile, в делфи нет writeln. Поэтому мне выдаёт ошибку при вводе данных

Delphi
1
label1.Caption := 'Среднемесячная температура = ' + floattostrF(sred, fffixed, 10, 1);

Сообщение от Nikitamce

понимаю

не делай так больше.

Новые блоги и статьи Все статьи Все блоги /
Полиглотные микросервисы на C# и .NET ArchitectMsa 30.06.2025 Полиглотная архитектура появилась не из желания усложнить жизнь разработчикам. Она родилась из практической необходимости решать разные задачи наиболее эффективным способом. В одном из проектов. . .	Стратегии кеширования Javaican 29.06.2025 Кеширование — это хранение часто запрашиваемых данных в быстром хранилище (обычно в памяти), чтобы не обращаться к более медленному первоисточнику. Казалось бы, все просто. Но за этой простотой. . .	Наблюдаемость приложений ASP.NET Core с OpenTelemetry, Prometheus и Grafana ArchitectMsa 29.06.2025 Наблюдаемость (observability) – это ключевое свойство современной системы, позволяющее понимать её внутреннее состояние на основе внешних данных. Если мониторинг отвечает на вопрос "что случилось?",. . .	Четыре главных модели отношений классов в с++ russiannick 28.06.2025 Продолжаю крестовый поход против c++. ideone. com/ юзаю для проверки валидности кода. Насчитал 4 модели отношений классов: одиночный класс, равноправные классы, слейв - мастер, терминатор. . . .	Вложенные корутины в Unity GameUnited 28.06.2025 Работа с корутинами в Unity кажется простой до тех пор, пока не начинаешь их вкладывать друг в друга. Я потратил несколько месяцев на изучение этого механизма, и до сих пор иногда ловлю себя на том,. . .
Управление Arduino на C# через последовательный порт Wired 28.06.2025 Когда я впервые попробовал заставить Arduino общаться с моим C# приложением, казалось, что эти два мира существуют параллельно и никогда не пересекутся. Микроконтроллер упорно моргал встроенным. . .	Основы OpenGL 3.3 и Qt 6.9. Трансформированный треугольник 8Observer8 27.06.2025 Содержание блога На русском https:/ / rutube. ru/ video/ e424497dd6b7ae7e11494027c4b31a54/ https:/ / vkvideo. ru/ video-231040171_456239019 https:/ / www. youtube. com/ watch?v=mfD-ZL7wa_4	Федерация аутентификации на основе JWT-токенов с Keycloak и .NET в гетерогенных инфраструктурах ArchitectMsa 27.06.2025 Тот самый момент, когда впервые столкнулся с проблемой интеграции десятка разрозненных систем аутентификации в одной корпоративной экосистеме. Кажый сервис жил своей жизнью - тут Basic Auth, там. . .	Гайд по современным СУБД (небесспорный) Codd 26.06.2025 Когда я только начинал свой путь в IT как рядовой программист, база данных казалась мне чем-то простым и понятным. Ну, серьезно — это же просто место, где лежат данные, верно? Напиши SELECT * FROM. . .	Использование C# с AWS S3: Примеры с AWS SDK для .NET stackOverflow 26.06.2025 Amazon S3 (Simple Storage Service) уже давно стал стандартом де-факто в мире облачного хранения данных. Особенно приятно, что для разработчиков . NET предусмотрен отличный SDK, который значительно. . .

@Nikitamce 2 / 1 / 1 Регистрация: 22.02.2021 Сообщений: 110
	09.04.2021, 15:37 [ТС]
	ZX Spectrum-128, в среднемесячной температуре выходит число вроде 12.45e18. Как сделать чтобы выводилось обычное число без е? 0

@Nikitamce 2 / 1 / 1 Регистрация: 22.02.2021 Сообщений: 110
	09.04.2021, 15:55 [ТС]
	mr-Crocodile, в делфи нет writeln. Поэтому мне выдаёт ошибку при вводе данных 0

@Nikitamce 2 / 1 / 1 Регистрация: 22.02.2021 Сообщений: 110
	09.04.2021, 16:10 [ТС]
	понимаю.... извините 0

Что нужно исправить чтобы программа решили задачу

Решение