М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
YMNIKVKOWICKAH
YMNIKVKOWICKAH
11.06.2020 14:04 •  Информатика

Что не так в программе? var a,b,c: real; begin; read(a,b,c); if a> 0 then (a> 0) and (b> 0) and (c> 0) else write ('невозможно') write(a,b,c); end.

👇
Ответ:
1945269
1945269
11.06.2020

В соответствии с синстаксисом языка Паскаль, после then должен следовать оператор языка. У Вас записано логическое выражение (a>0) and (b>0) and (c>0), которое оператором не является.

4,4(23 оценок)
Ответ:
1venera4
1venera4
11.06.2020

Не знаю, что ты пытался этим кодом сделать, но как минимум у тебя условие "(a>0) and (b>0) and (c>0)" идёт после слова "then" (а должно быть после "if"). Вероятно, вывод значений "write(a,b,c);" должен быть на его месте, либо наоборот, на месте "write ('невозможно')".

4,5(59 оценок)
Открыть все ответы
Ответ:
hdjdhd1
hdjdhd1
11.06.2020

Открытый урок | Первое сентября

Главная

Положение о фестивале и конкурсах

Поиск по сайту

Статья недели

Конкурс «Цифровой класс»

Результаты

Подборка материалов ко Дню космонавтики

Разделы

Конкурс «Презентация к уроку»

Конкурс по экологии «Земля — наш общий дом»

Конкурс «Электронный учебник на уроке»

Конкурс «Цифровой класс»

Конкурс «Мы мир храним, пока мы помним о войне»

Конкурс «История регионов России»

Астрономия

Биология

Начальная школа

География

Иностранные языки

Информатика

История и обществознание

Краеведение

Литература

Математика

Музыка

МХК и ИЗО

ОБЖ

ОРКСЭ

Русский язык

Руководство учебным проектом

Спорт в школе и здоровье детей

Технология

Физика

Химия

Экология

Экономика

Администрирование школы

Видеоурок

Внеклассная работа

Дополнительное образование

Инклюзивное образование

Классное руководство

Коррекционная педагогика

Логопедия

Мастер-класс

Общепедагогические технологии

Организация школьной библиотеки

Патриотическое воспитание

Профессия — педагог

Работа с дошкольниками

Работа с родителями

Социальная педагогика

Урок с использованием электронного учебника

Школьная психологическая служба

Фестиваль «Школьная классика» | Спектакли, экскурсии

Урок информатики по теме "Алгоритм. Свойства алгоритма". 9-й класс

Костюкова Татьяна Николаевна, учитель информатики

Разделы: Информатика

Класс: 9

Цели урока:

познакомить с понятием алгоритма, исполнителем алгоритма, видами исполнителя, средой, СКИ и системой отказов исполнителя, свойствами алгоритма, показать среду, СКИ и систему отказов для конкретного исполнителя,

развивать умение работать самостоятельно, творчески.

воспитывать нравственное отношение к труду.

ХОД УРОКА

Презентация 1

В течение всей жизни каждый человек постоянно пользуется набором всевозможных алгоритмов — правил, которые заложены природой, даны воспитанием, обучением, тренировкой, выработаны на основе собственного опыта. Инструкции, в которых указано, как пользоваться лифтом, телефоном, различными автоматами и бытовыми приборами, правила перехода улицы, оказания первой медицинской распорядок дня, кулинарные рецепты, порядок проведения химического опыта, правила вычислений, методы решения алгебраических и геометрических задач — все это можно считать алгоритмами. Таким образом, все мы живем в мире алгоритмов. Алгоритмы экономят силы и время человека, так как однажды усвоенным правилом (алгоритмом) он может пользоваться всю жизнь.

Приведите пример алгоритма перехода дороги с светофором, и без светофора.

Ваш мозг постоянно занят работой, поиском решений. Говорят, что человек составляет алгоритм.

Тема нашего сегодняшнего урока.

4,4(49 оценок)
Ответ:
MisterStickman1
MisterStickman1
11.06.2020
Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).

type  matrix = array [1..8] of integer;var  F, output: text;  i, n, cc, sum: integer;  c: char;  x: matrix;  ma: real;
procedure convert (var c: char; var cc: integer);begin  if c='1' then cc:=1;  if c='2' then cc:=2;  if c='3' then cc:=3;  if c='4' then cc:=4;  if c='5' then cc:=5;  if c='6' then cc:=6;  if c='7' then cc:=7;  if c='8' then cc:=8;  if c='9' then cc:=9;  if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin  for n:=1 to 7 do begin    if x[n]>x[n+1] then swap(x[n],x[n+1]);  end;end;
begin  Assign(F, '1.txt');  Reset(F);  for i:=1 to 8 do begin    read(F, c);    convert(c,cc);    x[i]:=cc;  end;  Close(F);
  sorting(n,x);  sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];  ma:=sum/8;    Assign(output, 'output.txt');  rewrite(output);  writeln(output, sum); writeln(output, ma);  Close(output);end.
4,8(76 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ