Програма АЛГО
розробіть проект «Правила дорожнього руху» , за яким можна визначити, чи не порушив правила дорожнього руху водій, який проїхав відстань S за час t, якщо на шляху встановлено одне із запропонованих обмежень на швидкість: 40км/год,60км/год,90км/год. Передбачте, що дані вводяться в текстові поля, обмеження обираються за до елементів управління (оберіть самостійно) а результат виводиться у вікні повідомлення
(см. объяснение)
Объяснение:
Напишем программу на Python 3:
k = 0
for i in input():
if (ord(i) in range(65, 91)) or (ord(i) in range(97, 123)):
k += 1
print(k)
Задание выполнено!
Комментарий 1:
Замечу, что то же самое легко сделать на паскале:
##
var k: integer := 0;
foreach var c: char in ReadString do
if((ord(c) in [65..90]) or (ord(c) in [97..122]))
then k:= k+1;
print(k);
Комментарий 2:
Задачу можно было решить несколько иначе:
k = 0
for i in input():
if ('a' <= i <= 'z') or ('A' <= i <= 'Z'):
k += 1
print(k)
Комментарий 3:
Решение из комментария 2 тоже несложно написать на паскале:
##
var k: integer := 0;
foreach var c: char in ReadString do
if((c in ['a'..'z']) or (c in ['A'..'Z']))
then k:= k+1;
print(k);
a: Array[1..10, 1..10] of Real;
n, m, i, j, i1, j1, i2, j2: Byte;
min, max: Real;
begin
Writeln('Введите кол-во строк и столбцов');
Read(n, m);Writeln;
for i := 1 To n Do
begin
Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы');
for j := 1 To m Do Read(a[i, j])
end;
Writeln('Ваша матрица:');
for i := 1 To n Do
begin
for j := 1 To m Do
Write(a[i, j]:7:2);
Writeln
end;
for i := 1 To n Do
begin
min := a[i, 1];i1 := i;j1 := 1;
for j := 1 To m Do
if a[i, j] < min then begin
min := a[i, j];i1 := i;j1 := j
end;
if i = 1 Then begin
max := min;i2 := i1;j2 := j1
end
Else if min > max Then begin
max := min;i2 := i1;j2 := j1
end
end;
Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']');
end.