Составить программу на языке Pascal для вычисления значения функции y=f(x) при заданном значении x,которое вводится с клавиатуры. Результат вывести с тремя знаками после запятой. Варианты заданий приведены в таблице 7.1.
Const a=2.71; b=1.63; c=0.81;
Составить программу на языке Pascal в соответствии с заданием варианта. Рекомендуемый вид экрана приведен в конце каждой задачи.Значения, вводимые с клавиатуры, выделены полужирным шрифтом.
Var R1,R2,s1,s2,s3 :real;
Составить программу на языке Pascal для вычисления значения функции y=f(x) при заданном значении x,которое вводится с клавиатуры. Запустив программу дважды, получить ответ для каждого из заданных значений x. Результат вывести с тремя знаками после запятой. Варианты заданий приведены в таблице 7.2.
Writeln (‘Введите x=’ );
Writeln (‘Значение y=’,y:5:3);
Составить программу на языке Pascal в соответствии с заданием варианта. Рекомендуемый вид экрана приведен в конце каждой задачи. Значения, вводимые с клавиатуры, выделены полужирным шрифтом.
Прохожу СОБЕСЕДОВАНИЕ при помощи ChatGPT?
Writeln (‘Введите a=Введите b= Введите c=’);
Лабораторная работа №8
Составить программу, которая выводит на экран счетчик, а также вашу фамилию и имя 10 раз:
For i:=1 to 10 do
writeln(‘ Слипченко Таня’);
Дано целое положительное число N. С использованием цикла FOR составить программу, которая выводит на экран таблицу значений функции y при целых значениях аргумента x от 1 до N.
writeln (‘Введите x=’);
For x:=1 to 10 do
С использованием цикла WHILE составить программу, выполняющую табулирование функции y=f(x) на отрезке [x1, xn] с шагом h. Результат вывести с четырьмя знаками после запятой. Варианты заданий приведены в таблице 8.1.
Источник: studfile.net
Лабораторная работа №9 по программированию
Написать программу, которая обрабатывает результаты экзамена. Для каждой оценки программа должна вычислить процент от общего количества оценок.
Var T:array[1..4] of real;
writeln (‘Обработка результатов экзамена.’);
Writeln (‘Введите исходные данные.’);
writeln (‘Результаты экзамена.’);
Writeln (‘пятерок=’, T[1]:5:2, ‘%’);
Writeln (‘четверок=’, T[2]:5:2, ‘%’);
Написать программу, которая определяет количество учеников в классе, чей рост превышает средний.
var x:array[1..100] of integer;
writeln(‘анализ роста учеников’);
writeln(‘Введите количество учеников:’);
writeln(Введите рост учеников в сантиметрах:’);
if x[i]>k then t:=t+1
writeln(‘Средний рост: ‘,k,’ ñì.’);
writeln(‘Ó ‘,t,’ человек рост превышает средний ‘);
Дан массив из десяти целых чисел:
var a:array[1..10] of integer;
for i:=1 to 10 do Begin
if a[i]<>0 then s:=s*a[i];
writeln (‘произведение нулевых элементов =’,s);
Написать программу, которая «задумывает» число в диапазоне от 0 до 9 и предлагает пользователю угадать число за 5 попыток.
Программист, ты должен писать плохой код
writeln(‘Компьютер “Задумал” число от 0 до 9.’);
writeln(‘Угадай его за 5 попыток.’);
writeln(‘Введите число и нажмите «Enter» ‘);
writeln(‘Вы выйграли! Поздровляю’); goto m1;
Источник: testdoc.ru