1)Напишите процедуру в программе Pascal ABC(Паскаль), которая выводит на экран в столбик все цифры переданного ей числа,
procedure sr(n:integer);
var k, m:integer;
begin
k:=n mod 10;n:=n div 10;
while n <> 0 do
begin
k:=k*10+n mod 10;
n:=n div 10;
end;
while k <> 0 do
begin
m:=k mod 10;
writeln(m);
k:=k div 10;
end;
end;
begin
write(‘ введите число a ‘); // вводим с клавиатуры число
read(a);
sr(a); // вызываем процедуру
end.
2)program zz1;
var
s: Array [1..4] of String;
n: Integer;
Procedure Inc4;
Begin
If (s[4] = ‘IV’) then s[4] := ‘V’ Else
If (s[4] = ‘VIII’) then s[4] := ‘IX’ Else
If (s[4][1] = ‘I’) then If (Length(s[4]) < 3) then s[4] := s[4] + ‘I’
Else s[4] := ‘IV’
Else s[4] := s[4] + ‘I’;
If (s[4] = ‘ I’) then s[4] := ‘I’;
End;
Procedure Inc3;
Begin
If (s[3] = ‘XL’) then s[3] := ‘L’ Else
If (s[3] = ‘LXXX’) then s[3] := ‘XC’ Else
If (s[3][1] = ‘X’) then If (Length(s[3]) < 3) then s[3] := s[3] + ‘X’
Else s[3] := ‘XL’
Else s[3] := s[3] + ‘X’; s[4] := ‘ ‘;
If (s[3] = ‘ X’) then s[3] := ‘X’;
End;
Procedure Inc2;
Begin
If (s[2] = ‘CD’) then s[2] := ‘D’ Else
If (s[2] = ‘DCCC’) then s[2] := ‘CM’ Else
If (s[2][1] = ‘C’) then If (Length(s[2]) < 3) then s[2] := s[2] + ‘C’
Else s[2] := ‘CD’
Else s[2] := s[2] + ‘C’; s[3] := ‘ ‘; s[4] := ‘ ‘;
If (s[2] = ‘ C’) then s[2] := ‘C’;
End;
begin
Write(‘Введите число меньше 4000: ‘); Read(n);
If (n > 3999) then n := 3999; Write(n, ‘ = ‘);
s[1]:=’ ‘; s[2]:=’ ‘; s[3]:=’ ‘; s[4]:=’ ‘;
While (n > 0) do begin
Dec(n);
If (s[4] <> ‘IX’) then Inc4 Else
If (s[3] <> ‘XC’) then Inc3 Else
If (s[2] <> ‘CM’) then Inc2
Else begin
s[1] := s[1] + ‘M’; s[2] := ‘ ‘; s[3] := ‘ ‘; s[4] := ‘ ‘; End;
End;
For n := 1 to 4 do If (s[n] <> ‘ ‘) then Write(s[n]);
end.
1)Напишите процедуру в программе Pascal ABC(Паскаль), которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.
Пример:
1234
1
2
3
4
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
ОБОСОБЛЕННЫЕ ЧЛЕНЫ ПРЕДЛОЖЕНИЯ
Запишите предложения, выделяя обособленные члены предложения (в скобках укажите – что обособленно: приложение, обстоятельство, согласованное или несогласованное определение):
1. Охотника лес кормил «звериным промыслом», земледельца – лесными угодьями и бортничеством (старейшая форма пчеловодства, при которой пчёлы живут в дуплах деревьев), ремесленника – различными ремёслами, связанными с использованием дерева.
2. Приглядевшись внимательнее, Костя увидел бюст Льва Толстого.
3. Они сидели близко, совсем рядом, и Володя не видел, куда смотрит отец, но чувствовал его серьёзный, строгий и спокойный взгляд.
4. Над крышей гордо возносился конёк – стилизованная голова лошади.
5. Отличить полезный, «настоящий» труд от мартышкиного просто: ощущаешь себя молодцом, завершив работу, или понимаешь, что занялся не своим делом.
6. Делая усилия, мы становимся частью этого пространства.
7. Впереди были горы, высокие, неприступные.
8. Я должна быть примером для младшего братишки, с детства он должен видеть, что взрослые неустанно работают, и я, старшая сестра, тружусь так же.
9. А он, сообразительный малыш, уже знает, что делать: жуёт конфету, берёт мою скрипку и начинает играть мой урок.
10. Заворожённый этим зрелищем и заколдованный своим малодушием, я замер.
11. А вечером, на закате, уставшие и притихшие, мы сидели на берегу и ждали, когда появится трамвайчик, который должен был везти нас из студёного оврага к лагерю.
12. Толик стал заядлым автомобилистом: та самая «Волга», что стояла у них в гараже, эта небесная египетская корова, определила его судьбу.
1)Напишите процедуру в программе Pascal ABC(Паскаль), которая выводит на экран в столбик все цифры переданного ей числа, начиная
Мультимедиа одновременное использование различных форм представления информации и ее обработки в едином объекте-контейнере.
Например, в одном объекте-контейнере может содержаться текстовая, аудиальная, графическая и видео информация, а также, возможно, способ интерактивного взаимодействия с ней.
Термин мультимедиа также, зачастую, используется для обозначения носителей информации, позволяющих хранить значительные объемы данных и обеспечивать достаточно быстрый доступ к ним (первыми носителями такого типа были CD — compact disk). В таком случае термин мультимедиа означает, что компьютер может использовать такие носители и предоставлять информацию пользователю через все возможные виды данных, такие как аудио, видео, анимация, изображение и другие в дополнение к традиционным способам предоставления информации, таким как текст.
К.Ю. Поляков, Е.А. Еремин — Язык Си и Си++
2. Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию умножения. Учтите, что числа могут быть отрицательными.
3. Напишите программу, которая вводит натуральное число N и находит сумму всех натураль ных чисел от 1 до N . Используйте сначала цикл с условием, а потом – цикл с переменной.
4. Напишите программу, которая вводит натуральное число N и выводит первые N чётных на туральных чисел.
5. Напишите программу, которая вводит натуральные числа a и b , и выводит квадраты нату ральных чисел в интервале от a до b . Например, если ввести 4 и 5, программа должна вы
6. Напишите программу, которая вводит натуральные числа a и b , и выводит сумму квадратов натуральных чисел в интервале от a до b .
7. Напишите программу, которая вводит натуральное число N и выводит на экран N псевдослу чайных чисел. Запустите её несколько раз, объясните результаты опыта.
8. Напишите программу, которая строит последовательность из N случайных чисел на отрезке от 0 до 1 и определяет, сколько из них попадает в полуинтервалы [0; 0,25), [0,25; 0,5), [0,5; 0,75) и [0,75; 1). Сравните результаты, полученные при N = 10, 100, 1000, 10000.
9. Найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при де лении на 134 дают в остатке 111.
10. Напишите программу, которая вводит натуральное число N и выводит на экран все нату ральные числа, не превосходящие N и делящиеся на каждую из своих цифр.
11. Числа Армстронга. Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N ную степень (где N – количество цифр в числе) равна самому числу. Например, 153 = 1 3 + 5 3 + 3 3 . Найдите все трёхзначные и четырёхзначные числа Армстронга.
12. Автоморфные числа. Натуральное число называется автоморфным, если оно равно по следним цифрам своего квадрата. Например, 25 2 = 625. Напишите программу, которая вво дит натуральное число N и выводит на экран все автоморфные числа, не превосходящие N .
13. Напишите программу, которая считает количество чётных цифр введённого числа.
14. Напишите программу, которая считает сумму цифр введённого числа.
15. Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221).
16. Напишите программу, которая определяет, верно ли, что введённое число состоит из оди наковых цифр (как, например, 222).
17. *Напишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых цифры, возможно, не стоящие рядом (как, например, 212).
18. Используя сначала цикл с условием, а потом – цикл с переменной, напишите программу, ко торая выводит на экран чётные степени числа 2 от 2 10 до 2 2 в порядке убывания.
19. Алгоритм Евклида для вычисления наибольшего общего делителя двух натуральных чисел, формулируется так: нужно заменять большее число на разность большего и меньшего до тех пор, пока одно из них не станет равно нулю; тогда второе и есть НОД. Напишите про грамму, которая реализует этот алгоритм. Какой цикл тут нужно использовать?
20. Напишите программу, использующую модифицированный алгоритм Евклида : нужно заме нять большее число на остаток от деления большего на меньшее до тех пор, пока этот оста ток не станет равен нулю; тогда второе число и есть НОД.
21. Добавьте в решение двух предыдущих задач вычисление количества шагов цикла. Заполни те таблицу (шаги 1 и шаги 2 означают количество шагов двух версия алгоритма Евклида):