Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
program print (output);
|
|
var a, b, c, d: integer;
procedure P(var b: integer; c: integer);
var d: integer;
begin a: =5; b: =6; c: =7; d: =8;
Writeln(a, b, c, d) end;
begin a: = 1; b: = 2; c: =3; d: -=4;
P(a, b); writeln(a, b, c, d)
End.
24. Написать программу исследования файла f с компонентами типа игрушка (см. зад. 412). В результате выполнения этой программы должны быть выведены цены всех игрушек, сведения о которых именуются в данном файле. Цены должны указываться в рублях и копейках: 3 р.15к., 0р.07к., 10р.00к. (число копеек записывается вумя цифрами). В программе полезно описать процедуру печати цены; цена первоначально задана в виде целого числа копеек; например, 315, 7, 1000.
25. Даны целые числа k, l, m и последовательность символов s1,.....s30. Написать программу, которая позволяет вывести данные символы в следующем виде:
k пробелов s1L пробелов s16 m пробелов *
k пробелов s2L пробелов s17m пробелов *
………………………………………………….
k пробелов s15L пробелов s30m пробелов *
Полезно описать процедуру print(s, n), обращение к которой дает вывод символа s после n пробелов.
26. Даны натуральные k, m. Требуется вывести на экран рамку из звездочек
******
* *
* *
* *
******
высота которой k строк, ширина - m знаковых позиций. Полезно описать процедуру печать (s, n), обращение к которой дает вывод n символов s.
27. Дано: натуральное n, целые неотрицательные а1, …, anРассмотреть отрезки последовательности а1, …, an (подпоследовательности идущих подряд членов), состоящей из:
а) полных квадратов; 6) степеней пятерки; в) простых чисел; г) совершенных чисел.
В каждом случае получить наибольшую из длин рассматриваемых отрезков. (Описать процедуры, позволяющие распознавать полные квадраты, степени пятерки, простые числа, совершенные числа.)
28. Даны действительные x1, y1, х2, у2,...x10, y10, Найти периметр десятиугольника, вершины которого имеют, соответственно, координаты (x1, y1), (х2, у2),...(x10, y10). Описать процедуру вычисления расстояния между двумя точками, заданными своими координатами.
29. Даны целые u1, u2, v1, v2, w1, w2 (u2, v2, w2 ≠ 0). Вычислить 
где u, v, w – рациональные числа u1/u2, v1/ v2, w1/w2/. Ответ получить в виде двух целых взаимно простых чисел p1, p2 - числителя и знаменателя дроби, являющейся значением выписанного выражения. Описать процедуру полного сокращения рационального числа, заданного числителем и знаменателем х, у (у > 0). Описать также процедуры сложения и умножения рациональных чисел.
|
|