Semenovt
?>

Янаписал программу в pascal abc net: var a, x, n, y: integer; i, s, sum, b: real; begin n : = 7; sum : = 0.0; for y : = 1 to n do begin write(y, '-е число = '); readln(b); sum : = sum + b end; a: =sum; readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; case round(a/s) of 1, 5, 7, 9, 11, 13, 15: writeln('выпадет: красное'); 2, 4, 6, 8, 10, 12, 14, 16: writeln('выпадет: чёрное'); 3: writeln('выпадет: зелёное'); else writeln('выпадет: неизвестный цвет'); end; readln; end. при попытке запустить её, пишет: program1.pas(12) : нельзя преобразовать тип real к integer. как мне это исправить, чтобы прога нормально работала? ругается на строчку a: =sum; суть программы такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе, которое получилось в первой сумме, когда человек вводил числа. формула: \frac{ sum_{1} }{sum_{2}} где sum1= сумму n чисел, которые ввёл человек sum2=сумму чисел в числе, получившееся в результате сложения чисел, вводимых человеком.

Информатика

Ответы

Nugamanova-Tatyana840
Ну конечно он будет ругаться , у вас значению а с типом integer присваивается значение sum с вещественным типом, это недопустимо. Можно исправить , либо сменить тип переменной а на real, либо сменить тип переменной sum на integer. Ну или 3й вариант. Переменная а будет вещественного типа, а sum- целого, так как только вещественным значениям могут присваиваться целые.
intermar2000

 

Інтернет-енциклопедії, словники та онлайн-перекладачі

Перегляд презентації

Тема: робота з інтернет енциклопедіями, словниками та онлайн перекладачами.

Навчальна мета:  ознайомити з роботи з веб-енциклопедіями, словниками та онлайн перекладачами.

Розвиваюча мета:  розвити  уявлення учнів щодо використання новітніх технологій у навчанні.

Виховна мета:  виховати інформаційну культуру учнів, уважність, дисциплінованість.

I. ОРГАНІЗАЦІЙНИЙ ЕТАП

II. ПЕРЕВІРКА ДОМАШНЬОГО ЗАВДАННЯ        

III. ВІДТВОРЕННЯ І КОРИГУВАННЯ ОПОРНИХ ЗНАНЬ

Гра «Лови помилку»

На картках записані групи слів. Учні викреслюють зайве поняття, обмінюються картками, здійснюють взаємоперевірку.

1. Веб-сайт, веб-браузер, мережна папка.

2. Пошук, ключові слова, обліковий запис.

3. Зображення, папка, фрагмент тексту.

4. Гіперпосилання, веб-сайт, ім'я комп'ютера.

5. Локальна мережа, Інтернет, глобальна мережа, комп'ютер.

IV. МОТИВАЦІЯ НАВЧАЛЬНОЇ ДІЯЛЬНОСТІ

— Чи доводилось вам шукати пояснення конк

БашуроваОльга369

Процессор (ағылш. central processing unit, CPU - Орталық есептеуіш бөлім)

1) программаға сәйкес операцияларды орындауға арналған компьютердің негізгі құрылғысы, қызметтік бөлігі. Көптеген жартылай өткізгішті элементтерден тұратын және компьютерде барлық есептеулер мен ақпарат өндеу жұмыстарын орындайтын электрондық микросхема. Қазіргі компьютерлерде бір немесе бірнеше процессорлар жұмыс істейді.

2) мәліметтерді өңдеу кезінде кейбір алдын ала есептеу жұмыстарын немесе ұйымдастыру қызметін атқаратын машиналық программа.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Янаписал программу в pascal abc net: var a, x, n, y: integer; i, s, sum, b: real; begin n : = 7; sum : = 0.0; for y : = 1 to n do begin write(y, '-е число = '); readln(b); sum : = sum + b end; a: =sum; readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; case round(a/s) of 1, 5, 7, 9, 11, 13, 15: writeln('выпадет: красное'); 2, 4, 6, 8, 10, 12, 14, 16: writeln('выпадет: чёрное'); 3: writeln('выпадет: зелёное'); else writeln('выпадет: неизвестный цвет'); end; readln; end. при попытке запустить её, пишет: program1.pas(12) : нельзя преобразовать тип real к integer. как мне это исправить, чтобы прога нормально работала? ругается на строчку a: =sum; суть программы такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе, которое получилось в первой сумме, когда человек вводил числа. формула: \frac{ sum_{1} }{sum_{2}} где sum1= сумму n чисел, которые ввёл человек sum2=сумму чисел в числе, получившееся в результате сложения чисел, вводимых человеком.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ирина_Андреевич1634
sergeev-alp5
Kozloff-ra20146795
Shteinbakh
Антонович937
Budanov317
iracaenko153
vladimir152
avguchenkov
olofinskayae
FATAHOVAMAINA
mileva84
ovdei71
Shumnova42
sttig