сервис вопросов и ответовМного баллов(78) за блок-схему...завтра курсовую сдавать :( программа на паскале uses crt; type
10-11 класс|
|
mas=array [1..100] of integer;
var
b:mas;
p,i,n:integer;
procedure vvod (x:mas;k:integer);
var i,p:integer;
begin
for i:=1 to n do begin
write('Vvedite chislo: ');
readln(x[i]);
end;
for i:=1 to n do
write(x[i]:3);
for i:=n downto 1 do
if x[i]<0 then
p:=i;
writeln;
write('= ',x[p-1]);
writeln;
readln;
end;
begin
clrscr;
write('Vvedite kol-vo chisel: ');
readln((n));
vvod (b,n);
readln;
end.
ПланетаЗнаний
29 сент. 2014 г., 4:06:48 (9 лет назад)
Blatikova1304
29 сент. 2014 г., 6:30:36 (9 лет назад)
Мы оформляем так. см. файл
Ответить
Другие вопросы из категории
Паскаль. Составить программу вычисления площади треугольника по любой из 3 известных формул(в программе должны использоваться все 3 на выбор).
Сами формулы:
1.S=ah/2
2.S=1/2ab sin C
3.S=sqrt(p(p-a)(p-b)(p-c))
30 пунктов!!!Паскль.найдите ошибку и объясните, пожалуйста!!умоляю, ребят!
Подсказка: ошибка связана с "writeln"
Здравствуйте) Помогите составить программу вычисления значений функции в VBA, заданных несколькими условиями с использованием условного
оператора If.... Then.... Else... , никак не даётся(((
Читайте также
Помогите пожалуйста! 1)Построить развлетвляющийся алгоритм, записать алгоритмы ввиде блок-схемы и на алгоритмическом языке. Треугольник задан
длинами своих сторон – a, b, c. Определить является ли
он тупоугольным, прямоугольным или остроугольным.
2) Построить циклический алгоритм, записать ввиде блок-схемы и на алгоритмическом языке.
Построить алгоритм, который определяет количество студентов в группе,
чей рост превышает среднее для группы значение.
Нужно составить блок-схему алгоритма подготовки к сдаче к экзамену.
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
1)Найти 3 совершенное число(программа+блок схемы)
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)
Задание № 1) Разработать блок схему алгоритма, который проверяет, является ли четным введенное с клавиатуры число
Задание 2) Разработать блок схему алгоритма? для вычисления и вывода на экран суммы 5 случайных числе в диапазоне 0..36.
Дан фрагмент программы. Нарисуйте блок-схему, восстановите вид формулы для расчета S
PASCAL:
VAR
A:ARRAY[1...100]OFF
INTEGER;
N,I,J: INTEGER;
S: REAL;
BTGIN
N:=8;
FOR I:=1 TO N DO
BEGIN
S:=0;
FOR J:=1 TO I DO
S:=S+(A[J]);
S:=ABS(S);
WRITELN(`S`=`,S:9:2);
END;
READLN;
END.
QBASIC
DEFINT N,I,J,S,
DIM A(100) AS INTEGER
N:=8
FOR I=1 TO N
S=0
FOR J=1 TO I
S=S+A[J]
NEXT J
S=ABS(S)
PRINT S
NEXT I
ШКОЛЬНЫЙ АЯ
алг слово(рез вещ s)
цел раб А[1:100]
n:=8
нц для I от 1 до n
s=0
нц для j от 1 до I
s=s+a[j]
кц
s=abs(s)
вывод s
кц
кон
Пожааалуйста нужны блок-схемы для трех вариантов получения s
Вы находитесь на странице вопроса "Много баллов(78) за блок-схему...завтра курсовую сдавать :( программа на паскале uses crt; type", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.