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

Дана строка оценок учащегося за 10 уроков Информатики. Определить получал ученик оценку «» в этой четверти, и если получал, то сколько раз. Удалите здесь содержащий оценку «2» Добавьте недостающие строки в фрагмент программы​

👇
Открыть все ответы
Ответ:
annamasha2004
annamasha2004
02.04.2020

1) Записать на Паскале следующие числа: 7; 5,18; 

Запись числа 7 не изменится. Запись числа 5,18 будет отличаться лишь символом-разделителем целой и дробной части: в Паскале для этих целей используется точка, т.е. 5.18. можно записать в десятичной форме, т.е. 0.001, или в экспоненциальной: 1E-3.

2) Записать в общепринятой форме: 1.23; 2.1E1; 6.66E-3

В записи 1-го числа вместо точки появится запятая, т.е. 1,23. 2.1E1 и 6.66E-3 – это записи в экспоненциальной форме. Преобразовав их в общепринятую форму, получим 21 (2.1·10) и 0.00666 (6.66*10-3).

3) Записать на Паскале следующие формулы:

а) a+bx+cyz

В Паскале нельзя пропускать символы операций, т.е. нельзя записать bx. Кроме того, символ умножения отличается от привычной формы. В итоге получаем: a+b*x+c*y*z.

б) 

На Паскале не удастся записать числа в виде дроби. После их преобразований в строчную форму получим: a/(b*c)+(b*c)/a. Раскрыв скобки, можно получить: a/b/c+b*c/a.

4,4(16 оценок)
Ответ:
Марано
Марано
02.04.2020
//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366
Составьте алгоритм определения числа дней между двумя датами и нарисуйте блок-схему. , кто разбирает
4,4(54 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ