0

Нельзя преобразовать тип real к byte. Решаю этот пример в паскале введите сюда описание изображения

Код

Program SUMMA;
var K1, K2, i, Z: byte;
BEGIN
write('vvedite K1= ');
readln(K1);
write('vvedite K2= ');
readln(K2);
Z:=0;
For i:=1 to K1 do
Z:= Z + sqr(i)/2;
writeln('SUMMA= ',Z:5);
readln;
END.

Как исправить ошибку?

1
  • @entithat да я пробывал но после этого у меня выдае ошибку Ожидался порядковый тип и подсвечиват эту строку For i:=1 to K1 do
    – BraFik
    3 ноя 2017 в 12:10

1 ответ 1

2

Так как k1, k2 - целые числа (видно по условию задания), то для них стоит использовать тип byte.
А для z стоит использовать тип real.

Почему в z получается вещественный тип? В формуле есть деление числа на 2, а число может быть нечётным.

A i - целый тип, ведь цикл не может повторяться допустим полтора раза, поэтому для него используем целочиселнный тип byte.

program sum;
var 
    k1, k2, i: byte;
    z:real;
begin
    write('vvedite k1= ');
    readln(k1);
    write('vvedite k2= ');
    readln(k2);
    z:=0;
    for i:=1 to k1 do
        z:= z + sqr(i)/2;
        writeln('Sum = ', z:5);
    readln;
end.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.