|
|
| Другие темы раздела | |
|
Free Pascal Сколько раз отработает цикл?
https://www.cyberforum.ru/ free-pascal/ thread2349127.html Дан фрагмент программы: b:=8; k:=1; a:=2; Repeat k:=k*a; Until k<b; Writeln(k); Сколько раз будет работать цикл? |
Free Pascal Квадраты натуральных чисел от 0 до N используя "+" и "-" необходимо найти квадраты натуральных чисел от 0 до n, только используя +, есть решение, но не понимаю сам алгоритм k:=0; k_square:=0; writeln(k.square); while not (k=n) do begin k:= k+1; {k_square = (k-1) * (k-1) = k*k -2*k + 1} k_square:=k_square+k+k-1; writeln(k_square); |
| Free Pascal Укажите строки, содержащие ошибки в программе... Укажите строки, содержащие ошибки в программе. z:=x; i: integer; for i:=1 to 20 do u:=x+y; z, u: array of real; x:=y; end else x:=x+y; var x, y: array of real; if x<>y then begin z:= x; https://www.cyberforum.ru/ free-pascal/ thread2348958.html |
Free Pascal Что вычисляет представленная программа.
https://www.cyberforum.ru/ free-pascal/ thread2348937.html Что вычисляет представленная программа, если мы вводим n натуральных чисел a1, a2, …, an? var n, a, k, i: integer; begin writeln('Введите количество натуральных чисел'); readln(n); k:=0; writeln('Введите ', n, ' натуральных чисел'); for i:=1 to n do begin readln(a); |
|
Какие определения типов ошибочны? Free Pascal Отметьте определения типов с ошибками. type letter = C..Z; type period = pi..2*pi; type week = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday); type workweek = Monday..Friday; type weekend = Saturday..Sunday; const n=180; pi=3.14159; type digit = '0'..'9'; type section = 0..2*n; |
Free Pascal Что будет выдано на печать в результате выполнения следующих операторов? 1 type ref = ^integer; var p, q: ref; Пусть p^=2 и q^=3. Что будет выдано на печать в результате выполнения следующих операторов? p^:=q^; if p=q then p:=nil else if p^=q^ then q:=p; if p=q then q^:=5; writeln(p^); https://www.cyberforum.ru/ free-pascal/ thread2348890.html |
| Free Pascal Интересная задача на полный перебор Добрый вечер! Требуется программу, которая распределит камни в две кучи так, чтобы модуль разности весов этих двух куч был минимальным. Под весом кучи следует понимать суммарный вес камней в ней. камней от 1 до 100, вес от 1 до 100000. Как реализовать полный перебор? Тройным циклом? Я сначала суммирую все камни, найду общую массу(sum). Потом min=100000, если |sum-comb| меньше чем min заменяем... https://www.cyberforum.ru/ free-pascal/ thread2348878.html |
Преобразование между системами счисления Free Pascal Файл INPUT.TXT содержит два типа строк: 1) определение преобразования-начальная база> конечная база 2) числа, которые нужно преобразовать - всегда одно число в начальной базе на одной строке Базы могут варьироваться от 2...36. База всегда задается числом в десятичном представлении, т. Е. Базой 10. Определенное преобразование действует до тех пор, пока последующая строка не определит новое... |
|
Free Pascal Напишите программу, которая определяет наибольшее число в файле
https://www.cyberforum.ru/ free-pascal/ thread2348721.html Текстовый файл CISLA.TXT содержит ряд натуральных чисел. Каждое из этих чисел может содержать до 100 десятичных цифр и отображается в отдельной строке файла. Ни одно из этих чисел не записывается ни с одной из ведущих нулей. Номера в файле не сортируются каким-либо образом, и некоторые значения могут появляться более одного раза. Напишите программу, которая определяет наибольшее число в файле... |
Free Pascal Определить наименьшее натуральное число, которое невозможно представить в виде суммы данных чисел Дано N целых чисел. Необходимо определить наименьшее натуральное число, которое невозможно представить в виде суммы данных чисел (сумма может состоять и из одного слагаемого) Формат ввода: N – количество чисел. Во второй строке через пробел следуют N чисел(A). Ограничения: 1<=N<=100 1<=A<=1000 Формат вывода: https://www.cyberforum.ru/ free-pascal/ thread2348114.html |
|
Free Pascal Числа от 1 до n при остатке 1 деления на 3 Числа от 1 до n при остатке 1 деления на 3. Так, написал вроде программу, но ответ не считает. program urna2_4; var N,i:integer; begin assign(input,'input.txt'); reset(input); read(n); close(input); |
Free Pascal Количество строк массива, оканчивающихся на гласную
https://www.cyberforum.ru/ free-pascal/ thread2347947.html Необходимо вывести количество строк из массива, которые заканчиваются на гласную. Написал вот такую программу, но почему-то выводит k:=0; uses crt; const N=5; var arr:array of string; i,j,k:byte; begin clrscr; for i:=1 to N do |
|
0 / 0 / 0
Регистрация: 10.11.2018
Сообщений: 70
|
||||||
| 0 | ||||||
Чему будут равны значения полей записи? - Free Pascal - Ответ 1304871011.11.2018, 12:37. Показов 1661. Ответов 1
Метки (Все метки)
a=25; b=33; c='a' a=35; b=43; c='b' a=50; b=33; c='d' a=50; b=25; c='d' Вернуться к обсуждению: Чему будут равны значения полей записи? Free Pascal
0
|
||||||
| 11.11.2018, 12:37 | |
|
Готовые ответы и решения:
1
Чему будет равны значения переменных a, b, c после выполнения фрагмента алгоритма? Чему будут равны элементы этого массива после выполнения фрагмента программы? Определить, чему будут равны элементы массива после выполнения фрагмента программы Чему будут равны значения X, Y, Z, если выражение NOT(X<Y) or NOT(X=Z) будет ложным ? |
| 11.11.2018, 12:37 | |
| 11.11.2018, 12:37 | |
|
Помогаю со студенческими работами здесь
0
Чему будут равны значения переменных после завершения фрагмента программы? Чему будут равны значения переменных после завершения фрагмента программы? Чему будут равны значения операндов a, b, c, d, n, k, m после выполнения нижеприведенного фрагмента программы
|
