Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Подпрограммы должны организовывать ввод чисел, вычисление их суммы и вывод результата. Написать программу, состоящую из трех подпрограмм и основной программы. Подпрограммы должны организовывать ввод чисел, вычисление их суммы и вывод результата. (11 класс) https://www.cyberforum.ru/ pascalabc/ thread1029840.html	Множества, перечисления Pascal ABC Переменной t присвоить значение true, если дата d1, m1 предшествует (в рамках года) дате d2, m2, и значение false иначе. type месяц=(янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); день=1..31; var d1,d2: день; m1,m2: месяц; t: boolean;
Pascal ABC Составьте программу управления танком на экране с помощью клавиш управления курсором Составьте программу управления танком на экране с помощью клавиш управления курсором. Танк должен стрелять при нажатии пробела. Заранее спасибо=) https://www.cyberforum.ru/ pascalabc/ thread1029834.html	Pascal ABC Вычислить два выражения в одной программе https://www.cyberforum.ru/ pascalabc/ thread1029831.html Нужно вычислить два выражения в одной программе. Если не видно: \sum_{k=1}^{5}\frac{{k}^{2}}{{k}^{2}+3k+5} \prod_{i=1}^{4}\frac{{5}^{i}}{{3}^{i}+{2}^{i+2}}
Нужно перевести на язык Pascal Pascal ABC Добрый вечер форумчане! Помогите перевести на язык Pascal, пока еще не изучал C++, буду очень благодарен... struct PRICE { char tovar; char mag; int cena; }; #include <iostream.h>	Pascal ABC Найти количество чисел меньше заданаго program procedura; uses crt; Type mas=array of integer; VAR a, p, v, f :mas; t, sum, k, i :integer; procedure sozdviv(var x:mas; i:integer); begin writeln; for i:=1 to 10 do begin https://www.cyberforum.ru/ pascalabc/ thread1029800.html
Pascal ABC дописать программу https://www.cyberforum.ru/ pascalabc/ thread1029779.html всем здраствуйте. у меня есть программа которая при вводе допустим предложения "мама мыла раму". выводит комбинации пример: мамамылараму мамарамумыла мыламамараму мыларамумама рамумыламама рамумамамыла там можно пробел добавить для удобства. как мне написать чтобы она допустим каждую комбинацию копирвала и вставляла в текстовой документ. обязательно чтобы не все сразу копировала>...	Pascal ABC Динамическая структура данных Реализовать следующие функции для работы с однонаправленным списком: создание, добавление элемента в начало списка, удаление всех элементов с указанным значением, вывод списка на экран. Работу программы реализовать с помощью меню.
Pascal ABC Зашифровать текст записывая все слова наоборот, а затем расшифровать его Зашифровать текст записывая все слова наоборот, а затем расшифровать его. "Видит око глубоко, а ум еще глубже" https://www.cyberforum.ru/ pascalabc/ thread1029750.html	Pascal ABC реолизоввть следующие функции для работы с двунаправленным списком:-создание;-добавление элемента перед заднейым;-нахождение мин https://www.cyberforum.ru/ pascalabc/ thread1029735.html реолизоввть следующие функции для работы с двунаправленным списком: -создание; -добавление элемента перед заднейым; -нахождение минимального эллемента списка; -вывод списка на экран; работу программы реализовать с помощью меню.
Реализовать следующие функции для работы с одно направленным списком Pascal ABC Реализовать следующие функции для работы с одно направленным списком . - создание ; - добавление элемента после заданного ; - добавление элемента в начало списка ; - вывод списка на экран ; Работу программы реализовать с помощью меню .	Pascal ABC Найти сумму n членов ряда Найти сумму n членов ряда 1+1/2+1/3+...1/m... https://www.cyberforum.ru/ pascalabc/ thread1029692.html

pahuss

79 / 73 / 66

Регистрация: 11.04.2013

Сообщений: 221

07.12.2013, 20:37

Определить, какое число из данных трех не является ни максимальным и ни минимальным - Pascal ABC - Ответ 5452968

07.12.2013, 20:37. Показов 1395. Ответов 1

Метки (Все метки)

Сообщение было отмечено Pew_pew как решение

Решение

Pascal

program school;
uses crt;
 
procedure mini(a:array [1..3] of integer; var min: integer);
var i: byte;
begin
 min:=a[1];
 for i:=2 to 3 do begin
 if min>a[i] then min:=a[i] end;
end;
 
procedure maxi(a:array [1..3] of integer; var max: integer);
var i: byte;
begin
 max:=a[1];
 for i:=2 to 3 do begin
 if max<a[i] then max:=a[i] end;
end;
 
var a: array [1..3] of integer;
    i: byte;
    min, max, med: integer;
    
begin
writeln('Ââåäèòå òðè ÷èñëà');
for i:=1 to 3 do readln(a[i]);
 mini(a,min);
 maxi(a,max);
med:=a[1];
for i:=1 to 3 do begin
 if (med = min) or (med = max) then
 med:=a[i+1]; end;
 writeln('×èñëî íå ìèíèìàëüíîå è íå ìàêñèìàëüíîå ðàâíî ',med);
end.

Вернуться к обсуждению:
Определить, какое число из данных трех не является ни максимальным и ни минимальным Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.12.2013, 20:37

Готовые ответы и решения:

Определить, какое число из двух чисел, введённых с клавиатуры, является максимальным, используя команду IF
Задачка: Определить с помощью командного файла, какое число, из двух чисел веденных с клавиатуры,...

Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным
Заданы три различных числа, модуль каждого из которых не превышает 10 в 9степени. Определите число,...

Определить число позиций между максимальным и минимальным числом массива
1. Сумма элементов Создать двумерный массив целых чисел размер, диапазон значений которого задает...

Вставьте в массив число 11 перед максимальным и минимальным числами
Динамическая память. Одномерный массив. Вставьте в массив число 11 перед максимальным и...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.12.2013, 20:37

Помогаю со студенческими работами здесь

Вставить произвольное число К перед максимальным и минимальным элементами массива
1. Вывести на экран наибольшую последовательность из повторяющихся элементов одномерного массива...

Определить разницу между максимальным и минимальным элементом
помогите пожалуйста. 1. С клавиатуры вводится массив, состоящий из 10 целых элементов, определите...

Определить количество элементов, расположенных между максимальным и минимальным.
В массиве М 15 элементов. Определить количество элементов, расположенных между макси- мальным и...

Определить расстояние между максимальным и минимальным значениями функции
Значение функции f(x)=4x^3-3x^2+2x-1 определены в точках x=X0(Hx)Xn. Определить расстояние между...

Наверх