Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.
Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.
Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.
Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.
- Обратная связь
- Правила сайта
Источник: www.soloby.ru
Каков будет результат выполнения фрагмента программы на pascal
Каков будет результат выполнения программы на Паскале, если с клавиатуры вводится слово «Ротор»:
pascal Логические выражения c OR AND и порядок выполнения операций, boolean
var a:string; k,n,i: integer;begin readln (a); k:=0; n:=length(a); for i:=1 to n do if copy(a,i,1) <> copy(a,n-i+1,1) then k:=k+1;writeln (k);end.
(Отметьте один правильный вариант ответа.)
Варианты ответа
0 (Верный ответ)
Похожие вопросы
Каков будет результат выполнения программы, если с клавиатуры вводится слово «Ротор»:
var a:string; k,n,i: integer;begin readln (a); k:=0; n:=length(a); for i:=1 to n div 2 do if copy(a,i,1) <> copy(a,n-i+1,1) then k:=k+1;writeln (k);end.
Каков будет результат выполнения программы, если с клавиатуры вводится слово «Ротор»:
var a:string; k,n,i: integer;begin readln (a); k:=0; n:=length(a); for i:=1 to n do if copy(a,i,1) <> copy(a,n-i+1,1) then k:=1;writeln (k);end.
Что делает приведенная ниже программа на Паскале:
var a: string;b, i, j, st, n, s, x, k: integer;beginwriteln (‘введите число’); readln (a); n:=length(a); s:=0; for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); st:=1; for j:=1 to n do st:=st*x; s:=s+st; end; val (a, x, k); if s=x then writeln (‘+’) else writeln (‘-‘);end.
Назначение программы на Паскале…
var a: string;b, i, st, n, s, x, k:integer;beginreadln (a); readln(b); n:=length(a); s:=0; st:=1;for i:=1 to n dobeginval (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.
Предскажите результат выполнения программы на Паскале:
var a: string;b, i, st, n, s, x, k:integer;begina:=’25’; b:=5; s:=0; st:=1;n:=length(a);for i:=1 to n dobeginval (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.
Предскажите результат выполнения программы на Паскале (фрагмент ниже):
…a:=’1234′; n:=length(a);while (n>1) do begin s:=0; for i:=1 to n do begin val (copy(a,i,1),x,k); s:=s+x; end; str(s,a); n:=length(a); end;writeln (s);…
Приведенная программа на Паскале реализует алгоритм поразрядного умножения числа на число от 0 до 9, вводимых с клавиатуры приведена с ошибкой. Найдите ее.
const m=…;var a, rez: array [1..m] of byte; i, n, x, k: integer; stroka: string;begin readln (stroka); readln (x); n:= length (stroka); for i:=1 to n do val (copy(stroka, i, 1), a[i], k); for i:=1 to n do rez[i]:= a[i] * x; for i:=n downto 2 do begin rez[i-1]:= rez[i-1]+rez[i] mod 10; rez[i]:= rez[i] div 10; end for i:=1 to n do write (rez[i]);end.
Приведенная программа на Паскале реализует алгоритм …
Математические функции в Pascal — ABS, SQR, SQRT, DIV, MOD
const m=…;var a, rez: array [1..m] of byte; i, n, x, k: integer; stroka: string;begin readln (stroka); readln (x); n:= length (stroka); for i:=1 to n do val (copy(stroka, i, 1), a[i], k); for i:=1 to n do rez[i]:= a[i] * x; for i:=n downto 2 do begin rez[i-1]:= rez[i-1]+rez[i] div 10; rez[i]:= rez[i] mod 10; end for i:=1 to n do write (rez[i]);end.
Найдите ошибки в приведенной ниже программе на Паскале, которая выполняет перевод числа a из -ричной системы счисления (b<10) в 10-тичную:
var a: string;b, i, st, n, s, x, k:integer;beginreadln (a); readln(b); n:=length(a); s:=0; for i:=1 to n dobeginval (copy(a,i,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.
В результате приведенной программы на Паскале на экран выводится:
const m=…;var a, rez: array [1..m] of byte; i, n, x, k: integer; stroke: string;begin stroke:=’1234′; x:=5; n:= length (stroka); for i:=1 to n do val (copy(stroka, i, 1), a[i], k); for i:=1 to n do rez[i]:= a[i] * x; for i:=n downto 2 do begin rez[i-1]:= rez[i-1]+rez[i] div 10; rez[i]:= rez[i] mod 10; end for i:=1 to n do write (rez[i]);end.
Источник: bazaintuit.ru
Пример фрагмента программы ввода массива Паскаля
Пример фрагмента программы заполнения массива Паскаля случайными числами.
Var
A: array [1..10] of integer;
Begin
For i:=1 to 10 do
Вывод массива Паскаля
Вывод массива в Паскале осуществляется также поэлементно, в цикле, где параметром выступает индекс массива, принимая последовательно все значения от первого до последнего.
Пример фрагмента программы вывода массива Паскаля в строку
Var
A: array [1..10] of integer;
Begin
For i:=1 to 10 do
Вывод можно осуществить и в столбик.
Пример программы вывода массива Паскаля в столбик
Var A: array [1..10] of integer;
For i:=1 to 10 do
ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧИ С ИСПОЛЬЗОВАНИЕМ МАССИВОВ ПАСКАЛЯ
Нахождение суммы и произведения элементов массива
Задачи данного типа являются достаточно простыми и сводятся к поэлементному перебору массива и выполнению соответствующих алгебраических операций.
Алгоритм решения задачи:
Перед этим вводятся «пустые» переменные, значения которых в цикле for перезаписываются. Сумма элементов массива находится путем прибавления элемента к прежнему значению переменной. Произведение – умножением прежнего значения переменной на очередной элемент.
Первым значением переменной для суммы должен быть ноль, для произведения – единица.
Переменные s и p хранят соответственно значения суммы и произведения элементов массива. В соответствующих циклах их значения постепенно увеличиваются.
Программа на языке Паскаль:
Program pr;var a: array [1..10] of real; s, p: real; i: integer; begin for i:= 1 to 10 do read(a[i]); s:= 0; for i:= 1 to 10 do s:= s + a[i]; p:= 1; for i:= 1 to 10 do p:= p * a[i]; writeln(‘Сумма элементов: ‘, s:10:2); writeln(‘Произведение элементов: ‘, p:20:2); end.
Нахождение среднеарифметического элементов массива.
Решение задачи сводится к нахождению суммы элементов массива и деление суммы на количество элементов массива.
Программа на языке Паскаль:
Program pr;var a: array [1..10] of real; s, sa: real; i: integer; begin for i:= 1 to 10 do read(a[i]); s:= 0; for i:= 1 to 10 do s:= s + a[i]; sa:=s/10; writeln(‘Среднее арифметическое: ‘, sa:10:2); end.
Подсчет элементов массива удовлетворяющим некоторым условиям
Подсчет количества элементов массива, удовлетворяющих заданному условию, производится по алгоритмам, аналогичным вычислению суммы. Отличие заключается в том, что вместо добавления элемента массива к сумме, переменная – счетчик (k) увеличивается на единицу (k=k+1). Таким образом, если вместо s=0 и s=s+ai записать k=0 и k=k+1, то получим алгоритмы подсчета количества элементов массива.
Пример
В одномерном массиве a размерностью n, вычислить количество элементов равных заданному числу B и стоящих на четных местах.
Решение
Program pr;var a: array [1..10] of real; k: real; i: integer; begin for i:= 1 to 10 do read(a[i]); k:= 0; for i:= 1 to 10 do if a[i]=b then k:= k + 1 writeln(‘Количество элементов равное В:= ‘, k); end.
СТРОКОВЫЙ ТИП ДАННЫХ. ПРОЦЕДУРЫ ОБРАБОТКИ СТРОКИ СИМВОЛОВ: DELETE, INSERT
С помощью процедур Insert и Delete Вы можете: вставить фрагмент из одной строки в другую, удалить фрагмент из строки.
Процедура Insert вставляет в исходную строку, начиная с указанной позиции, какую-либо другую строку. Оператор Insert(Word1,Words,4); указывает ТП, что необходимо в строку Words, начиная с 4-ой позиции (перед 4-ой позицией), ВСТАВИТЬ строку Word1.
Процедура Delete удаляет в исходной строке фрагмент определенной длины, начинающийся с указанной позиции. Так, оператор Delete(Words,2,3); удаляет из строки Words фрагмент, состоящий из трех символов и начинающийся со второй позиции.
Проиллюстрируем возможности этих двух процедур на хорошо знакомом нам слове «компьютеризация».
Program Demo_function_insert_and_delete;
Источник: zdamsam.ru