1. Объявите в соответствующих разделах программы: строковую константу С со значением сумма и целочисленную переменную В. Запишите как этот фрагмент программы будет выглядеть.
2. Задан фрагмент программы: program pr_1; var a, d : integer;
A:= 15 while a> 7 do
A:= - 2; writeln(" a); end.
Какая информация будет выведена на экран дисплея после выполнения этого фрагмента программы?
3. Какое значение будет присвоено целочисленной переменной А после выполнения следующего фрагмента программы:
A:=0; FOR I:= -7 DONNTO -4 DO A:= A + 2;
4. Незнайка записал фрагмент программы, где А целочисленная переменная, В вещественная переменная:
Компьютеры и информационные системы прочно вошли в нашу жизнь и гораздо облегчили ее. Большинство людей, особенно молодежи не смогут представить свою жизнь без этой чудо машины. Еще совсем недавно, наличие компьютера в семье считалось роскошью. В настоящее время все настолько изменилось, что нет ничего удивительного, что в каждой ячейке общества присутствует несколько вычислительных устройств.
Что может быть общего между профессией учителя и бухгалтера, адвоката и дизайнера, сотрудника полиции и кассира, врача и звукорежиссера? Изначально, кажется, что эти профессии не имеют ничего общего, так как речь идет о совершенно разных профессиях. Если вспомнить, что мы живем в век глобальной информатизации, то все эти профессии объединяет то, что они используют компьютер.
Что же делает одно и то же устройство очень важным для выполнения столь большого количества разных работ? Таким вопросом мы задались и постараемся ответить на него в рамках нашего проекта.
Объект исследования: профессии, использующие компьютер в своей деятельности.
Предмет исследования: для чего и как именно взрослые используют компьютер в своей профессии.
Цель: Разработать и создать видео ролик «Компьютер и профессия». Выяснить, как именно компьютер представителям различных профессий.
Var s,st: string; a: array[1..255] of integer; i: integer; begin write('строка: '); readln(s); for i:=1 to 255 do a[i]:=0; for i:=1 to length(s) do inc(a[ord(s[i])]); st:=''; for i:=1 to length(s) do if ((a[ord(s[i])]>=2) and (s[i] in ['а'..'я'])) then continue else st:=st+s[i]; writeln('новая строка: ',st); end.
строка: Это строка для проверки. новая строка: Э са для пвеи.
Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:
var s: string; a: array[1..255] of integer; i,j: integer; begin write('строка: '); readln(s); for i:=1 to 255 do a[i]:=0; for i:=1 to length(s) do if ord(s[i])>32 then begin inc(a[ord(s[i])]); if s[i] in ['а'..'я'] then inc(a[ord(UpperCase(s[i]))]) else if s[i] in ['А'..'Я'] then inc(a[ord(LowerCase(s[i]))]); end; j:=0; for i:=1 to length(s) do if (a[ord(s[i])]>=2) then continue else begin inc(j); s[j]:=s[i]; end; delete(s,j+1,length(s)-j); writeln('новая строка: ',s); end.
Відповідь:
Компьютеры и информационные системы прочно вошли в нашу жизнь и гораздо облегчили ее. Большинство людей, особенно молодежи не смогут представить свою жизнь без этой чудо машины. Еще совсем недавно, наличие компьютера в семье считалось роскошью. В настоящее время все настолько изменилось, что нет ничего удивительного, что в каждой ячейке общества присутствует несколько вычислительных устройств.
Что может быть общего между профессией учителя и бухгалтера, адвоката и дизайнера, сотрудника полиции и кассира, врача и звукорежиссера? Изначально, кажется, что эти профессии не имеют ничего общего, так как речь идет о совершенно разных профессиях. Если вспомнить, что мы живем в век глобальной информатизации, то все эти профессии объединяет то, что они используют компьютер.
Что же делает одно и то же устройство очень важным для выполнения столь большого количества разных работ? Таким вопросом мы задались и постараемся ответить на него в рамках нашего проекта.
Объект исследования: профессии, использующие компьютер в своей деятельности.
Предмет исследования: для чего и как именно взрослые используют компьютер в своей профессии.
Цель: Разработать и создать видео ролик «Компьютер и профессия». Выяснить, как именно компьютер представителям различных профессий.
Пояснення: