что здесь нужно сделать?
10-11 класс
|
написать функцию, выполняющая складывание двух чисел, которые указываются в массивах символов (а и b), результат операции помещается в массив символов (res), функция возвращает значение true, если сложение прошло успешно, и false в противном случае
нуль-символ - '\0' (вроде так)
Другие вопросы из категории
Пример
4 5 7
4+5+7=16
4*5*=140
var slovo :string;
i :integer;
function ups(var s :string; ch :char):integer;
var i,n :integer;
begin
for i:=1 to length(s) do
if s[i]=ch then n:=i
else n:=0;
ups:=n;
end;
begin
writeln('vvedite slovo');
readln(slovo); writeln('N = ',ups(slovo,a));
end.
Дана целочисленная матрица (m*n). Найти среднее арифметическое в
каждой строке. Значения средних арифметических упорядочить по возрастанию снизу вверх.
десятичной системе счисления следующие числа:
А2 =11110,
А8 = 372, А16 = 32А
Читайте также
У нас на первом курсе тема Pascal, а я гляжу на него как баран на новые ворота...
Я отстал сильно на 2 недели и ни могу ни как понять его... Скажите пожалуйста по конкретнее с чего начать, что именно нужно изучить или выучить, понять, чтобы знать как составлять на нём программы ?
диаметр внутреннего шара равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.
это нужно сделать в паскале.)
program lab7;
var x: array [1..100] of real;
i: integer;
s: real;
n:=53;
begin
cls;
s:=0;
writeln ('Введите элементы массива:');
for i:=1 to n do beginwrite ('x[',i,']=');
readln (x[i]);
s:=s+x[i];
end;
writeln ('Полученная сумма равна ', s);
begin
for i:=1 to n do
begin
x[i]:=random(100);
write(x[i]:5);
s:=s+x[i];
end;
writeln;
writeln ('Полученная сумма равна ', s);
end;
end.
program lab7;
var x: array [1..100] of real;
i: integer;
s: real;
n:=53;
begin
cls;
s:=0;
writeln ('Введите элементы массива:');
for i:=1 to n do beginwrite ('x[',i,']=');
readln (x[i]);
s:=s+x[i];
end;
writeln ('Полученная сумма равна ', s);
begin
for i:=1 to n do
begin
x[i]:=random(100);
write(x[i]:5);
s:=s+x[i];
end;
writeln;
writeln ('Полученная сумма равна ', s);
end;
end.