Составить алгоритмы и написать на алгоритмическом языке(не С) следующие функций: − Функцию создания стека целых чисел на основе массива. Максимальный размер стека вводится пользователем, он должен быть не менее 100 элементов. Осуществить проверку корректности вводимых данных. − Функцию добавления элементов в стек. Предусмотреть проверку помещаемых в стек значений – они должны быть кратны 5. При переполнении стека пользователь должен быть оповещен. − Функцию чтения значения вершины стека без его извлечения. Предусмотреть проверку стека на пустоту. − Функцию чтения значения вершины стека с его извлечением. Предусмотреть проверку стека на пустоту. − Функцию определения текущего размера стека. − Функцию для работы со стеком, в которой создается целочисленный стек размером 70 элементов. Пользователь вводит 15 значений, которые помещается в стек. В результате выводится размер стека, значение его вершины (без извлечения) и определяется максимальное четное значение его элементов.
Ответы
Program ten;
const n=2;
Var a,b,c,d,e,f,p:integer;
Begin
Write ('Введите число a '); Read(a);
Write ('Введите число b '); Read(b);
Write ('Введите число c '); Read(c);
Write ('Введите число d'); Read(d);
Write ('Введите число e '); Read(e);
Write ('Введите число f '); Read(f);
p:=0;
If a mod n = 0 Then P:=p+1;
If b mod n = 0 Then P:=p+1;
If c mod n = 0 Then P:=p+1;
If d mod n = 0 Then P:=p+1;
If e mod n = 0 Then P:=p+1;
If f mod n = 0 Then P:=p+1;
Write ('количество четных чисел = ',p);
end.
Вот так, программа работает.
const n=2;
Var a,b,c,d,e,f,p:integer;
Begin
Write ('Введите число a '); Read(a);
Write ('Введите число b '); Read(b);
Write ('Введите число c '); Read(c);
Write ('Введите число d'); Read(d);
Write ('Введите число e '); Read(e);
Write ('Введите число f '); Read(f);
p:=0;
If a mod n = 0 Then P:=p+1;
If b mod n = 0 Then P:=p+1;
If c mod n = 0 Then P:=p+1;
If d mod n = 0 Then P:=p+1;
If e mod n = 0 Then P:=p+1;
If f mod n = 0 Then P:=p+1;
Write ('количество четных чисел = ',p);
end.
Вот так, программа работает.
#include <iostream>
#include <math.h>
#include <cstdlib>
using namespace std;
int main()
{
int position = 0;
int i,j, ch,a,s;
int* mass = NULL;
cout << "Заданное число А: ";
cin >> a;
while (1)
{
cin >> ch;
if (ch == 0) break;
mass = (int*)realloc(mass, (position+1)*sizeof(int));
mass[position] = ch;
position++;
}
s=0;
j=0;
for (i=0;i<position;i++){
if (((mass[i] > 0) && (mass[i+1] > 0)) || ((mass[i] < 0) && (mass[i+1] < 0)))
j++;
if (((mass[i] > 0) && (mass[i] < a)))
s++;
}
cout << "Номер поседней пары: " << j << endl;
cout << "Положительно и не больше А: " << s << endl;
return 0;
}
#include <math.h>
#include <cstdlib>
using namespace std;
int main()
{
int position = 0;
int i,j, ch,a,s;
int* mass = NULL;
cout << "Заданное число А: ";
cin >> a;
while (1)
{
cin >> ch;
if (ch == 0) break;
mass = (int*)realloc(mass, (position+1)*sizeof(int));
mass[position] = ch;
position++;
}
s=0;
j=0;
for (i=0;i<position;i++){
if (((mass[i] > 0) && (mass[i+1] > 0)) || ((mass[i] < 0) && (mass[i+1] < 0)))
j++;
if (((mass[i] > 0) && (mass[i] < a)))
s++;
}
cout << "Номер поседней пары: " << j << endl;
cout << "Положительно и не больше А: " << s << endl;
return 0;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Написати команду розгалуження повної форми
Автор: Шапкина1531
Найти сумму квадратов всех натуральных чисел от 1 до 100
Автор: Olgera1
Какая информация может быть организована в виде ссылки
Автор: magazin3000
Напишите на алгоритмическом языке пример: 5-(x-3) y= (x-3)+4
Автор: art-03857
Рассмотрите таблицу.Отметьте истинные утверждения
Автор: departed744
Архивтен файлдарды жою үшін келесі әрекеттер орындалады
Автор: Тариелович871
Объяснение:
Двдввлалллаьвлв не знаю ответ