Ввести с клавиатуры 10 пар чисел сравнить числа в каждой паре

Обновлено: 18.05.2024

Здравствуйте, помогите пожалуйста ниписать 2 проги на Паскале.. А то сессия приближается, а лабы сдавать надо :) Так вот.

1. Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл (выходной файл должен также содержать, фамилии, номер группы).

Вот задание: Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них.

2.Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл.

и задание: С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.

Нет-нет, всё правильно, бОльшие - множественное число, поскольку пар 10. Будет окошко - нарисую. Пока, к сожалению, некогда.

Вот задание: Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них.

Поскольку Вы не указали формат вводимых чисел, будем считать, что Integer.

VAR
f:TEXT;
a:ARRAY[1..10, 1..2] of INTEGER;
m:ARRAY[1..10] of INTEGER;
i,j:INTEGER;

FUNCTION MAX(a,b:INTEGER):INTEGER;
BEGIN
IF a>b THEN MAX:=a ELSE MAX:=b;
END;

BEGIN
Assign(f, FileName);
ReWrite(f);
Writeln(f, SurName);
Writeln(f, GroupNumber);
FOR i:=1 TO 10 DO
BEGIN
FOR j:=1 TO 2 DO
BEGIN
Write('a[',i:2,', ',j:1,'] = '); ReadLn(a[i,j]);
END;
m[i]:=MAX(a[i,1],a[i,2]);
Writeln(f,i:2,m[i]:15);
END;
Writeln;
FOR i:=1 TO 10 DO
Writeln(i:2,m[i]:15);
Close(f);
ReadLn;
END.

CONST
FileName:STRING='xxxx';
SurName:STRING='Ivanov';
GroupNumber:STRING='555_a';

VAR
f:TEXT;
a,SUM,Num:INTEGER;

BEGIN
Assign(f, FileName);
ReWrite(f);
Writeln(f, SurName);
Writeln(f, GroupNumber);
SUM:=0;
Num:=0;
REPEAT
INC(Num);
Write('Enter the next number ');
Readln(a);
SUM:=SUM+a;
UNTIL SUM>100;
Writeln(f,Num:15);
Writeln(Num:15);
Close(f);
ReadLn;
END.

не стал создовать отдельный топик
что выполняет этот скрипт? Сам запустить я его не решился. просто хочу спросить что в нем заложенно
уберите пробел между Java_script .

Vladimir_S, спасибо вам огромное!!
но не могли бы переписать так, чтобы в файл выводилась фамилия, а так получается что фамилия в названии файла.. :( И Паскаль конфликтует с таким написанием строки:
Assign(f, SurName+'_'+GroupNumber'); Vladimir_S, спасибо вам огромное!!
но не могли бы переписать так, чтобы в файл выводилась фамилия, а так получается что фамилия в названии файла.. :(

И Паскаль конфликтует с таким написанием строки:
Assign(f, SurName+'_'+GroupNumber');

Конечно конфликтует, раз там мною ошибка вляпана - лишний апостроф перед закрывающей скобкой. Виноват. Но, впрочем, таких строк в исправленном варианте уже нету. Vladimir_S, я Вам очень признателен, еще раз спасибо! :)

Здравствуйте, помогите пожалуйста с программами на паскале, а то сессия на носу уже, а не успеваю.

1. Разработать программу, реализующую алгоритм вычисления суммы бесконечного ряда с точностью до 10^(-4). Программу представить с использованием оператора цикла WHILE
ln(x)=(x-1)/x+(x-1)2/2x2+(x-1)3/3x3+.
x>1/2

2. Преобразовать массив, расположив сначала все положительные, а затем все отрицательные элементы. Порядок следования элементов одного типа не менять

3. Найти количество нулевых элементов в каждой строке матрицы.

4. В одномерном массиве, состоящем из N целых элементов вычислить:
а)сумму элементов массива с четными номерами (оформить в виде функции)
б)произведение жлементов массива, расположенных между 1 и последним нулевыми лементами (оформить в виде процедуры)
Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся элементы в конце массива заполнить нулями

5.Определить количество слов в каждой строке. Удалить все слова BEGIN в каждой строке. (работа с файлами, обработка текст идет из внешнего файла, результаты также поместить в файл, для обработки текста использовать строковые функции).

СПАСИБО огромное, дело в том что с программированием никогда не сталкивался да и по роду профессии не столкнусь, а сдавать нужно

Вот пожалуйста))
program qq;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer;
begin
cls;
writeln ('Введите 10 пар чисел');
read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t);
//Первая пара
if a > b then
writeln ('Первая пара больше число ' ,a)
else
writeln ('Первая пара больше число ' ,b);
//Вторая пара
if c > d then
writeln ('Вторая пара больше число ', c)
else writeln ('Вторая пара больше число ', d);
//Третья пара
if e > f then
writeln ('Третья пара больше число ', e)
else
writeln ('Третья пара больше число ', f);
//Четвертая пара
if g > h then
writeln ('Четвертая пара больше число ' , g)
else
writeln ('Четвертая пара больше число ' , h);
//Пятая пара
if i > j then
writeln ('Пятая пара больше число ' , i)
else writeln ('Пятая пара больше число ' ,g);
//Шестая пара
if k > l then
writeln ('Шестая пара больше число ' ,k)
else
writeln ('Шестая пара больше число ' ,l);
//Седьмая пара
if m > n then
writeln ('Седьмая пара больше число ' , m)
else
writeln ('Седьмая пара больше число ' ,n);
//Восьмая пара
if o > p then
writeln ('Восьмая пара больше число ' ,o)
else
writeln ('Восьмая пара больше число ' ,p);
//Девятая пара
if q > r then
writeln ('Девятая пара больше число ' ,q)
else
writeln ('Девятая пара больше число ' ,r);
//десятая пара
if s > t then
writeln ('Десятая пара больше число ' ,s)
else
writeln ('Десятая пара больше число ' ,t);
end.

program qq;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer;
begin
cls;
writeln ('Введите 10 пар чисел');
read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t);
//Первая пара
if a > b then
writeln ('Первая пара больше число ' ,a)
else
writeln ('Первая пара больше число ' ,b);
//Вторая пара
if c > d then
writeln ('Вторая пара больше число ', c)
else
writeln ('Вторая пара больше число ', d);
//Третья пара
if e > f then
writeln

Файл скайчайте и откройтк в обычном текстовом редакторе, или сразу в паскале можно открыть

Новые вопросы в Информатика

Як видалити останній елемент масиву js ( якщо можна наглядний приклад)

Помогите найти алгоритм для решения задачи.Есть граф, все вершины соединены между собой, известны расстояния между каждой парой вершин. Также известна … начальная вершина и конечная.Нужно перейти от начальной до конечной вершины, посетив все остальные, при этом пройтись по кратчайшему пути. Помогите, пжлст, подобрать нужный алгоритм. А ещё лучше написать код с этим алгоритмом на Python, либо словесно детально описать его.

Дано список України ["Херсон", "Житомир", "Ужгород", "Харків"]. Уставте місто Луцьк на другу позицію і після цього відсортуйте список

Помогите пожалуйста. Информатика, 9 класс. Дам 15 баллов. Заранее спасибо

КэВэ — учитель математики в школе. У него есть любимая последовательность чисел b1, b2, . . . , bm, состоящая из m различных чисел. Когда КэВэ скучно … при проверке домашних заданий, он ищет b в виде подпоследовательности чисел, записанных в тетради ученика. Как-то раз КэВэ увидел в тетради ученика последовательность из n чисел a1, a2, . . . , an. Учитель решил применить новый метод проверки домашних заданий. А именно, для каждой позиции i КэВэ ищет минимальный индекс ri , такой что в последовательности ai , ai+1, ai+2, . . . , ari можно встретить b как подпоследовательность. Помогите ему для каждого i найти нужное ri или укажите, что такого не найдётся. Напомним, что подпоследовательностью для a1, a2, . . . , an называется набор элементов a, полученный из a1, a2, . .

Помогите пожалуйста написать на python код для программы "Спиннер" Можно сделать код сложным

Завдання:Таблиця квадратів. Скиньте посилання на скачку таблиці або просто посилання. Срочно

Дан массив из 30 элементов, каждый элемент получается случайным образом в диапазоне от 40 до 80. Найти сумму наибольшего и наименьшего элементов этого … массива , желательно сделать в одном цикле

Читайте также: