4 года назад

Составьте циклическую программу!!

Знания

Информатика

1 ответ:

roman34074 года назад

0 0

Всмысле?
ну вид такой будет:
program z1;
var i:integer;
begin
for i:=1 to 5 do
<КАКАЯ-ТО ОПЕРАЦИЯ>
END.

Читайте также

Паскаль. Написать функцию, находящую максимальное из двух вещественных чисел и с её помощью определить максимальное из 4-х вводи

Владислат

Готово
function max(a1, a2:integer):integer;
begin
if a1>a2 then max:=a1 else max:=a2;
end;

var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
end.

Если есть какие-то вопросы или ещё нужна помощь, в ЛС.

0 0

3 года назад

В массиве хранятся сведения о стоимости 12 различныхпредметов. Определить общую стоимость всех предметов.

polozova [50]

Var
a: array [1..12] of real; //Массив стоимости
s: real; //сумма
i: integer;

begin
s:= 0;
for i:= 1 to 12 do {12 раз вводим стоимость предмета и прибавляем ее к значению s}
begin
writeln('Введите стоимость предмета');
readln(a[i]);
s:= s + a[i];
end;
writeln('Общая стоимость всех предметов: ', s);
end.

0 0

4 года назад

Одновременно бросают два кубика,на гранях каждого из которых указаны очки-от 1 до 6 .Сколько бит информации получено,если за оди

ната-наталия

Ответ:

Ответ для математики.

0 0

4 года назад

Помогите пожалуйста составить код программы на языке паскаль, учитывая методические требования:.

terli4eno4ka [73.5K]

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var y:double:=1;
var e:=1e-5;
var y1:double;
while true do begin
 y1:=y*(1.5-sqr(y));
 Writeln('y1=',y1);
 if abs(y1-y)<=e then break
 else y:=y1;
 Writeln('y=',y)
 end;
Writeln('Результат: ',y1,', контрольное значение ',1/sqrt(2))
end.

Результат:
y1=0.5
y=0.5
y1=0.625
y=0.625
y1=0.693359375
y=0.693359375
y1=0.706708468496799
y=0.706708468496799
y1=0.707106444695907
y=0.707106444695907
y1=0.707106781186307
Результат: 0.707106781186307, контрольное значение 0.707106781186547

0 0

4 года назад

Как зашифровать слова книга,бумага,папирус,принтер,тетрадь,радио,алфавит.

Евгений0102

Попробуй что-то типо такого Н-1 О-4 И т.д и т.п 14сит

0 0

4 года назад