Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Помогите создать программу паскаль для задачи: Даны два различных вещественных числа. Определить: а) Какое из них больше; б) Какое из них меньше;
Источник: urokam.net
Паскаль программа какое число больше
Задана непустая последовательность положительных целых чисел,за которой следует 0.Описав подходящую рекурсивную функцию или процедуру, найти наибольшее из этих чисел.
Я в рекурсии не особо разбираюсь.Попробовал решить,но программа выдаёт неправильный ответ.Помогите пожалуйста.
program abc(input,output); var a,b:integer; function max(a,b:integer):integer; begin if b=0 then max:=a else begin a:=b;read(b); max:=max(a,b); end; if a>b then max:=a else max:=b; end; begin read(a,b); writeln(max(a,b)); end.
Последний раз редактировалось Karabas; 06.12.2008 в 21:40 .
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
Задана непустая последовательность положительных целых чисел,за которой следует 0.Описав подходящую рекурсивную функцию или процедуру, найти наибольшее из этих чисел.
Я в рекурсии не особо разбираюсь.Попробовал решить,но программа выдаёт неправильный ответ.Помогите пожалуйста.
Для начала эту последовательность нужно определить.
Итак, смотрим правку кода:
program abc; var a,b,c :integer; Arr: array[0..1023] of Integer; //Это и будет наша последовательность из 1024 элементов типа Integer
Далее эту последовательность нам нужно откуда-то взять.
begin c:=0; a:=0; writeln(‘Vvedite chisla posledovatelnosti po odnomu. 0 — konec posl-ti.’); repeat read(a); writeln(‘,’); if a>0 then begin arr[c]:=a; inc(c); end; until a=0;
Теперь время взяться за саму функцию.
function max(a,b:integer):integer; //здесь a-число, b- порядковый номер сравниваемого числа последовательности begin if b=c then //если предыдущий элемент- последний в последовательности, то завершаем рекурсию Result:=a else //иначе begin if a>arr[b] then Result:=max(a,b+1) else Result:=max(arr[b],b+1); end; end;
Знаю, вариант полностью отличается от предложенного, однако должен работать.
Итого мы имеем:
program abc; var a,b,c :integer; Arr: array[0..1023] of Integer; function max(i,n:integer):integer; begin if n=c then Result:=i else begin if i>arr[n] then Result:=max(i,n+1) else Result:=max(arr[n],n+1); end; end; begin c:=0; a:=0; writeln(‘Vvedite chisla posledovatelnosti po odnomu. 0 — konec posl-ti.’); repeat read(a); writeln(‘,’); if a>0 then begin arr[c]:=a; inc(c); until a=0; b:=max(arr[0],1); Writeln; writeln(‘Maksimalnoe chislo posl-ti=’,b); end;
P.S. Код не компилил, но работать должен.
Познавая других, мы познаем себя.
С’est la vie.
Последний раз редактировалось SuperVisor; 07.12.2008 в 22:43 . Причина: Недочет =)
Источник: www.programmersforum.ru
Напишите программу (Pascal) , которая находит наибольшее из четырех целых чисел и выводит его на…
Напишите программу (Pascal) , которая находит наибольшее из четырех целых чисел и выводит его на экран.
Милана Лихванова Вопрос задан 12 августа 2019 в 5 — 9 классы, true»> Поделиться
Видео уроки паскаль: поиск максимального и минимального значения
Задачи с массивами | Pascal | Сумма и поиск элементов
1 Ответ (-а, -ов)
Var a,b,c,d: integer;
begin
readln(a,b,c,d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln(‘максимальное число: ‘,a);
end.
15 -4 17 16
максимальное число: 17
Гавриил Жемерихин Отвечено 12 августа 2019
- ‘ data-html=»true»> Поделиться
- Комментариев (0)
Источник: matfaq.ru