|
Задача №112152. Случайные вещественныеДанные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия. :: Результаты:: Вопросы:: Посылки:: Добавить темы:: Темы:: Лучшие решения:: Источники
Напишите программу, которая вводит два вещественных числа, a и b (a < b), и выводит через пробел 5 случайных вещественных чисел в полуинтервале [ a, b). Входные данные Входная строка содержит два вещественных числа a и b, разделённых пробелом. Гарантируется, что a < b. Выходные данные Нужно вывести в одной строке через пробел 5 случайных вещественных чисел в полуинтервале [ a, b) с тремя знаками в дробной части. Примеры Входные данные 1.234 5.678 Выходные данные 1.234 1.373 5.060 2.134 2.447 Решение: var i: integer; a, b: extended; begin randomize; read(a); read(b); for i:=1 to 5 do writeln((random()*(b-a)+a):0:3,' '); end.
Задача №112172. Точка - 8 Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия. :: Результаты:: Вопросы:: Посылки:: Добавить темы:: Темы:: Лучшие решения:: Источники
Напишите программу, которая определяет, попала ли точка с заданными координатами в заштрихованную область. Входные данные Входная строка содержит два вещественных числа – координаты точки на плоскости (сначала x -координата, затем – y -координата). Выходные данные Программа должна вывести слово 'YES', если точка попала в заштрихованную область, и слово 'NO', если не попала. Примеры Входные данные 0.5 0.5 Выходные данные YES Входные данные -0.5 -0.5 Выходные данные NO Решение: program n_10; var x, y: real; begin read (x, y); if ((y<1) and (x>0) and (y>=0) and (y>x-1)) or ((x>0) and (y<0) and (x*x+y*y<1)) then write ('YES') else write ('NO') end.
Задача №112288. Симметричные пары Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия.
Пара элементов в массиве называется симметричной, если эти элементы находятся на одинаковом расстоянии от концов массива. Так в массиве размером N симметричными будут пары элементов с порядковыми номерами 1 и N, 2 и N - 1 и т.д. (при нумерации с единицы). Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A, B ] и определяет номера двух симметричных элементов этого массива, сумма которых чётная и максимальная среди всех пар симметричных элементов. Если ни одной такой пары нет, нужно вывести два нуля. Если есть несколько таких пар, нужно вывести номера элементов, составляющих пару, ближайшую к центру массива. Входные данные Входная строка содержит три числа: границы диапазона случайных чисел A и B, а также размер массива N. Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000. Выходные данные В первой строке программа должна вывести N элементов построенного массива, разделив их пробелами, а во второй строке – номера двух симметричных элементов массива, имеющих максимальную чётную сумму. Если ни одной такой пары нет, нужно вывести два нуля. Примеры Входные данные 10 20 10 Выходные данные 10 10 19 12 13 17 13 11 14 14 5 6 Решение: Var m:array[1..10000] of longint; a, b, n, i, j, max, k, f, x, s, t:longint; Begin read(a, b, n); for i:=1 to n do begin m[i]:=random(b-a)+a; write(m[i],' '); end; writeln; max:=-2147483648; s:=0; t:=0; For i:=1 to (n div 2) do begin x:=m[i]+m[n-s]; s:=s+1; If (x mod 2=0) and (x>=max) then begin max:=x; k:=i; f:=n-s; t:=1; end; end; If t=1 then write(k,' ',f) else write(0,' ',0); end. Задача №112510. Алфавитно-частотный словарь Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия. :: Результаты:: Вопросы:: Посылки:: Добавить темы:: Темы:: Лучшие решения:: Источники
Напишите программу, которая строит алфавитно-частотный словарь для файла input.txt, в котором в столбик записаны слова, состоящие только из строчных букв латинского алфавита. Входные данные Входной файл содержит неизвестное количество строк, в каждой из которых записано слово, состоящее только из строчных букв латинского алфавита. Последняя строка файла – пустая. Выходные данные Программа должна вывести в алфавитном порядке все различные слова, которые встретились в файле, по одному слову в строке. После каждого слова через пробел записывается количество таких слов в файле. Примеры Входные данные i was she was he she Выходные данные he 1 i 1 she 2 was 2 Решение: program qq; type werty = record Slovo:string; ion:integer; end; var m: array [1..10000] of werty; i,j,c:integer; st:string; d:boolean; t:werty; f,h:text; begin assign(f,'input.txt'); reset(f); assign(h,'output.txt'); rewrite(h); i:=0; while not eof(f) do begin readln(f,st); if st<>'' then d:=false; for j:=1 to i do begin if st=m[j].Slovo then begin inc(m[j].ion); d:=true; end; end; if d=false then begin inc(i); m[i].slovo:=st; m[i].ion:=1; end; end; for j:=1 to i-1 do begin for c:=1 to i-j do begin if m[c].slovo >m[c+1].slovo then begin t:=m[c]; m[c]:=m[c+1]; m[c+1]:=t; end; end; end; for j:=1 to i do begin writeln(h,m[j].Slovo,' ',m[j].ion); end; close(f); close(h); end.
Класс Задача №112145. Три числа Живите по правилу: МАЛО ЛИ ЧТО НА СВЕТЕ СУЩЕСТВУЕТ? Я неслучайно подчеркиваю, что место в голове ограничено, а информации вокруг много, и что ваше право... ЧТО ПРОИСХОДИТ ВО ВЗРОСЛОЙ ЖИЗНИ? Если вы все еще «неправильно» связаны с матерью, вы избегаете отделения и независимого взрослого существования... Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор... Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|