Ряд задач

olchik1980 · 16.03.2013, 18:40

1.Найти площадь равнобедренной трапеции с основаниями а и Ь и углом а при большем основании а.
2.Описать функцию IsPrime(N) логического типа, возвращающую TRUE, если целый параметр N(>1) является простым числом, и FALSE в противном случае(число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе.
3.Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.
4.Некий артист после своего выступления решил подарить зрителям, возраст которых соответствует его возрасту, цветы. Сколько цветов ему нужно приготовить, если ему 55 лет?
5.Изображение квадратного ковра состоит из n на n фигур. Координата каждой фигуры F[I,j]. Точка может иметь только 2 цвета: черный или белый. Если фигура черная, то K[I,j]=1, если белая, то K[I,j]=0. Для станка необходимо придумать такую программу которая запросит размер ковра n, сформирует в памяти массив у которого элементы диагоналей равны 1(черный), а не принадлежащие диагоналям элементы равны 0 (белый). Станок произведет ковер с заданным рисунком. В нашем случае выйдет на экран матрица из нулей и единиц.
6.На соревнованиях по метанию диска участвовало N учеников. Им давалось M (M<10) попыток для прыжков. Результаты записывались в таблицу, в которой каждая строка соответствует попыткам одного ученика. Победитель определяется с помощью подсчета средней арифметической от всех попыток. Определите номер участника, который победил в соревновании, если победителей больше, то выведи все их номера. Используйте функцию, в которой подсчитываются результаты каждого участника.

AlexZir · 16.03.2013, 19:28

Ольчик, вы повторно разместили те же самые задачи, что и раньше. Неужели вы думаете, что от этого вам помогут быстрее? Это же смешно, столь настойчиво требовать повышенного внимания к своей персоне от совершенно посторонних людей

Gruvi · 16.03.2013, 23:28

Ни здравствуйте, ни пожалуйста .....

interacia · 18.03.2013, 10:19

Код:

program Kover;
var
j,i,N:integer;
a: array [1..100,1..100] of integer;
begin
// Ввод данных
writeln('Введите резмер массива N (N<=100)');
 readln(N);
// Решение
 for i:=1 to N do
 for j:=1 to N do
 begin
 if i=j then a[i,j]:=1
else if i=(n-j+1)then a[i,j]:=1
else a[i,j]:=0;
 end;
// Ответ
writeln;
writeln('Ответ');
 for i:=1 to N do begin
 writeln;
 for j:=1 to N do write(a[i,j],' ');
 end;
end.

5) задачка

interacia · 18.03.2013, 10:27

3.Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.
Давно решена и в интернете на многих сайтах в разных вариантах выложена.
Прям полностью можно ее в поиск вбивать.
Это один из вариантов.
ССЫЛКА УДАЛЕНА

interacia · 18.03.2013, 10:37

4.Некий артист после своего выступления решил подарить зрителям, возраст которых соответствует его возрасту, цветы. Сколько цветов ему нужно приготовить, если ему 55 лет?

По поводу этой
Двумерный массив. Цветы. Паскаль

AlexZir · 18.03.2013, 10:50

iteracia
Все эти задачи уже решены и у нас в соответствующих темах, и на других, более профильных форумах. Но олечку данный факт не останавливает, ей подавай исполнимый модуль на Delphi

interacia · 18.03.2013, 11:45

Ух ты! наверно пятёрку хочет получить.

Размещение тем в нескольких разделах одновременно (кросспостинг), а также дублирование темы в одном разделе - кросспостинг. На других форумах строго карается. А здесь как то лояльно.

16.03.2013, 18:40	#1 (permalink)
olchik1980 Новичок Регистрация: 13.03.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ряд задач 1.Найти площадь равнобедренной трапеции с основаниями а и Ь и углом а при большем основании а. 2.Описать функцию IsPrime(N) логического типа, возвращающую TRUE, если целый параметр N(>1) является простым числом, и FALSE в противном случае(число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе. 3.Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов. 4.Некий артист после своего выступления решил подарить зрителям, возраст которых соответствует его возрасту, цветы. Сколько цветов ему нужно приготовить, если ему 55 лет? 5.Изображение квадратного ковра состоит из n на n фигур. Координата каждой фигуры F[I,j]. Точка может иметь только 2 цвета: черный или белый. Если фигура черная, то K[I,j]=1, если белая, то K[I,j]=0. Для станка необходимо придумать такую программу которая запросит размер ковра n, сформирует в памяти массив у которого элементы диагоналей равны 1(черный), а не принадлежащие диагоналям элементы равны 0 (белый). Станок произведет ковер с заданным рисунком. В нашем случае выйдет на экран матрица из нулей и единиц. 6.На соревнованиях по метанию диска участвовало N учеников. Им давалось M (M<10) попыток для прыжков. Результаты записывались в таблицу, в которой каждая строка соответствует попыткам одного ученика. Победитель определяется с помощью подсчета средней арифметической от всех попыток. Определите номер участника, который победил в соревновании, если победителей больше, то выведи все их номера. Используйте функцию, в которой подсчитываются результаты каждого участника.

16.03.2013, 18:40
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Моя рекомендация - обратите внимание на похожие темы Панель задач Не открывается панель задач

16.03.2013, 19:28	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Ольчик, вы повторно разместили те же самые задачи, что и раньше. Неужели вы думаете, что от этого вам помогут быстрее? Это же смешно, столь настойчиво требовать повышенного внимания к своей персоне от совершенно посторонних людей

16.03.2013, 23:28	#3 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	Ни здравствуйте, ни пожалуйста .....

18.03.2013, 10:27	#5 (permalink)
interacia Member Регистрация: 29.01.2013 Сообщений: 91 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 565	3.Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов. Давно решена и в интернете на многих сайтах в разных вариантах выложена. Прям полностью можно ее в поиск вбивать. Это один из вариантов. ССЫЛКА УДАЛЕНА

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

18.03.2013, 10:37	#6 (permalink)
interacia Member Регистрация: 29.01.2013 Сообщений: 91 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 565	4.Некий артист после своего выступления решил подарить зрителям, возраст которых соответствует его возрасту, цветы. Сколько цветов ему нужно приготовить, если ему 55 лет? По поводу этой Двумерный массив. Цветы. Паскаль

18.03.2013, 10:50	#7 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	iteracia Все эти задачи уже решены и у нас в соответствующих темах, и на других, более профильных форумах. Но олечку данный факт не останавливает, ей подавай исполнимый модуль на Delphi

18.03.2013, 11:45	#8 (permalink)
interacia Member Регистрация: 29.01.2013 Сообщений: 91 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 565	Ух ты! наверно пятёрку хочет получить. Размещение тем в нескольких разделах одновременно (кросспостинг), а также дублирование темы в одном разделе - кросспостинг. На других форумах строго карается. А здесь как то лояльно.