Что-то меня глючит. Я же вроде как отвечал...
dim years
years = inputbox("Введите ваш возраст")
if years = 1 then msgbox("Мне 1 год") end if
if years = 2 then msgbox("Мне 2 годa") end if
if years = 3 then msgbox("Мне 3 годa") end if
if years = 4 then msgbox("Мне 4 годa") end if
if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if
if years >= 20 then
dim s
s = "Мне "+cstr(years)
if (years mod 10 = 1) then s = s + " год" end if
if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if
if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if
if (years mod 10 = 0) then s = s + " лет" end if
msgbox(s)
end if
VBS
1. существенные признаки объекта-оригинала
2. разные модели объекта
3. схема метро, схема узора для вязания крючком, график зависимости расстояния от времени, физическая карта.
Компьютерные программы программисты создают для решения разнообразных задач.
Программирование — важный, но не единственный этап решения задачи на компьютере. Чтобы решать задачи на компьютере, необходимо владеть языком программирования, обладать знаниями в области информационного моделирования и алгоритмизации.
Этапы решения задачи на компьютере
На первом этапе обычно строится словесная информационная модель объекта или процесса. При этом должно быть чётко определено, что дано (какие исходные данные известны, какие данные допустимы) и что требуется найти в решаемой задаче.
Также должны быть чётко выделены наиболее существенные свойства рассматриваемого объекта, указаны связи между исходными данными и результатами.
На втором этапе описательная информационная модель формализуется, т.е. записывается с помощью некоторого формального языка. Для этого требуется:
понять, к какому классу принадлежит рассматриваемая задача;
записать известные связи между исходными данными и результатами с помощью математических соотношений;
выбрать наиболее подходящий способ для решения задачи.
На третьем этапе осуществляется построение алгоритма чёткой инструкции, задающей необходимую последовательность действий для решения задачи. Алгоритм чаще всего представляется в форме блок-схемы, в виду её наглядности и универсальности.
На четвёртом этапе алгоритм записывается на одном из языков программирования.
На пятом этапе осуществляется отладка и тестирование программы.
Этап отладки и тестирования также называют компьютерным экспериментом.
Отладка программы — это процесс проверки работоспособности программы и исправления обнаруженных при этом ошибок.
Ошибки могут быть связаны с нарушением правил записи программы на конкретном языке программирования. Их программисту помогает выявить используемая система программирования; она выдаёт на экран сообщения о выявленных ошибках.
Const
Gl=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я',
'а','е','ё','и','о','у','ы','э','ю','я'];
var
s,fam,otch:string;
i,j,n,nGl:integer;
begin
Writeln('Введите через один пробел фамилию, имя и отчество');
Readln(s);
fam:=''; i:=1; n:=Length(s);
repeat
fam:=fam+s[i]; i:=i+1
until s[i]=' ';
otch:=''; j:=n;
repeat
otch:=s[j]+otch; j:=j-1
until s[j]=' ';
{ im:=Copy(s,i+1,j-i-1); так можно получить имя }
nGl:=0;
for i:=1 to n do
if s[i] in Gl then nGl:=nGl+1;
Writeln('Длина введенной строки в символах равна ',n);
Writeln('Количество гласных букв в строке равно ',nGl);
Writeln('Введено отчество: ',otch);
Writeln('Количество букв в фамилии равно ',Length(fam))
end.
<em><u>Тестовое решение:</u></em>
Введите через один пробел фамилию, имя и отчество
Иванов Петр Сергеевич
Длина введенной строки в символах равна 21
Количество гласных букв в строке равно 8
Введено отчество: Сергеевич
Количество букв в фамилии равно 6
