Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
СаняЯя

Определить среди чисел минимум и присвоить его значение переменной Т

28.12.2010, 19:46. Показов 1858. Ответов 16
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
нужно составить блок схемы 4х задачь:
1.Даны три числа. Определить среди них минимум и присвоить его значение переменной Т.
2. Определить, сколько раз во введенном предложении встретились буквы киррилицы "а", "б", "ф"
3.Найти корни уравнения ax+c=0.
4. Вычислить объем параллепипеда, построенного на векторах a, b, c.


 Комментарий модератора 
Называйте темы грамотно.
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.12.2010, 19:46
Ответы с готовыми решениями:

среди чисел k,l,r два одинаковых,а в третье отлично от них.Переменной n присвоить значение числа,отличного от двух одинаковых
среди чисел k,l,r два одинаковых,а в третье отлично от них.Переменной n присвоить значение числа,отличного от двух одинаковых

Определить минимум среди положительных и максимум среди отрицательных чисел
Ну вот смотрите у меня есть код почти робочий.Он правильно показивает самое меньшее среди положительных но почему он покизвает самое...

Определить минимальное значение среди чисел и вывести его на экран
Помогите пожалуйста. Сгенерировать k случайных чисел из диапазона от a до b (a и b ввести с клавиатуры). Определить минимальное значение...

16
0 / 0 / 1
Регистрация: 21.12.2010
Сообщений: 4
30.12.2010, 02:25
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

второе:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const
     g=['а','б','ф'];
     var
     pred:string;
     i,q:integer;
     begin
     q:=0;
     writeln('введите предложение:');
     readln(pred);
     for i:=1 to length(pred) do
     if pred[i] in g then q:=q+1;
     writeln(q);
     end.
0
26 / 26 / 17
Регистрация: 29.12.2010
Сообщений: 90
30.12.2010, 19:36
men17, ему вроде как блок-схемы нужны, а не сами программы... Если он не ошибся понятиями)
0
 Аватар для N@tali
781 / 462 / 85
Регистрация: 20.02.2010
Сообщений: 974
30.12.2010, 19:55
хотел блок схему. Держи. Как то вот так
Вложения
Тип файла: rar Книга2.rar (7.7 Кб, 17 просмотров)
0
 Аватар для Holy_Metal
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
31.12.2010, 07:16
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Первое:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a:array[1..3] of integer;
    i,T:integer;
begin
writeln('Введите 3 числа');
                 for i:=1 to 3 do
                     readln(a[i]);
T:=a[1];
          for i:=1 to 3 do
              if a[i]<T then T:=a[i];
writeln('Минимальный элемент= ',T);
end.
Вложения
Тип файла: doc Блок-схема.doc (52.0 Кб, 14 просмотров)
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
31.12.2010, 14:06
Holy_Metal
Про массивы не слова не сказано.
0
 Аватар для Holy_Metal
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
31.12.2010, 15:05
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
Holy_Metal
Про массивы не слова не сказано.
и что?программа работает правильно, и не важно каким образом она решена
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
31.12.2010, 16:26
Holy_Metal
Особенно когда она решена теми методами какие он (возможно) не проходил.Ну двойка это уже его проблема.
0
 Аватар для Holy_Metal
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
31.12.2010, 17:57
а ничего, что они вычисляют объем параллелепипеда, находят корни уравнений и работают с текстом то наверное уж они знают массивы.
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
31.12.2010, 18:14
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses
 CRT;
Var
 T,a,b,c:integer;
begin
write('a,b,c:');
readln(a,b,c);
T:=a;
if T>b then T:=b;
 if T>c then T:=c;
write('T:=',T);
readkey
end.
Holy_Metal Специально для вас.
0
 Аватар для Holy_Metal
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
31.12.2010, 18:58
и что Вы этим доказали?
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
31.12.2010, 19:01
я не доказывал.я лишь очередной раз показал что масивы в таких задания не используются.Ну как то это не профессионально.
0
 Аватар для Holy_Metal
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
31.12.2010, 19:16
я еще раз повторяю, не важно каким образом решена задача, главное результат!
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
31.12.2010, 19:30
я еще раз повторяю, не важно каким образом решена задача, главное результат!

Не по теме:

О да...Ну ну.Ведь решать можно и через ж..у.

0
 Аватар для Holy_Metal
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
31.12.2010, 19:49
это вы про свои методы??? ну да я с вами согласен и так точно подмечено!
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,876
31.12.2010, 20:02
это вы про свои методы??? ну да я с вами согласен и так точно подмечено!
Это бы сказал любой адекватный человек.
О да...Ну ну.Ведь решать можно и через ж..у.
0
 Аватар для Holy_Metal
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
31.12.2010, 20:04
По-моему вы несете бред, что вы от меня хотите? и то что в простых задачах нельзя применять массивы тоже бред!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.12.2010, 20:04
Помогаю со студенческими работами здесь

Если среди элементов массива есть элемент, равный В то переменной Х присвоить определенное значение
Дан массив А. Если среди элементов массива есть элемент, равный В то переменной Х присвоить значение, равное сумме положительных элементов,...

Ввести N чисел с клавиатуры. Определить сколько раз среди этих чисел встретится минимум
static void Main(string args) { Console.Write(&quot;Введите количество цифр и нажмите Enter:&quot;); int c...

Ввести N чисел с клавиатуры. Определить сколько раз среди этих чисел встретится минимум
static void Main(string args) { Console.Write(&quot;Введите количество цифр и нажмите Enter:&quot;); int c...

Ввести N чисел с клавиатуры. Определить сколько раз среди этих чисел встретится минимум
static void Main(string args) { Console.Write(&quot;Введите количество цифр и нажмите Enter:&quot;); int a...

Как получить значение и присвоить его переменной?
Доброго времени суток, появилась необходимость добавить на сайт курсы валют. Я нашел скрипт который забирает данные, поменял его под себя....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru