3 года назад

Алгоритм с ветвлением. Программирование в среде паскаль. Часть 1

Знания

Информатика

1 ответ:

sergunya633 года назад

0 0

Задачи
4.57
4.58
4.60
выполняются последовательно
но можно разбить на 3 программы

Программа А6 в файле

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

Решите пожалуйста программу

valllera

Var a, b, c:real;
begin
writeln('Delimoe');
readln(a);
writeln('Delitel');
readln(b);
if b=0 then writeln('Delitel ne 0') else
begin
c:=a/b;
writeln(c);
end;
end.

0 0

4 года назад

Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А[M,N], где M,N<=10. В каждой строке

Юрик52 [35]

Uses crt;
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]<min then min:=a[j,i];
gotoxy((i-1)*3+1,i+12);
write('min в ',i,' строке равен ',min);
s:=min*s;
end;
gotoxy(1,23);
writeln(s);
<span>end.</span>

0 0

4 года назад

Составить программу для вычисления x и y по формулам x=∛(cos^2-c*sina^3) y=ln|(sin(a-b))/(tg4c)|

Mio [3]

Вот программа паскаль

0 0

3 года назад

Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения: 167(8) и 37(8)Заранее спасибо.

юристика

167(8)=119(10)

0 0

4 года назад

Впишите в клеточки название подходящих устройств.

ИринаКолпакова [13]

Я включил компьютер и набрал на клавиатуре сочинение про свою семью. Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру, быстро двигая мышью. Получив рекордный результат, я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов.

0 0

3 года назад

Прочитать ещё 2 ответа