<span>Когда человек слышит слова «модель» и «моделирование», перед его мысленным взором обычно пробегают картинки из его детства: уменьшенные копии автомобилей и самолетов, глобус, манекен, макеты зданий... Эти и многие другие вещи часто отражают какие-то общие свойства или функции настоящих предметов или объектов, только в более упрощенном виде. Используя такие модели, можно проще объяснить особенности оригинала. Информационная модель, примеры которой наглядно и понятно объясняют многие сложные для понимания процессы, также подчиняется основным требованиям моделирования. Цели Вышесказанное может привести нас к такому выводу: модели, являясь подобием реальных предметов или процессов, не должны отображать все свойства оригиналов, а только те характеристики, которые в определенной ситуации более востребованы для их применения. Нет необходимости отображать все многообразие свойств объекта — это может привести к усложнению модели и неудобству ее использования. Поэтому очень важно понимать, с какой целью была создана модель, какие ее параметры должны быть отражены в данном конкретном случае. При моделировании необходимо строго придерживаться такой логической цепочки: «объект — цель — модель»</span>
Эта программа действительна при условии, что утро начинается в 6, день в 12, вечер в 18, а ночь в 24 и продолжается до 6. Написала через if, так как не знакома с case, буду рада, если кто-нибудь мне расскажет)
var a: integer;
begin
read(a);
if (a > 5) and (a <= 11) then
write('Утро ');
if (a > 11) and (a <= 17) then
write('День ');
if (a > 17) and (a <= 23) then
write('Вечер');
if (a = 24) or (a < 6) then
write('Ночь');
<span>end.</span>
//PascalABC.Net 3.1.0.1200
uses System;
var
title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');
begin
writeln('Введите оценки');
var marks := new Dictionary<integer, integer>();
repeat
var n := ReadInteger();
if (n > 5) or (n < 2) then continue;
if marks.ContainsKey(n) then
marks[n] += 1
else marks.Add(n, 1);
until marks.Values.Sum >= 10;
for var i := 2 to 5 do
writeln(title[i], ': ', marks[i]);
end.
Напишу только паскаль, блок-схему не трудно составить из этого кода:
Var m,k:real; i:integer;
Begin
readln(k);
m:=0;
for i:=1 to (2k+1) do
if (i mod 2)=0 then m:=m+cos(i)
else m:=m+sin(i);
writeln(m);
End.
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.