сервис вопросов и ответовprogram klass; type ocenki=record name:string[15]; marks: array [1..5] of integer; end; var a,k,i:integer;
10-11 класс|
|
c:array [1..5] of ocenki;
begin k:=0;
For i:=1 to 5 do
With c[i] do
begin
write('vvedite name'); readln(name);
write('vvedine marks');
for i:=1 to 5 do read(marks[i]);
a:=i;
if c[a].marks < 2 (вот здесь выдает что операнды имеют неприводимые типы) then k:=k+1; writeln(k);
end;
end.
(Подскажите пожалуйста где допустила ошибку)
Katyakorelina
06 сент. 2013 г., 18:21:30 (10 лет назад)
LTsymbal
06 сент. 2013 г., 19:42:29 (10 лет назад)
program klass;
type
ocenki=record
name:string[15];
marks: array [1..5] of integer;
end;
var
a,k,i:integer;
c:array [1..5] of ocenki;
begin
k:=0;
For i:=1 to 5 do
begin
With c[i] do
begin
write('vvedite name');
readln(name);
write('vvedine marks');
for i:=1 to 5 do
begin
read(marks[i]);
a:=i;
if c[a].marks[i] < 2 then k:=k+1; writeln(k); /// marks[i]
end;
end;
end;
end.
Ответить
Другие вопросы из категории
Автомат получает на вход 3х значное 10тичное число. По этому числу строится новое, по следующим правилам. 1) Перемножаются 1 и 2, а также 2 и 3я
цифры числа.
2) Полученные 2 числа записываются друг с другом в порядке возрастания (баз разделителей)
Определите, какое из чисел может быть результатом работы автомата.
1)197 2)1218 3)186 4)777
Паскаль
Хватит ли денег ученику чтобы купить N тетрадей в линию по S рублей и K тетрадей в клетку по L рублей, если у него M рублей?
1) Дан целочисленный массив из 30 элементов.
Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.
Читайте также
Помоги составить блок-схему. program h7; const n=15; p=3.14; var x: array [0..n] of integer; y: array [0..n] of real
;
i,h,k:integer;
a,s,max,min,t:real;
f:text;
begin
randomize;
k:=0;
s:=0;
for i:=0 to n do
begin
x[i]:=trunc(15*random);
end;
for i:= 0 to n do
write(x[i]);
for i:=0 to n do
if (x[i]<1) then y[i]:=0.5*(2+sqr(sin(x[i]-p/4)))+exp(x[i]) else
if(x[i]>=1) and (x[i]<=10) then y[i]:=4*exp(0.62*ln(x[i]))-2*sqrt(2*x[i])+1 else
if (x[i]>10) then y[i]:=5*exp(-x[i])+2*sqr(ln(x[i]));
for i:= 0 to n do
write (y[i]:5:1);
for i:= 0 to n do
s:=s+y[i];
a:=s/i;
max:=y[0];
min:=y[0];
for i:= 0 to n do;
if y[i]/0.3>a then
begin
if y[i]>max then begin
max:=y[i];
h:=i;
end
else
if y[i]<min then begin
min:=y[i];
k:=i;
end;
end;
t:=y[h];
y[h]:=y[k];
y[k]:=t;
for i:= 0 to n do
write (y[i]:5:1);
writeln ('----------------------');
assign (f,'f.txt');
rewrite(f);
end.
написать функцию,сравнивающую две даты.функция должна возвращать(-1) если первая дата меньше второй ,0- если первая и вторая даты одинаковы и 1
-если первая дата больше второй.паскаль.тема записи
в чем ошибка??
type date = record day: 1..31; month: 1..12; year: integer ; end;
var a: date := (day: 1; month: 4; year: 2015); b: date := (day: 1; month: 4; year: 2014); c:integer;
procedure OutDate(d: date);begin with d do writeln(day, '.', month, '.', year);end;
function Srawn(x, y: date): -1..1;beginif x.year > y.year then writeln( 1) else writeln(-1) ; if x.year = y.year then if x.month > y.month then writeln(1) else writeln(-1); if x.year = y.year then if x.month = y.month then if x.day > y.day then writeln(1) else writeln(-1); if x.year = y.year then if x.month = y.month then if x.day = y.day then writeln(0); end; begin OutDate(a); OutDate(b); c:=srawn(a,b); writeln('otwet:', c);end.
Удалить все элементы, кратные 3 или 5
Помогите найти, где я ошибся, ибо сам не смог этого сделать!
program udalenie;
const
n=20;
Type
Tarray=array[1..n] of integer;
var i,s,j:integer;
a:Tarray;
begin
randomize;
for i:=1 to n do begin
a [i]:=random(100);
write(a[i]:3, ' ' );
end;
s:=0;
for i:=1 to n do
begin
if (a[i] mod 3=0) or (a[i] mod 5=0) then
begin
s:=s+1;
for j:=i to n-s do
a[i]:=a[i+1];
a[n+1-s]:=0;
end
end;
write('dsd');
for i:=1 to n-s do
write(a[i]:3, ' ' );
end.
дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
1. Какие из приведенных описаний являются неправильными и почему?
• var a: array [1..20] of integer;
• type myarray=array [1..20];
var b: myarray;
• var sd: array [1..n] of integer;
• var dd: array[1] of integer;
Вы находитесь на странице вопроса "program klass; type ocenki=record name:string[15]; marks: array [1..5] of integer; end; var a,k,i:integer;", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.