Ряд задач

[olchik1980]

Ряд задач

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]

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

 

[Gruvi]

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

 

[interacia]

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]

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

 

[interacia]

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

По поводу этой
http://www.tehnari.ru/f43/t86328/

 

[AlexZir]

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

 

[interacia]

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

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