что не так в моей задаче по Паскалю?
10-11 класс
|
Program A;
Var z,b,i:integer;
begin randomize;
z:=randon(16);
b:=randon(16);
i:=randon(16);
writeln('z=',z,'b=',b,'i=',i);
if (z>b) and (b>i) then writeln('z=',z,'b=',b,'i=',i);
if (z>i) and (i>b) then writeln('z=',z,'i=',i,'b=',b);
if (zz) and (bi) and (i>z) then writeln('b=',b,'i=',i,'z=',z);
if (bi) then writeln('z=',z,'i=',i,'b=',b);
readln(z,b,i);
end.
if (zz) and (bi) and (i>z) then writeln('b=',b,'i=',i,'z=',z);
if (bi) then writeln('z=',z,'i=',i,'b=',b);
в этих строках в скобках нужно писать условие, а там необявленные переменные zz, bi
а в конце зачем вводишь переменные z, b, i ? там же конец программы уже.
просто напиши readln; или readkey; - пауза
И неизвестные имена zz,bi
Это их произведение, что-ли надо было написать?
у пишет ошибку в последних 4х строках
Ну он zz не понимает. Нет такой переменной ведь!
Условие задачи привела бы
Другие вопросы из категории
расчет выплаченной суммы денег за каждый квартал( квартал- 3 месяца)
Читайте также
задачи на такую тему: Составление, ввод, трансляция и
исполнение программ, реализующих
циклические алгоритмы и типовые
операции с одномерными массивами
А.А. с198
program pr;
uses crt;
var f:file of integer;
n:integer;
a:string;
begin
clrscr;
a:='c:\f1.txt';
assign(f,a);
rewrite(f);
writeln('n: ');
readln(n);
write(f,n);
close (f);
readln;
end.
после выполнения программы в файле f1.txt вместо значения n=5 появилось -256
что не так ?
1. модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива
2. Напишите программу, которая бы определяла среднее арифметическое значение элементов массива (вещественная величина типа real)
Начало:
var a: array[1..10] of integer;
i: integer;
begin
а как дальше?
Предыдущий пример:
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begina[i]:=random(40)-20;
end;
for i:=1write(a[i]:4);
end.