1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Пожалуйста, помогите сделать задания, завтра сдавать, но мне некогда- пишу научную работу 1. Создать процедуру с массивом, которая содержит название времён года: весна, лето, осень, зима. Процедура от полученного номера месяца (от 1 до 12) показывает название времени года и выводит на экран. Создать программу, которая введённую форму даты, например, 2006.04.28 переделывает в форму ВЕСНА, Месяца, в которых меняются времена года причисляют к тому времени года, в котором начался. 2. Создать массив с 22 элементами и заполнить случайными десятичными числами с границами значений от -1 до 1, Вывести на экран, сколько чисел по модулю будут на границе от 0-0,499... и от 0,5-1. 3. Создать текстовой массив с 12 элементами длиной от 1 до 10 символов ( текст вводится с клавиатуры). Вывести на экран, сколько процентов каждое из слов содержит глассные.
Ты хочеш чтобы за тебя сделали задания или тебе чтото не понятно?
--------------------
Лао-Цзы : Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
Ну вообще-то для этого тут есть специальный форум... называется "Задачи на заказ" Но тебе повезло
Цитата
Создать процедуру с массивом, которая содержит название времён года: весна, лето, осень, зима. Процедура от полученного номера месяца (от 1 до 12) показывает название времени года и выводит на экран. Создать программу, которая введённую форму даты, например, 2006.04.28 переделывает в форму ВЕСНА, Месяца, в которых меняются времена года причисляют к тому времени года, в котором начался.
Сделал только первую часть, вторую - не понял...
procedure season(i:byte); const mas:array[1..4] of string[6]=('winter','spring','summer','autumn'); var buff:byte; begin if i>12 then exit; buff:=(i) div 3 + 1; if buff=5 then buff:=1; writeln(mas[buff]);; end;
Цитата
Создать массив с 22 элементами и заполнить случайными десятичными числами с границами значений от -1 до 1, Вывести на экран, сколько чисел по модулю будут на границе от 0-0,499... и от 0,5-1.
var mas:array[1..22] of real; i,n1,n2:byte; begin n1:=0; n2:=0; randomize; for i:=1 to 22 do begin mas[i]:=(random(1000)/1000)-1; write(mas[i]:0:3,' '); if abs(mas[i])<0.5 then inc(n1) else inc(n2); end; writeln; write('0-0,499 : ',n1,' 0,5-1 : ',n2); readln; end.
Цитата
Создать текстовой массив с 12 элементами длиной от 1 до 10 символов ( текст вводится с клавиатуры). Вывести на экран, сколько процентов каждое из слов содержит глассные.
const glas='AEIOUY'; var mas:array[1..12] of string[10]; i,j,buf:byte; per:real; begin for i:=1 to 12 do readln(mas[i]); for i:=1 to 12 do begin buf:=0; for j:=1 to length(mas[i]) do if pos(upcase(mas[i][j]),glas)<>0 then inc(buf); per:=(buf/length(mas[i]))*100; writeln(i,' : ',per:0:1,' percents'); end; readln; end.
Сообщение отредактировано: volvo -
--------------------
Лао-Цзы : Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
Лао-Цзы : Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.