Program Gipotenuza;
var A,B,C: real;
begin
write (‘Введите длины катетов: ‘);
Read (A, B);
C: =A*A+B*B;
Write (‘Квадрат гипотенузы равен ‘,c);
end.
Ответ разместил: smichuksvitlana
1. Program Gipotenuza;
7. var а, b, c: integer;
6. write (‘Введите длины катетов: ‘);
3. Write (‘Квадрат гипотенузы равен ‘,c);
Источник: moy-otvet.com
Расположите строки так чтобы получилась программа сумма рассчитывающая
Сообщений: 24
Заменила на StringGrid1 и ошибка исчезла, спасибо.
Программу написала, запускается, но не получается вызвать результат.
Цель работы — создать программу, рассчитывающую суммы по столбцам и строкам вводимых чисел. При запуске, я ввожу числа, но далее ничего не происходит.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids; const Num = 4; cSize = 30; type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); procedure FormCreate(Sender: TObject); private < Private declarations >public < Public declarations >end; var Form1: TForm1; implementation procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); //Отоброжает выделенную строку в заголовке begin Caption:= ‘Выделенная ячейка (‘ + IntToStr(Acol) + ‘:’ + IntToStr(Arow) + ‘) ‘; end; procedure TForm1.FormCreate(Sender: TObject); begin StringGrid1.DefaultColWidth:= cSize; StringGrid1.DefaultRowHeight:= cSize; StringGrid1.ColCount:= Num; StringGrid1.RowCount:= Num; StringGrid1.Width:= Num*(cSize+1)+3; StringGrid1.Height:= Num*(cSize+1)+3; StringGrid1.Font.Size:=cSize div 2; end; Function ColSum(n:integer): integer; //сумма по колонке var i: integer; begin Result:=0; for i:=1 to Num-1 do Result:=Result+StrToInt(Form1.StringGrid1.Cells[n, i]); end; function RowSum(n: integer): integer; //сумма по столбцу var i: integer; begin Result:=0; for i:= 1 to Num-1 do Result:=Result+StrToInt(Form1.StringGrid1.Cells[i, n]); end; procedure Calculate; var i:integer; begin for i:=1 to Num-1 do begin Form1.StringGrid1.Cells[i, 0]:=IntToStr(ColSum(i)); Form1.StringGrid1.Cells[0, i]:=IntToStr(RowSum(i)); end; end; function StrToVal(s:string):integer; //вывод ошибки, если введена буква begin if s=» then Result:=0 else try Result:= StrToInt(s); except Result:=0; Form1.Caption:= ‘вводить надо числа’; end; end; end.
Последний раз редактировалось apelsun; 16.11.2012 в 08:24 .
#2.2 — «Поколение Python»: курс для начинающих stepik.org Ответы и решения | Команды print и input
Источник: www.programmersforum.ru
Расположите строки так чтобы получилась программа сумма рассчитывающая
Информатика и ИКТ Сайт учителя информатики
Урок 11 Строки и их методы Python
Разбор №12(ЕГЭ-2021)
Просмотров: 7427
Задание №14.
Умение исполнить алгоритм для конкретного исполнителя с фиксированным набором команд. Уровень сложности задания — повышенный, максимальный балл за выполнение — 1, примерное время выполнения задания — 6 минут.
Знать: алгоритмы с циклами. Эквивалентность алгоритмических моделей.
Уметь: интерпретировать результаты, получаемые в ходе моделирования реальных процессов.
Пример задания.
Исполнитель Редактор получает на вход строку цифр и преобразует её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр.
А) заменить (v, w).
Эта команда заменяет в строке первое слева вхождение цепочки v на цепочку w.
Если в строке нет вхождений цепочки v, то выполнение команды заменить (v, w) не меняет эту строку.
Б) нашлось (v).
Эта команда проверяет, встречается ли цепочка v в строке исполнителя Редактор. Если она встречается, то команда возвращает логическое значение «истина», в противном случае возвращает значение «ложь». Строка исполнителя при этом не изменяется.
Цикл
ПОКА условие
последовательность команд
КОНЕЦ ПОКА
выполняется, пока условие истинно.
В конструкции
ЕСЛИ условие
ТО команда1
ИНАЧЕ команда2
КОНЕЦ ЕСЛИ
выполняется команда1 (если условие истинно) или команда2 (если условие ложно).
НАЧАЛО
ПОКА нашлось (11)
ЕСЛИ нашлось (112)
ТО заменить (112, 6)
ИНАЧЕ заменить (11, 3)
КОНЕЦ ПОКА
КОНЕЦ
Исходная строка содержит десять единиц и три двойки, других цифр нет, точный порядок расположения единиц и двоек неизвестен. Какую наибольшую сумму цифр может иметь строка, которая получится после выполнения программы?
Разбор задания. Скажу прямо, это задание не самое сложное, что может быть на экзамене и с ним мы довольно быстро разберёмся.
1. Это задание немного отличается от привычных, так как требуется не полученную цепочку отобразить, а найти наибольшую сумму цифр этой строки. Давайте «пройдёмся» по программе и посмотрим, что она делает. Из неё видно, что если будет строка 112, то программа её заменит на 6, а строку 11 заменит на 3. Следовательно, результатом программы будет строка, состоящая из троек и шестёрок. Из условия нам известно, что необходимо получить наибольшую сумму, а для этого надо, чтобы в полученной строке, было как можно больше цифр 6.
2. Итак, мы имеем набор из десяти единиц и трёх двоек.
Чтобы получить как можно больше шестёрок обратим внимание на строки программы:
ЕСЛИ нашлось (112)
ТО заменить (112, 6)
Из них следует, что все последовательности 112 будут заменены на 6. Давайте расставим наши единицы и двойки таким образом, чтобы получить как можно больше комбинаций 112. Мы получим следующую комбинацию:
ПОКА нашлось (11) // это условие выполняется и цикл начинает работу
ЕСЛИ нашлось (112) // у нас нашлось 112 и мы заменяем этот кусочек строки на 6
5. Снова возвращаемся к началу программы и проверяем условие:
ПОКА нашлось (11) // это условие выполняется и цикл начинает работу
ЕСЛИ нашлось (112) // у нас нашлось 112 и мы заменяем этот кусочек строки на 6
7. Продолжаем выполнять программу и проверяем условие цикла:
ПОКА нашлось (11) // это условие выполняется и цикл начинает работу
ЕСЛИ нашлось (112) // у нас комбинации 112 больше не встречается, переходим к следующей строке программы
ИНАЧЕ заменить (11, 3) // комбинация 11 у нас в строке есть и мы заменяем её на 3
У нас получилась строка 66633, теперь необходимо сложить все цифры и записать ответ. 6+6+6+3+3=24.
Ответ: 24. Ну вот, как-то так.
Источник: makskovaly.ru