С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Оксанапрограмм
0 / 0 / 0
Регистрация: 23.03.2017
Сообщений: 9
1

Проверить программу

24.03.2017, 10:47. Просмотров 854. Ответов 2
Метки нет (Все метки)

не запускает программа на Паскаль АВС, нет ошибок, высвечиваются предупреждения, программа выполняется, но не идет как надо, помогите разобраться, нужно что бы в результаты вывелась таблица.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program temp;
uses crt;
var
T:array [1..3,1..10] of integer;
S,I,J:integer;
begin
Clrscr;
writeln('Программа обработки показаний термометров метеостанций');
randomize;
for I:=1 to 3 do
For J:=1 to 10 do
T[I,J]:=random(50);
writeln;
writeln('Таблица показаний температуры');
for I:=0 to 3 do
begin 
writeln;
for J:=0 to 10 do
write(T[I,J]:5)
end;
gotoxy(1,5);
write('1 ст.');
gotoxy(1,6);
write('2 ст.');
gotoxy(1,7);
write('3 ст.');
writeln;
writeln;
writeln('Температура на 2-й метеостанции за четвертый день =',T[2,4], ' градусов');
writeln('Температура на 3-й метеостанции за первый день=',T[3,1],'градусов');
writeln;
writeln('Температура на всех метеостанциях за второй день');
for I:=1 to 3 do
write(T[I,2]:5);
Write('градусов');
writeln;
writeln;
S:=0;
for I:=1 to 3 do
for J:=1 to 10 do
if I=3 then
S:=S+T[I,J];
writeln('Средняя температура на 3-й метеостанции=', S/10:5:2,'градусов');
writeln;
for I:=1 to 3 do
for J:=1 to 10 do
if (T[I,J]<=26) then
writeln('Станция',I,'день',J,'температура в диапазоне 24-26 градусов');
readkey
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2017, 10:47
Ответы с готовыми решениями:

Проверить простейшую программу
Писал я простейшую программу про возраст и думал что все прекрасно, но не...

можете проверить программу?
Можете проверить программу ?хочу быть в ней уверена... Даны натуральные числа...

Проверить программу, вычисляющую выражение
Решить, используя функцию: ...

Файлы. Проверить программу в файле на соответствие открывающих и закрывающих скобок
Помогите пожалуйста.. Дан текстовый файл, содержащий программу на языке...

Определить, какая из строк является десятичной записью числа, кратного 9. Проверить программу.
Для заданных трех строк S1, S2 и S3 определить какая из этих строк...

2
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
24.03.2017, 10:56 2
с 15 строки 2 цикла с нуля начинаются, а диапазон от 1. Исправьте на
Pascal
15
16
17
18
for I:=1 to 3 do
begin 
writeln;
for J:=1 to 10 do
1
Оксанапрограмм
0 / 0 / 0
Регистрация: 23.03.2017
Сообщений: 9
24.03.2017, 16:19  [ТС] 3
Hitoku, спасибо большое, все работает ❣️
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2017, 16:19

проверить программу
Написал программу для вычисления суммы... Вроде бы всё делал правельно, но мне...

Проверить программу
Program perevodCC; uses crt; label e, lab1, lab2; var ct,otv,t,...

Проверить программу на наличие ошибок
Дано натуральное число n и целые числа a,a1,...an где n&lt;=1000.Если в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru