(35 ) доработать программу в pascal так, чтобы она выполняла вычисления n раз с разными исходными данными, используя оператор цикла for. переменную n ввести с клавиатуры.
var n: integer;
a,b,m: real;
begin
writeln('меню: ');
writeln('1.килограмм');
writeln('2.милиграмм');
writeln('3.грамм');
writeln('4.тонна');
writeln('5.центнер');
writeln('ваш выбор: ');
readln(n);
writeln('введите массу ');
readln(m);
case n of
1: writeln(' масса в кг =',m: 4: 2);
2: writeln(' масса в кг =',m*1000: 4: 2);
3: writeln(' масса в кг =',m/1: 4: 3);
4: writeln(' масса в кг =',m*1000: 4: 2);
5: writeln(' масса в кг =',m*100: 4: 2);
else writeln('такого номера единицы массы не существует');
end;
readln;
end.
Объяснение:
Мұғалім оқушыларға 20 таңбадан тұратың мәтінді компьютерде теру тапсырмасын берді. → Мұғалім оқушыларға 20 таңбадан тұратың мәтінді компьютерде теру тапсырмасын берді.
Оқушы мәтінді қуатын 16 таңбадан тұратың алфавитпен терді,ал Болат қуаты 256 таңба болатын алфавитпен терді. → Оқушы мәтінді қуатын 16 таңбадан тұратың алфавитпен терді, ал Болат қуаты 256 таңба болатын алфавитпен терді.
Екі түрлі алфавитпен жазылған ақпарат көлемін анықтаңыз және ерекшелігін түсіндірініз. → Екі түрлі алфавитпен жазылған ақпарат көлемін анықтаңыз және ерекшелігін түсіндірініз.
Ақпарат көлемі → Ақпарат көлемі
ответ: Pascal ABC.Net
Program Zadacha;
var a,b:array[1..1000] of integer;
n, i, max:integer;
BEGIN
write('Задайте количество элементов массива N<1000: ');
read(n);
max:=-30000;
for i:=1 to n do
begin write('Задайте ',i,'-й элемент массива: ');
read(a[i]);
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
begin b[i]:=a[i]*max;
writeln(b[i]);
end;
END.
Объяснение: