сервис вопросов и ответовсоставить блок схему по программе pascal program zadacha 3_1. var max,x,e:real; begin writeln('введите натуральное число x');readln(x);
10-11 класс|
|
writeln('введите число y');readln(y); if x>y then max:=x else max:=y; writeln('большее из двух =',max); end.
Дарья1205
19 июля 2014 г., 5:25:29 (9 лет назад)
ZrJd
19 июля 2014 г., 6:34:35 (9 лет назад)
Блок Схема,в jpeg формате (Картинка ) сделана в Word 2007.У вас Ошибка составление программы (var max,x,e:real;) [хотя вы запрашиваете x,y]
Картинка загружаться не хочет =),на сайт.
Дам зеркало
http://s018.radikal.ru/i504/1202/b4/cce538bc783b.jpg
Ответить
Другие вопросы из категории
1)Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько
полных секунд прошло сначала текущей минуты.
2)Производительность труда при выполнении некоторой работы повысилась на 40%. На сколько процентов сократилось время необходимое для выполнения этой работы.
3)Велосипедист должен попасть в место назначения к определённому сроку. Известно, что если он поедет со скоростью 15 км в час, то приедет на час раньше, а если скорость будет 10 км в час, то опоздает на 1 час. С какой скоростью должен ехать велосипедист, чтобы приехать вовремя?
решите в паскале без описания
30. ОЗУ - это
...
а. Основное записывающее устройство.
б. Оперативное запоминающее устройство.
в. Одноразовое запоминающее устройство.
г.
одноразовое записывающее устройства.
31.Устройством
ввода текстовой информации является ...
Читайте также
Помогите составить блок схему к задачи Pascal
program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.
Сделайте блок схемы по этим программам ПОЖАЛУЙСТА
program UKD;
var
P,S,R,c:real; a,b:integer;
begin
writeln('Введите a b');
read (a); read(b);
c := sqrt(a*a+b*b);
P := a+b+c;
S := 1/2*(a*b);
R := 1/2*sqrt(a*a+b*b);
writeln('P=',P,' S=',S,' R=',R);
end.
program UKD;
var
x,i,n:integer;
y:real;
begin
writeln('Vvedite x n');
read(x);
read(n);
for i:=1 to n do
begin
if(i mod 2<>0)then
y:=y+sqrt(sin(x)/i);
end;
write(y);
end.
составить блок схему по программе на паскалеVar A:array[1..100] of integer;
i,j,imax,n:byte;
Begin
j:=0;
write('Введите размер массива: ');readln(n);
For i:=1 to n do
Begin
readln(A[i]);
if (j=0)and(A[i]<0) then j:=i;
End;
writeln;
if j>0 then
Begin
if j<>n then imax:=j+1
else writeln('Первый отрицательный находится последним');
if imax<>0 then
For i:=imax+1 to n do
if A[i]>A[imax] then imax:=i;
if imax>0 then writeln('Max = ',A[imax]);
End
else writeln('Нету отрицательных');
readln;
End.
Написать программу (в Pascal) и составить блок-схему по задаче: В двумерном массиве произвольной размеренности подсчитать количество элементов, равных
наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.
1. Составьте блок-схему и программу вычисления значения функции:
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
Вы находитесь на странице вопроса "составить блок схему по программе pascal program zadacha 3_1. var max,x,e:real; begin writeln('введите натуральное число x');readln(x);", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.